• 締切済み

VBA

下記に、ツールバーにある印刷ボタンを押すとチェックBOXがチェックされていない時印刷できないようにするというVBAですが下のVBAのような感じで 例えばセルA1にFALSEという文字が入っていたら印刷不可で印刷するかしないかを選択。もし、セルA1にTRUEという文字が入っていたら印刷可。 というのをVBA教えて下さい。 よろしくお願いします。 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

みんなの回答

  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

下記でいかがでしょうか? Private Sub Workbook_BeforePrint(Cancel As Boolean) With Worksheets("sheet1").Range("A1") If TypeName(.Value) = "Boolean" Then If .Value = False Or MsgBox("印刷しますか?", vbYesNo) = vbNo Then Cancel = True Else Cancel = True End If End With End Sub

01ts012
質問者

お礼

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

関連するQ&A