Trenger litt hjelp med Excel VB editor

[MrTomTom]

Hei! Trenger litt hjelp med en skole oppgave jeg.

Jeg skal lage en makro i VB som skal beregne husleie ut i fra årsomsetningen.

Husleien skrives ut i kolonnen for Husleie pr. år. Husleiprosenten som ble brukt i

beregningen skrives også ut(F = Fast rente her 5%).

Makroen skal beregne husleien for alle lokalene i listen. Makroen må ta høyde for

at det kan legges inn/ tas ut lokaler i listen.

Makroen skal også knyttes til en knapp, men denne delen av oppgaven har jeg klart helt fint.

 

Har kommet fram til det her, men det virker ikke riktig på noen måte!:

 

Sub HusleiePrÅr()

If Range("C15") < Range("C9") Or Range("C15") > Range("C7") Then

Range("E15") = Range("C15") * 0.05

End If

If Range("C15") <= Range("C7") Then

Range("E15") = Range("C15") * 0.03

End If

If Range("c15") >= Range("c9") Then

Range("E15") = Range("C15") * 0.07

End If

If Range("B15") = "F" Then

Range("E15") = Range("C15") * 0.05

End If

End Sub

 

Sub jalla()

If Range("C15") < Range("C9") Or Range("C15") > Range("C7") Then

Range("D15") = Range("D8")

End If

If Range("C15") <= Range("C7") Then

Range("d15") = Range("D7")

End If

If Range("c15") >= Range("c9") Then

Range("d15") = Range("D9")

End If

If Range("B15") = "F" Then

Range("D15") = Range("D10")

End If

End Sub

 

 

Av en eller annen grunn får jeg ikke uploadet xls filen, så her har dere et bilde av den:

http://img87.imageshack.us/my.php?image=husleiefx3.png

[Harald Staff]

Regner med dette er en programmeringsøvelse, ellers løses dette bedre med excelformler.

 

Og hvis det er en programmerinsøvelse, så er første bud å loope igjennom lista rad for rad og gjøre noe. Siden det som skal gjøres er det samme, del dette i to: En rad-loop-prosedyre (for-next, sjekk hjelp) og en husleieberegningsfunksjon som skal ha input hvilken rad den skal bearbeide. Vi skal altså ikke ha Range("C15") men Cells(R, 3) der R er radnummer og 3 kolonnenummer.

 

Jobb litt med det og post tilbake hvis du står helt fast.

 

edit typo

 

HTH. beste hilsen Harald

Endret 5. november 2008 av Harald Staff

[Alexen]

Har ikke lyst til å løse oppgaven for deg så tenkte å slenge inn et par ting å tenke på. Er og litt usikker på kunnskapsnivået ditt. Vet du f.eks hva loops/Løkker er (for-next, do-while) ?

 

Nå ser det jo ut som du bare sjekker en celle (C15), hvordan skal du gjøre det viss brukeren har 325 lokaler?

En ide kunne kanskje være å sjekke C15, C16, C17 osv helt til du treffer en som er tom. En mulig måte å få dette til på vil være å kombinere en For-loop med CELLS(row, column). Cells(15,3) vil referere til C15.

 

I

Endret 5. november 2008 av The_Viper@EFNET