エクセルＶＢＡのことで

質問

Ａ１にａｂｃと入力されているとします。
また文字が入力されてない１文字分のテキストボックスが３つあるとします。
イメージとしては以下の感じです。

Ａ１　　　　　□
abc　　　　　□
　　　　　　　□

Ａ１の３文字を１文字ずつテキストボックスにコピーするスクリプトを知りたいのですが。

abc 　→　　a
　　　　　　　b
　　　　　　　c

(３つのテキストボックスの番号は"Text Box 501～Text Box 503"です）

以上、宜しくお願いします。

回答No.1

0shiete · ベストアンサー

文字列を一文字づつ分割し、別々のセルへ入れるマクロを示します。
String関数とReplace関数を使っています。
適宜アレンジしてください。

Sub separate()
Dim one As String
Dim myString As String

myString = "abcdabcd"

For i = 1 To 100
If myString = "" Then Exit For
one = String(1, myString)
Cells(i, 1) = one
myString = Replace(myString, one, "", 1, 1, vbTextCompare)
Next i

End Sub

お礼

ありがとうございました。
参考になりました。