[[20080708221642]]　『メッセージの表示』（みかん）　ページの最後に飛ぶ

『メッセージの表示』（みかん）

すみませんが教えて下さい。（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さん

早速の回答ありがとうございます。

「フォーム」の方は私の設定の仕方の問題なのか作業しませんでしたがコントロールチェックボックスで対応したいと思います。

ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20080708221642]] 『メッセージの表示』（みかん） ページの最後に飛ぶ

[[20080708221642]]　『メッセージの表示』（みかん）　ページの最後に飛ぶ