|
おはようございます。
>エクセルのマクロでフォームのチェックBOXにレチェックをしていない時に印刷ボタンを押した時、印刷してもいいかのはい、いいえを出せるようなマクロを教えて下さい。(レチェックがある場合は表示なし)
>
>よろしくお願いします。
記述されたチェックBOXが仮にSheet1というシート名のシートに
チェック 1 という名前で貼り付けられているとすると・・・、
このブックのThisworkbookのモジュール(標準モジュールではありませんよ)に
'======================================
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("sheet1").CheckBoxes("チェック 1")
If .Value <> 1 Then
If MsgBox("印刷しますか?", vbYesNo) <> 6 Then Cancel = True
End If
End With
End Sub
として、当該チェックボックスにチェックが入っていない状態で
印刷ボタンをクリックしてみてください。
印刷の有無のメッセージが表示されます。
こういうことですか?
|
|