20120801

Looping



Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 10
Cells(i, 1).Value = i
Next
End Sub

Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)