- Excel VBA 質問スレ Part34
285 ：デフォルトの名無しさん[sage]：2014/08/08(金) 01:08:03.18 ID:ZZsJf1aL - まあ、こんな感じか
Dim i As Long
Dim targetCol As Long
targetCol = Sheet1.Range("E1").Column
For i = Len(TextBox1.Text) To 1 Step -1
Sheet1.Cells(1, targetCol).Value = Mid(TextBox1.Text, i, 1)
targetCol = targetCol - 1
If targetCol <= 0 Then Exit For
Next
随所に手抜きがあるが
|