『チェックボックスとテキストボックスの連動』（そね）

 まだ未熟者ですが宜しくお願いします。

 例えば、ユーザーフォームで
 
 チェックボックス1　テキストボックス1
 チェックボックス2　テキストボックス2
 チェックボックス3　テキストボックス3
 チェックボックス4　テキストボックス4

 というふうにユーザーフォームに設置して
 (文字で表現してわかりづらいですが・・・)
 
 チェック1 ON　テキスト1 A
 チェック2 OFF テキスト2 空欄
 チェック3 ON　テキスト3 B
 チェック4 ON　テキスト4 C

 としたときに、アクティヴな１つのセルに
 ABC　と入力されるというように
 チェックをつけた右隣のテキストを
 １つのセルに表示したいのです。

 宜しくお願いします。

----
 チェックがOFFでも、テキストが入力されている事が有るのですよね？
 この様な感じの事でしょうか？

 '------
 Private Sub CommandButton1_Click()
 Dim msg As String, i As Long

 For i = 1 To 4
     If Me.Controls("CheckBox" & i).Value = True Then
         msg = msg + Me.Controls("TEXTBox" & i).Value
     End If
 Next i

 ActiveCell.Value = msg
 End Sub

 (HANA)
----
 ありがとうございます。
 チェックがOFFでもテキストが入力されていることもあります。

 上記の質問の回答を参考にして解決しようと
 思っていましたが、私にはちょっと難しいです。

 最初から具体的に説明すればよかったのですが、
 現在、コマンドボタンを使って、コードに
 "単行本" TEXTBOX1.TEXT "巻"
 と表示していますが、
 
 コマンドボタンをクリックすると
 単行本A巻単行本B巻単行本巻単行本C巻
 とセルに表示されてしまいます。
 
 理想は、
 単行本A巻単行本B巻単行本C巻
 というようにチェックをつけていないテキストの
 コード上""で組み込まれている文も表示しないようにしたいのですが、
 可能でしょうか？

 重ね重ねすみません。
 宜しくお願いします。
 
 

 
----
 おっと、そねさんと衝突してしまいました。
 コメントを変えられたようですね・・・。
 前の書き込みから想像での修正コードです。
 ご希望と違うようで有れば、現在お造りのコードを
 載せてみるのが良いかもしれません。

 以下、衝突前の文章。

 ユーザーフォームに↓の様になっている　と言う事ですかね？

 チェックボックス1　"単行本" [テキストボックス1] "巻"
 チェックボックス2　"単行本" [テキストボックス2] "巻"
 チェックボックス3　"単行本" [テキストボックス3] "巻"
 チェックボックス4　"単行本" [テキストボックス4] "巻"

 こんな感じで良いのでしょうか？
 '------
 Private Sub CommandButton1_Click()
 Dim Mytxt As String, txt As String, i As Long

 For i = 1 To 4
     Mytxt = Me.Controls("TEXTBox" & i).Value
     If Me.Controls("CheckBox" & i).Value = True And Mytxt <> "" Then
         txt = txt + " 単行本" + Mytxt + "巻"
     End If
 Next i

 ActiveCell.Value = Trim(txt)
 End Sub
 '------

 もしも、コマンドボタンクリック後　一つ下のセルに移動したい場合は
 最後の行を
 With ActiveCell
    .Value = Trim(txt)
    .Offset(1, 0).Select
 End With
 の様にしても良いかもしれません。

 ちなみに、コード内の
「" 単行本"」の部分で
   ~ここに半角スペースが入っているので
 チェックが複数有った場合、それぞれの間に
 半角スペースが入ります。
 不要な場合は　消してください。

 (HANA)
----
 HANAさんありがとうございます。
 コメントを変えてしまいました。
 すみません。
 夜分遅くまでご指導ありがとうございます。

 ちょっと手前の都合がありまして一旦退室します。
 後日コードをアップしますので、
 ご指導のほど宜しくお願いいたします。