Saturday, 17 May 2014

Excel vba program to print a word in the order




Program

Sub Button1_Click()
Dim name As String
Dim length, i As Integer
name = InputBox("Enter a Name")
length = Len(name)
For i = 1 To length
Cells(i, 1).Value = Mid(name, 1, i)
Next

End Sub

0 Comments:

Post a Comment

Subscribe to Post Comments [Atom]

<< Home