Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28388 / 76732 ←次へ | 前へ→

【53642】Re:チェックBOX
発言  じゅんじゅん  - 08/1/28(月) 9:50 -

引用なし
パスワード
   ▼ichinose さん:
>おはようございます。
>'======================================
>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

こうゆう方法があったのですね。
勉強になりました。(早速メモさせて頂きました)
0 hits

【53625】チェックBOX たく 08/1/26(土) 23:17 質問
【53627】Re:チェックBOX じゅんじゅん 08/1/27(日) 6:14 発言
【53638】Re:チェックBOX たく 08/1/27(日) 22:39 発言
【53639】Re:チェックBOX じゅんじゅん 08/1/27(日) 22:49 発言
【53640】Re:チェックBOX ichinose 08/1/28(月) 7:10 発言
【53642】Re:チェックBOX じゅんじゅん 08/1/28(月) 9:50 発言
【53675】Re:チェックBOX たく 08/1/30(水) 21:26 お礼

28388 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free