/ Forside/ Teknologi / Administrative / MS-Office / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Formler til kørselsberegning
Fra : boro23
Vist : 2550 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


 
 
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.

Kommentar
Fra : berpox


Dato : 12-04-07 09:01

Du kan maile til mig på <<profilnavn>>@hotmail.com så skal jeg kigge på det i løbet af formiddagen

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


Kommentar
Fra : berpox


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å....

Accepteret svar
Fra : berpox

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)


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.

Kommentar
Fra : berpox


Dato : 15-04-07 18:29

Velbekomme - og husk: næsten alt kan løses med VBA



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.
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste