【Excel VBA】フォーム上のテキストボックスに入力された複数の文字列を別々のセルに表示したい。

EXCELのVBAについて質問です。
複数記入可で選択式ではないアンケートの集計用にマクロを作っております。
以下のような動作をするマクロを教えて頂けると幸いです。

・ユーザーフォーム上で動かしたい
・[田中,高橋,山田]のような入力に対して、コマンドボタンを押した際に田中　高橋　山田をそれぞれ別々のセルに入力させたい

何卒宜しくお願い致します。

No.1 ベストアンサー 回答者： tom04 回答日時： 2019/11/05 17:52

こんにちは！

一例です。

テキストボックスは「Textbox1」とします。
そして、A列から順に右に向かって各セルに表示するとします。
尚、テキストボックスの文字列はカンマで区切っているという前提です。

Private Sub CommandButton1_Click()
　Dim k As Long, myRow As Long, myAry

　　With TextBox1
　　　If .Value <> "" Then
　　　　myRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
　　　　myAry = Split(.Value, ",")
　　　　　For k = 0 To UBound(myAry)
　　　　　　Cells(myRow, k + 1) = myAry(k)
　　　　　Next k
　　　　　　.Value = ""
　　　　　　.SetFocus
　　　End If
　　End With
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

早速のコメント、ありがとうございます！
上記コードを組み込んでみたところ、しっかりと求めていた通りの動きをしました！
大変助かりました。ありがとうございましたm(_ _)m

お礼日時：2019/11/05 21:05