カンマ区切りをもとに複数結果を取得してシートに貼り付けたい

Question

VBAを学習をしています。
以下のことを実現したいと考えております。

実現したいこと

カンマ区切りで複数結果を取得してシートに貼り付ける

具体的には「検索ID」に「1,2,3,4」と入力し「検索実行！」ボタンを押下すれば、シート2に以下のように出力されるイメージです。

カンマ区切りでひとつずつIDを渡してあげる感じです。

できているところ

検索実行ボタンを押下したときにシート2にテキストボックスに入力されている文字を転記するところまではできています。

しかし、カンマで検索IDを区切るところまでは実装することができておりません。

Private Sub 検索実行_Click()


    
    Worksheets(2).Cells(1, 1) = Worksheets(1).TextBox5.Text
    Worksheets(2).Cells(1, 2) = Worksheets(1).TextBox6.Text
    Worksheets(2).Cells(1, 3) = Worksheets(1).TextBox7.Text
    

End Sub

どなたか知恵を貸していただけると嬉しいです。

どうぞよろしくお願いいたします。

Answer 1

下記でどうでしょう。

Private Sub 検索実行_Click()
    Dim ary As Variant
    ary = Split(Worksheets(1).TextBox5.Text, ",")

    Dim cnt As Long
    cnt = UBound(ary) + 1
    If cnt = 0 Then Exit Sub

    Debug.Print cnt
    With Worksheets(2)
        .Cells(1, 1).Resize(cnt).Value = WorksheetFunction.Transpose(ary)
        .Cells(1, 2).Resize(cnt).Value = Worksheets(1).TextBox6.Text
        .Cells(1, 3).Resize(cnt).Value = Worksheets(1).TextBox7.Text
    End With
End Sub

Comments

[ypk]

ありがとうございます！無事に実現できました！助かりました、、、、！

ちなみに

WorksheetFunction.Transpose(ary)

についてあまり詳しく理解できませんでした。
もう少し、詳しく教えていただいてもよろしいですか？こちらは何の処理をしているものなのでしょうか？

[hatena19]

「VBA WorksheetFunction.Transpose」でWEB検索すれば、解説ページが腐るほど見つかりますので、まずはそれを読んでみてください。

[ypk]

1次元配列のデータを縦方向に入力することができるものだということを確認しました。
しかしなぜ、WorksheetFunction.TransposeをりようすることでWorksheets(1).TextBox5に入力されたカンマ区切りの文字列をひとつずつ出力することができるのでしょうか、、、、？
もともと一つの文字列だったものを、どうやって,で分割し3つのセルに設定できているのでしょうか。
お手数をおかけしますがどうぞよろしくお願いいたします。

[hatena19]

ary = Split(Worksheets(1).TextBox5.Text, ",")

上記のコードでテキストをカンマ区切りで分割して配列に変換しています。
Split関数についてやはりWEB検索してみてください。

[ypk]

ご丁寧にありがとうございます。
また機会があればよろしくお願いします