Als u wilt in plaats daarvan van een lus voorzien, dan kunt u de code gebruiken u in Initialize sub postte, maar u wilt niet x + 1, wilt u x:
1: 2: 3: 4: 5: 6: 7: 8:
Privé SubUserForm_Initialize () Schemerig x zoals lang Met Me.DaysOfSupply Voor x = 1 tot 100 .AddItem x Volgende x Eind met Sub van het eind