[[20080308232540]]　『チェックボックスとテキストボックスの連動』（そね）　ページの最後に飛ぶ

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

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

 例えば、ユーザーフォームで

 チェックボックス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さんありがとうございます。
 コメントを変えてしまいました。
 すみません。
 夜分遅くまでご指導ありがとうございます。

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

コメント返信：

[ 一覧(最新更新順) ]

[[20080308232540]] 『チェックボックスとテキストボックスの連動』（そね） ページの最後に飛ぶ

[[20080308232540]]　『チェックボックスとテキストボックスの連動』（そね）　ページの最後に飛ぶ