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

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

[[20080708221642]]: #score: 5499; @digest: d855e5326248a22a68e8594240e4902c; @id: 38981; @mdate: 2008-07-09T05:42:10Z; @size: 1692; @type: text/plain; #keywords: ”×× (7748), 象チ (7005), ェエ (4741), クボ (4405), checkbox1 (2313), ク1 (1840), チェ (1810), checkboxes (1754), ェッ (1513), ボッ (1339), クス (1075), ック (1021), ム」 (862), ichinose (826), ルツ (746), ッセ (660), メッ (657), トロ (650), ルチ (630), ルボ (594), セー (583), モジ (569), シジ (560), ジュ (544), click (532), ール (479), ャー (475), ォー (457), 「フ (416), ーム (404), スと (387), トモ (361); 『メッセージの表示』（みかん）
すみませんが教えて下さい。（Excel2000/WindowsXP）あるセルをフォームのチェックボックスとリンクしていてチェックが入るとそのセルがtrueとなります。そのチェックボックスにチェックが入ると”××も入力してください”というメッセージを表示させたいのですが、どのようにすればできるのでしょうか? チェックボックスにチェックが入る、もしくは、そのセルがtrueが表示されるとメッセージが表示されるようになるようにしたいのですが。 ---- これは、「コントロールツールボックス」にあるチェックボックスを使うほうが簡単ですよ!! 当該シートモジュールに Private Sub CheckBox1_Click() If CheckBox1.Value Then MsgBox "”××も入力してください" End If End Sub どうしても「フォーム」のチェックボックスというなら、出来ないことはないですが・・・。対象チェエクボックスに以下のプロシジャーを登録する標準モジュール '====================================================================== Sub chk_click() If Worksheets("sheet1").CheckBoxes("チェック 1").Value = 1 Then ' Sheet1というシートにある「チェック 1」というチェックボックスだとします MsgBox "xxも入力してくれ" End If End Sub sheet1のモジュールに '==================================================================== Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("a1")) Is Nothing Then chk_click End If End Sub これで確認してみて下さい ichinose ---- ichinoseさん早速の回答ありがとうございます。「フォーム」の方は私の設定の仕方の問題なのか作業しませんでしたがコントロールチェックボックスで対応したいと思います。ありがとうございました。 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200807/20080708221642.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ