Avatar billede pejsen Nybegynder
20. september 2014 - 19:45 Der er 1 løsning

VBA EXCEL : Do while + for next

Hej

Jeg skal løse følgende:

Har variabler i nedenstående celler:
A1=750 = myStartVal
A2=15 = myCounter
A3=50 = mySubtract
A4=4 = myLoop

Skal udfører nedestående via VBA
D1=(A1-A3) '700
D2=(D1-A3) '650
D3=(D2-A3) '600
D4=(D3-A3) '550
osv..
Den skal udfylde værdier i 15 celler =(myCounter)
Når sidste celle er lig = 0, så skal den kører forfra fra med start i D16=(A1-A3) '700
D17=(D1-A3) '650
D18=(D2-A3) '600
D19=(D3-A3) '550
osv..
Koden skal afvikles efter variablen i A4(myLoop)

Kan I hjælpe med udvide nedenstående kode, således den eksevers som i ovenstående beskrivelse.
--------------------------------------------------------
Dim myStartVal, myCount, mySubtract, myLoop, RowNo,ColNo x As Long
Dim i as Integer

Set wb = ActiveWorkbook
Set ws = ActiveSheet

myStartVal= ws.Cells(1, 1).Value
myCounter= ws.Cells(2, 1).Value
mySubtract=ws.Cells(3, 1).Value
myLoop ws.Cells(4, 1).Value

Const Rowno = 1
Const Colno = 4


'Min start celle er D1 og derefter D2, D3, D4... osv.
'D1=myStartVal, D2 =myStartVal - Mysubtract, D3 =myStartVal-1 -  Mysubtract

Cells(RowNo, ColNo).Value = myStartVal

For i = ColNo + 1 to ColNo + mycounter
x = mySubtract 
    Cells(RowNo, i).Value = Cells(Rowno, i - 1) - x
Next i

End sub
Avatar billede pejsen Nybegynder
05. oktober 2014 - 14:24 #1
n/a Lukket
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester