Makro i Excel ved bruk av VB

[delphius]

Hei!

 

Vi har en "enkel" øvingsoppgave på skolen. Og det så ikke ut til at lærern klarte den heller

 

VB-koden skal utføre en =HVIS-setning med logisk betingelse. Slik ser =HVIS-setningen ut :

=HVIS(startcelle>kriteriegrense;høyeste_sats;laveste_sats)

 

Er ganske fersk, men har fått en celle til å oppdatere seg utifra en logisk betingelse, vil gjerne

at foreldrebetalingen for ALLE barna skal regnes ut, ved bruk av VB-makro.

 

Regnearket :

 

 

Barnehagesatser:

 

Barn Årsinntekt Foreldrebetaling

Liv Laga Fritjof 500000 1500

Vår Høst Mette-Marit 120000

Trude Luth Haakon 340000

Ulla Bomull Nøste 288000

Finn Rad Neste 350000

 

 

Laveste sats 500

Høyeste sats 1500

Kriteriegrense 200000

Laveste sats hvis Årsinntekt <= 200000

 

 

 

Sub Barnehageplass()

Dim inntekt, høyeste, laveste, kriterie, rekke, kolonne

høyeste = Range("høyeste_sats").Value

laveste = Range("laveste_sats").Value

kriterie = Range("kriteriegrense").Value

rekke = Range("startcelle").Row

kolonne = Range("startcelle").Column

Do While rekke < 9

inntekt = Cells(rekke, kolonne).Value

 

If inntekt > kriterie Then Range("betaling") = Range("høyeste_sats")

 

 

Loop

Cells(rekke, kolonne + 1).Value = "Ferdig!"

End Sub

[Harald Staff]

Nesten all koden din handler om å håndtere navngitte celleområder- Type Range("betaling"), Range("høyeste_sats").

 

Glem alt det. Finn ut hvordan løkker virker, Do-while, For-next. Og hvorfor. Og når bruke hvilken.

 

HTH. Beste hilsen Harald

[Wolverin]

Hei!

 

Vi har en "enkel" øvingsoppgave på skolen. Og det så ikke ut til at lærern klarte den heller

 

VB-koden skal utføre en =HVIS-setning med logisk betingelse. Slik ser =HVIS-setningen ut :

=HVIS(startcelle>kriteriegrense;høyeste_sats;laveste_sats)

 

Er ganske fersk, men har fått en celle til å oppdatere seg utifra en logisk betingelse, vil gjerne

at foreldrebetalingen for ALLE barna skal regnes ut, ved bruk av VB-makro.

 

Regnearket :

 

 

Barnehagesatser:

 

Barn Årsinntekt Foreldrebetaling

Liv Laga Fritjof 500000 1500

Vår Høst Mette-Marit 120000

Trude Luth Haakon 340000

Ulla Bomull Nøste 288000

Finn Rad Neste 350000

 

 

Laveste sats 500

Høyeste sats 1500

Kriteriegrense 200000

Laveste sats hvis Årsinntekt <= 200000

 

 

 

Sub Barnehageplass()

Dim inntekt, høyeste, laveste, kriterie, rekke, kolonne

høyeste = Range("høyeste_sats").Value

laveste = Range("laveste_sats").Value

kriterie = Range("kriteriegrense").Value

rekke = Range("startcelle").Row

kolonne = Range("startcelle").Column

Do While rekke < 9

inntekt = Cells(rekke, kolonne).Value

 

If inntekt > kriterie Then Range("betaling") = Range("høyeste_sats")

 

 

Loop

Cells(rekke, kolonne + 1).Value = "Ferdig!"

End Sub

 

Vil si at dersom lærerene ikke greier å løse denne, så burde dere virkelig klage og be om noen lærere som faktisk kan programmering....