| |
おはようございます。
>エクセルのマクロでフォームのチェック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
として、当該チェックボックスにチェックが入っていない状態で
印刷ボタンをクリックしてみてください。
印刷の有無のメッセージが表示されます。
こういうことですか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
