Excel VBAで複数行入力可能なテキストボックスを複数列に表示する方法

2009/04/06 16:15

このQ&Aのポイント

Excel VBAで複数行入力可能なテキストボックスに入力された文字を上段から１行ずつA10からC10と列に転記する方法をご教示ください。
現在ユーザーフォーム上に３つのテキストボックス（複数行ではありません）があり、それぞれに文字を打ち込んで、コマンドボタンでセルに転記させているのですが、もっと効率のよい方法はないのかと思い探したものの見つけられませんでした。
複数行入力可能なテキストボックスを使用して、上段から順に入力された文字をA10からC10と列に転記する方法を教えてください。

noname#240856

Visual Basic
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

n-jun
ベストアンサー率33% (959/2873)

2009/04/06 16:35 回答No.1

Private Sub CommandButton1_Click() Dim v As Variant v = Split(TextBox1.Text, vbCrLf) Worksheets("Sheet1").Range("A10").Resize(, UBound(v) + 1).Value = v End Sub みたいなこと？