Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2651 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【66751】印刷実行時に動くマクロ との 10/10/3(日) 18:19 質問[未読]
【66757】Re:印刷実行時に動くマクロ Jaka 10/10/4(月) 11:20 発言[未読]
【66758】Re:印刷実行時に動くマクロ teian 10/10/4(月) 11:48 発言[未読]
【66759】Re:印刷実行時に動くマクロ nh 10/10/4(月) 22:10 回答[未読]
【66751】印刷実行時に動くマクロ
質問  との  - 10/10/3(日) 18:19 -
引用なし
パスワード
   aaa.xlsにSheet1〜Sheet6があります。
Sheet5を印刷しようとすると、A4サイズ72枚にも及びます。
そのため、印刷実行時に、印刷範囲にSheet5が含まれていれば、
「Sheet5を印刷すると非常に多くの枚数の出力がされますが、このまま実行してよろしいですか？」
というYES/NOの選択し付きのmsgboxを出そうと思います。

ただ、『印刷実行時に、印刷範囲にSheet5が含まれていれば』という部分が私には難しく
書けません。
みなさんのお力を拝借したいと思います。
よろしくお願いいたします。
【66757】Re:印刷実行時に動くマクロ
発言  Jaka  - 10/10/4(月) 11:20 -
引用なし
パスワード
   こういうので良いんじゃないですか。

Dim Ws As Worksheet
For Each Ws In ActiveWindow.SelectedSheets
　　MsgBox Ws.Name
Next
【66758】Re:印刷実行時に動くマクロ
発言  teian  - 10/10/4(月) 11:48 -
引用なし
パスワード
   あとは定番ですが、コレクションの中から目的のオブジェクトを取り出せるか試してみて、
エラーになる否かで含まれているか確認する方法です。

　　Dim sht As Object　　
　　On Error Resume Next
　　Set sht = ActiveWindow.SelectedSheets.Item("Sheet5")
　　On Error GoTo 0
　　MsgBox "選択シートにSheet5は含まれて" & IIf(sht Is Nothing, "ません", "ます")
【66759】Re:印刷実行時に動くマクロ
回答  nh  - 10/10/4(月) 22:10 -
引用なし
パスワード
   ▼との さん：
>aaa.xlsにSheet1〜Sheet6があります。
>Sheet5を印刷しようとすると、A4サイズ72枚にも及びます。
>そのため、印刷実行時に、印刷範囲にSheet5が含まれていれば、
>「Sheet5を印刷すると非常に多くの枚数の出力がされますが、このまま実行してよろしいですか？」
>というYES/NOの選択し付きのmsgboxを出そうと思います。
>
>ただ、『印刷実行時に、印刷範囲にSheet5が含まれていれば』という部分が私には難しく
>書けません。
>みなさんのお力を拝借したいと思います。
>よろしくお願いいたします。


印刷前にというのはThisWorkbookの

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

でキャッチできるからそこでメッセージを出せばいいのかぁと
（試したことはないですが
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2651 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free