Print side | Luk vindue

loop med variabel

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3195
Udskrevet den: 29.Apr.2024 kl. 06:34


Emne: loop med variabel
Besked fra: fiajakt
Emne: loop med variabel
Posteringsdato: 11.Okt.2017 kl. 17:50
Kan man sende en variabel til en Sub procedure med et loop?

F.eks 

En procedure med et loop starter en anden procedure med variabel værdier.


Dim i As Integer
i = 1
Do While i < 6

Call testsubprocedure
   
    i = i + 1
Loop

mvh 


Svar:
Besked fra: ThorØstergaard
Posteringsdato: 11.Okt.2017 kl. 17:56
Sub testsubprocedure(i as integer)
'sub kode
End Sub

Dim i As Integer
i = 1
Do While i < 6

   testsubprocedure i
   
    i = i + 1
Loop

I ovenstående eksempel overføres i og ændringer i i inde i testsubprocedure kommer med ud.

Er det ikke det du ønsker kan du i stedet bruge

Sub testsubprocedure(ByVal i As Integer)
'sub kode

End Sub


Print side | Luk vindue