テキストボックスにチェックボックスの名前を順に表示したい。

前提・実現したいこと

作業毎の各メンバーの作業内容をエクセルに貼り付けるために
ユーザーフォーム内にボタンを押せば※チェックボックスがTrueの名前がテキストボックスに表示されるマクロを制作中です。
（※チェックボックスの名前がメンバーの名前です）

山田
岩鬼
殿馬
里中
上記のようにメンバーの名前が順番に並ぶように完成させたいのですがうまくいきません
どうぞご意見をよろしくお願いします。
※名前は架空の名称です。

発生している問題・エラーメッセージ

チェックボックス１の名前のみが表示され段返りされないので以降の名前が表示されない。

該当のソースコード

エクセル2016
ソースコード
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 5
If UserForm1.Controls("CheckBox" & i).Value = True Then
TextBox1.Value = UserForm1.Controls("CheckBox" & i).Caption
End If
Next i
End Sub

試したこと

ネット上でのサイトを閲覧していく。

補足情報（FW/ツールのバージョンなど）

Excel2016

行動規範の内容に同意します

回答2件

ベストアンサー

テキストボックスに名前を改行して表示させたいということでしょうか。

vba
1Private Sub CommandButton1_Click()
2    Dim i As Integer
3    For i = 1 To 5
4        If Me.Controls("CheckBox" & i).Value = True Then
5            TextBox1.Value = TextBox1.Value & _
6                             Me.Controls("CheckBox" & i).Caption & vbCrLf
7        End If
8    Next i
9End Sub

vbCrLf が改行文字になります。

テキストボックスで複数行表示させる（改行を有効にする）には、'MultiLine'プロパティをTrueに設定しておく必要があります。

投稿2021/02/08 06:22

編集2021/02/08 06:44

hatena19

総合スコア33699

momomo1986

2021/02/08 06:38

コメントありがとうございます。勉強が足りず申し訳ないのですが教えていただいたコードを実行してみましたところ名前と名前の間に数字の１のような記号が表示され改行されずに表示されています。記号の名前と意味が解らないので詳しく説明ができなくて申し訳ありません。

hatena19

2021/02/08 06:42 編集

テキストボックスで複数行表示させるには、テキストボックスの「MultiLine」プロパティを「True」に設定しておく必要があります。（回答にも追記しておきました。）

momomo1986

2021/02/08 06:52

解答いただきありがとうございました。細かな説明で教えていただき大変感謝してます。またの機会がありましたらお知恵をおかしください。

行動規範の内容に同意します

こんな感じでしょうか。

vba
1Private Sub CommandButton1_Click()
2    TextBox1.MultiLine = True
3    TextBox1.Value = ""
4    Dim i As Integer
5    For i = 1 To 5
6        If UserForm1.Controls("CheckBox" & i).Value = True Then
7            TextBox1.Value = TextBox1.Value & vbCrLf & UserForm1.Controls("CheckBox" & i).Caption
8        End If
9    Next i
10End Sub