[[20180907154846]]　『条件付き書式をVBAでONOFFする』（からし）　ページの最後に飛ぶ

『条件付き書式をVBAでONOFFする』（からし）

初めまして、
会社で使っている表でＡＢ列の部分に地域と会社名が入っており、
条件書式を使って別の列で判断し色わけがされています。

印刷の際に、すべての色を消して印刷して元の色に戻すという作業を行ってい角ですが、急に作業枚数が増えてしまった為作業が追い付きません。

複数の条件書式のオンオフが一度にできるととても作業が短縮されると思うのですが、そういったことはできるのでしょうか？

出来るようでしたら教えていただけると嬉しいです。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 文字色を白にしているなどがなければ印刷時に

 □白黒印刷

 にチェックを入れるのではダメですか？
（コナミ） 2018/09/07(金) 16:30

コナミさん

ご返信ありがとうございます。
自分もそう思い提案をしたのですがかたくなに拒否をされてしまいまして、

昔はVBAがあったけど誰かが壊して消えたとお局さんが言っていました…
（からし） 2018/09/07(金) 16:36

パッと思いついた方法としては、
条件付き書式を全部削除
印刷
ファイルを保存しないで閉じる
とかどうでしょう
（ゆ） 2018/09/07(金) 16:38

 できないと思います。
 あるか無いかの2通りだけだと思う。

 まあ、作業セルをフラグに使って優先順位を1番にしてやればその後は動作しなくなるとは思うけど、
 オンオフとは違いますね。

 >昔はVBAがあったけど

 いつの時代なんだろう？
 Office95以前？
（BJ） 2018/09/07(金) 16:41

 白黒印刷を使わないなら私もBJさんの書かれているようにフラグセルを作ることで
 対応するのがわかりやすくていいと思います。

 それにしても便利な機能を嫌がるというのはどういう心理なんでしょうね。
（コナミ） 2018/09/07(金) 16:58

ゆさん

それもやったんです…
上書き保存をした馬鹿がいたんです（涙）

BJさん

やっぱりできないのですか…。

謎なのです。
僕も勤続15年になるのですがそんなものは使ったことはありませんね。

コナミさん

条件付き書式を教わったからそれしかやっちゃいけないとでも思っているのかもしれません、
下手なとこ触るとわからなくなるって、新人君に怒鳴り散らしてたので

もうちょっとミスが減らせないかなと思たんですが…
残念です。

いっそボタンに印刷というのを作って、ボタンを押すと
白黒印刷にチェックが入った状態の印刷プロパティが出てきたら便利なんですけどね。

自分の分だけでもごまかしで白黒印刷で作業アップしようと思います
（からし） 2018/09/07(金) 17:06

昔、コピペで崩れる条件付き書式対策で似たような事をした覚えがあります
かなり力技ですが…

1.全部の条件付き書式を、vbaで設定できるよう予め書きます
2.全部消します
1、2を起動する

見た目上、オンオフに…

（ゆ） 2018/09/07(金) 17:19

いっそボタンに印刷というのを作って、ボタンを押すと白黒印刷にチェックが入った状態の印刷プロパティが出てきたら便利なんですけどね。

え、それがOKなんですか？
白黒印刷の設定って毎回やる必要はなくて、
シートに一度設定すれば次からチェックは入ったままですよね？

それか、

オフボタン

 Sheets("Sheet1").PageSetup.BlackAndWhite = True 
オンボタン
 Sheets("Sheet1").PageSetup.BlackAndWhite = False

（TAKA） 2018/09/07(金) 17:27

条件付き書式をスイッチ制御？するって話なら、こちらが参考になりませんか？
[[20180731214402]]『マクロ教えてください！！』（mico）
（もこな２） 2018/09/07(金) 18:34

 白黒印刷を予め設定しておくのは、叱られるんですよね？

 印刷は常に白黒印刷と同じ状態で良いのでしたら、ThisWorkbookモジュールに以下のコードを貼り付けとけば、
 印刷時だけ自動で白黒印刷になり印刷終了すれば元に戻るので、予め白黒印刷設定するのと同じ事ですが、
 叱られる心配は無いんじゃないでしょうか。

 少し改良すれば、指定のシートだけ白黒印刷するとか、
 メッセージボックスを表示させて白黒と通常を選択するとかも可能です。
 この後者の方法は質問の主旨に一番合致してるんじゃないでしょうか？

 Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Cancel = True
    With ActiveSheet
        .PageSetup.BlackAndWhite = True
        Application.EnableEvents = False
        .PrintOut
        Application.EnableEvents = True
        .PageSetup.BlackAndWhite = False
    End With

 End Sub

（sy） 2018/09/07(金) 19:39

コメント返信：

[ 一覧(最新更新順) ]

[[20180907154846]] 『条件付き書式をVBAでONOFFする』（からし） ページの最後に飛ぶ

[[20180907154846]]　『条件付き書式をVBAでONOFFする』（からし）　ページの最後に飛ぶ