Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35613 / 76807

←次へ　｜　前へ→


	【46392】VBAでボタンを押すと指定したセルの色が白く、もう一度押すと黒くするには。

彩 - 07/2/1(木) 17:48 -


	引用なし

	パスワード

現在エクセルでいろんな計算式が入ってものを作りました。
ですが問題がでてきてしまって、印刷時に表示しないで印刷したい箇所が何カ所かあるのです。　
その箇所が、A1～A10、B5、B7～B22　セルなのですが、
現在ボタンを設置したので、それを押すことで、このセルだけ表示しないようにしたいのですが、一番いいかなと思いついたのが、ボタンを押すだけで色が白くなり、画面に打つさないプログラムです。
そしてもう一度そのボタンを押すと指定セルが黒くなるというものでこれをつくりました。

If Range("A1").Font.ColorIndex <> 2 Then
Range("A1:A10", "B5", "B7:B22").Font.ColorIndex = 2
Else
Range("A1:A10", "B5", "B7:B22").Font.ColorIndex = xlColorIndexAutomatic
End If

しかしセルの中に赤色が含まれる部分があるのです。　
それは数値が－に（例－５等）なっている部分です。
そのためセルの中に黒or赤色が含まれており、これらを白にしたいのです。
そしてもう一度ボタンを押すと、もとに戻す（数値が－のところは判別して赤色に戻す）ようにしたいのですが可能でしょうか？
上のプログラムに何を追加したらいいのでしょうか？
わからず困っております。
これができれば仕事上でかなり役立つプログラムとなり、現在の悩みが解決いたします。
どうかわかる方がいましたら教えて頂けないでしょうか？
お願い致します。

2 hits

▼

【46392】VBAでボタンを押すと指定したセルの色が白く、もう一度押すと黒くするには。 彩 07/2/1(木) 17:48

≪