エクセルのマクロで入力文字を一文字ずつ並んだセルに入れる

質問

エクセルマクロ超初心者です。
エクセルVBAでユーザーフォームを作成しました。
テキストボックスに入力した文字列を「登録」ボタン押下後、エクセルシートのセルに一文字づつ入るようにするにはどうすれば良いでしょうか？
例えばテキストボックスに「ｋｏｈｉｒｏ」と入力するとエクセルのsheet1のA1「ｋ」、B1「ｏ」、C1「ｈ」、D1「ｉ」、E1「ｒ」、F1「o」となるようにしたいのです。入力する文字数は０～３０文字までで、その都度長さは変わります。どうやって、文字をばらせばいいのか、またどうやって可変長の文字列を指定したセルに入力すればいいのかわかりません。どうかよろしくお願いいたします。

回答No.3

wildcard · ベストアンサー

#2の者ですが、一部ミスがありましたので下記の通り訂正させて頂きます。

　　Dim AA As String
　　Dim a, b As Integer
　　'AAには、テキストボックスの値を代入してください。
　　AA = "wildcard"
　　a = Len(AA)
　　For b = 1 To a
　　　　Cells(1, b).Value = Mid(AA, b, 1)
　　Next b

お礼

出来ました！感動です！本当に嬉しいです。
ありがとうございました。さらに質問をしています。是非お力を貸してください！！

回答No.2

wildcard

こんな感じでしょうか？len関数で文字列の長さを求め、
Forループを利用しながら、mid関数で文字を抽出すると言う方法です。

　　Dim AA As String
　　Dim a, b As Integer
　　'AAには、テキストボックスの値を代入してください。
　　AA = "wildcard"
　　a = Len(AA)
　　For b = 1 To a
　　　　Cells(1, c).Value = Mid(AA, b, 1)
　　Next b

回答No.1

taknt

aにテキストの文字列をセットします。

for b=1 to len(a)
Range("A" & b).Value=Mid(a,b, 1)
next

未確認ですが、こんな感じでどうでしょうか？