|
![](/images/profiles/icons/113853.jpg) | Formler til kørselsberegning Fra : boro23 | Vist : 2526 gange 100 point Dato : 12-04-07 07:27 |
|
Jeg mangler formler til nedenstående beregninger, jeg har især problemer hvor "km. total" overstiger 20000 km (maj måned).
3,35 pr. km. 1,78 pr. km.
udbetalt kr udbetalt kr
Kørte km Km. total Under 20000 km Over 20000 km
Januar 1690 1690 5661,5
Februar 6852 8542 22954,2
Marts 5408 13950 18116,8
April 3362 17312 11262,7
Maj 3000 20312 9004,8 555,4
Juni 3000 23312 5340,0
Juli 3412 26724 6073,4
August 2649 29373 4715,2
September 1852 31225 3296,6
Oktober 4632 35857 8245,0
November 2987 38844 5316,9
December 1548 40392 2755,4
| |
![](/images/profiles/icons/113853.jpg) | Kommentar Fra : boro23 |
Dato : 12-04-07 07:32 |
|
Ups. det står hvis noget rodet, håber I kan se meningen. Hvis ikke kan jeg maile en kopi af regnearket.
| |
![](/images/profiles/icons/113853.jpg) | Kommentar Fra : boro23 |
Dato : 12-04-07 11:14 |
|
3,35 pr. km. 1,78 pr. km.
udbetalt kr udbetalt kr
Kørte km Km. total Under 20000 km Over 20000 km
Januar 1690 1690 5661,5
Februar 6852 8542 22954,2
Marts 5408 13950 18116,8
April 3362 17312 11262,7
Maj 3000 20312 9004,8 555,4
Juni 3000 23312 5340,0
Juli 3412 26724 6073,4
August 2649 29373 4715,2
September 1852 31225 3296,6
Oktober 4632 35857 8245,0
November 2987 38844 5316,9
December 1548 40392 2755,4
| |
![](/images/profiles/icons/135500.jpg) | Kommentar Fra : berpox ![Tre en halv stjerne](/App_Themes/Normal/images/stars/small/star35.gif) |
Dato : 14-04-07 19:26 |
|
Hmmm....det tilsendte regneark havde ingen formler - nå men ligemeget med det.
Jeg har kigget på det - og man skal ud i en MEGET lang række af HVIS sætninger, mellemregninger osv. hvis det skal lykkes. Formlerne bliver så lange og komplekse, at overblikket fuldstændigt forsvinder.
Jeg tror der er mere held i at lave en makro der udfører beregningerne. Så det kigger jeg lige på....
| |
![](/images/profiles/icons/135500.jpg) | Accepteret svar Fra : berpox ![Tre en halv stjerne](/App_Themes/Normal/images/stars/small/star35.gif) | ![Fem stjerner](/App_Themes/Normal/images/stars/big/star50.gif) Modtaget 100 point Dato : 14-04-07 21:16 |
|
Yes - så er den der:
I celle B2 står kilometergrænsen: =20000
I celle B3 står kilometertaksten <=20000km/år =3,35
I celle B4 står kilometertaksten >20000km/år =1,78
I celle B7 til og med B18 indtastes de kørte kilometer i kalenderåret
På regnearket har jeg tilføjet en knap og har navngivet den cmdBeregn (via knappanelet "Kontrolelementer") der aktiverer makroen "BeregnKorepenge" der er lagt i Ark1 modulet (kan ses via VBA editoren vha. ALT+F11) når der trykkes på den.
Selve makroen kan ses herunder:
Kode Private Sub cmdBeregn_Click()
BeregnKorepenge
End Sub
Sub BeregnKorepenge()
' Udregner det akkumulerede kilometertal
For i = 7 To 18
Range("C" & i).Formula = "=SUM(B7:B" & i & ")"
Next
For i = 7 To 18
' Udregner udbetaling for kilometer under grænsen
If Range("C" & i) <= Range("B2") Then
Range("D" & i) = Range("B" & i) * Range("B3")
End If
' Udregner udbetaling i den månde grænsen overskrides
If Range("C" & i) > Range("B2") And Range("C" & i - 1) <= Range("B2") Then
Range("D" & i) = (Range("B2") - Range("C" & i - 1)) * Range("B3") + (Range("C" & i) - Range("B2")) * Range("B4")
End If
' Udregner udbetaling for kilometer over grænsen
If Range("C" & i) >= Range("B2") And Range("C" & i - 1) > Range("B2") Then
Range("D" & i) = Range("B" & i) * Range("B4")
End If
Next
'Beregner den akkumulerede udbetaling
Range("C20") = "Udbetalt ialt"
Range("D20").Formula = "=SUM(D7:D18)"
cmdBeregn.Caption = "Beregn kørepengeudbetaling" & _
vbNewLine & "Sidst beregnet " & vbNewLine & Now()
End Sub |
Der behøver ikke at være udfyldt for et helt år ad gangen - det eneste der kræves er, at brugeren trykker på knappen for at aktivere beregningerne. Knapteksten fortæller hvornår der sidst er beregnet. Dette gemmes sammen med regnearket, hvis man siger ja til at gemme ændringer....
Regnearket har jeg sendt til dig.....god fornøjelse, og husk at sige at du fik hjælp på Kandu
NB¹: Husk at aktivere "Med makroer" når regnearket åbnes, ellers virker det ikke!
NB²: Ovenstående er ikke nødvendigt, hvis makrosikkerhed i Excel er sat til "Lav" (Funktioner, Makro, Sikkerhed)
| |
![](/images/profiles/icons/113853.jpg) | Godkendelse af svar Fra : boro23 |
Dato : 15-04-07 16:46 |
|
Det er dog utrolig så dygtige I er på kandu. Skal nok give kandu så meget reklame jeg kan. Rigtig mange tak for svaret berpox.
| |
![](/App_Themes/Normal/images/Window/Backgrounds/User_Message.gif) | Du har følgende muligheder | |
|
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
| |
|
|