Om du önskar att kretsa i stället, då du kan använda kodifiera som du postade i initialiseringssuben, men du önskar inte x + 1, dig önskar x:
1: 2: 3: 4: 5: 6: 7: 8:
Privata underUserForm_Initialize () Dunkelt x som long Med Me.DaysOfSupply För x = 1 till 100 .AddItem x Nästa x Avsluta med Avsluta suben