エクセルの学校：全文検索：Hyper Estraier：チェックボックス

Results of 1 - 1 of about 978 for チェックボックス (0.008 sec.)

[[20080308232540]]: #score: 5499; @digest: 6cb2996c945df2f1e90928309bbe2995; @id: 36622; @mdate: 2008-03-08T16:33:03Z; @size: 3277; @type: text/plain; #keywords: 単行 (87290), 行本 (79180), 巻" (42335), 巻単 (38744), 本" (15881), 本b (10014), 本c (8325), 本巻 (7748), ス4 (7364), 巻と (7213), 本a (7145), ス3 (4996), クボ (4956), mytxt (4445), テキ (4027), キス (3722), ス2 (3437), トボ (2710), ボッ (2679), controls (2552), ス1 (2540), チェ (2506), ェッ (2270), checkbox (2265), クス (2151), 数有 (2004), ック (1849), スト (1357), ドボ (1250), textbox (1128), ク2 (928), ク1 (920); 『チェックボックスとテキストボックスの連動』（そね）
まだ未熟者ですが宜しくお願いします。例えば、ユーザーフォームで チェックボックス1 テキストボックス1 チェックボックス2 テキストボックス2 チェックボックス3 テキストボックス3 チェックボックス4 テキストボックス4 というふうにユーザーフォームに設置して (文字で表現してわかりづらいですが・・・) チェック1 ON テキスト1 A チェック2 OFF テキスト2 空欄チェック3 ON テキスト3 B チェック4 ON テキスト4 C としたときに、アクティヴな1つのセルに ABC と入力されるというようにチェックをつけた右隣のテキストを 1つのセルに表示したいのです。宜しくお願いします。 ---- チェックが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さんありがとうございます。コメントを変えてしまいました。すみません。夜分遅くまでご指導ありがとうございます。ちょっと手前の都合がありまして一旦退室します。後日コードをアップしますので、ご指導のほど宜しくお願いいたします。 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200803/20080308232540.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ