現在エクセルでいろんな計算式が入ってものを作りました。
ですが問題がでてきてしまって、印刷時に表示しないで印刷したい箇所が何カ所かあるのです。
その箇所が、A1~A10、B5、B7~B22 セルなのですが、
現在ボタンを設置したので、それを押すことで、このセルだけ表示しないようにしたいのですが、一番いいかなと思いついたのが、ボタンを押すだけで色が白くなり、画面に打つさないプログラムです。
そしてもう一度そのボタンを押すと指定セルが黒くなるというものです。
これができれば仕事上でかなり役立つプログラムとなり、現在の悩みが解決いたします。
どうかわかる方がいましたら教えて頂けないでしょうか?
お願い致します。
No.2ベストアンサー
- 回答日時:
補足された条件のマイナス値だけを赤にします。
Sub sample()
Dim c As Range
If Range("A1").Font.ColorIndex <> 2 Then
Range("A1:A10, B5, B7:B22").Font.ColorIndex = 2
Else
For Each c In Range("A1:A10,B5,B7:B22")
If c.Value < 0 Then
c.Font.ColorIndex = 3
Else
c.Font.ColorIndex = xlColorIndexAutomatic
End If
Next
End If
End Sub
End Sub
大変わかりやすいプログラムで本当にありがとうございました。
助かりました。hana-hana3さんのおかげで悩みが解決しました。
感謝でいっぱいです。
No.1
- 回答日時:
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
この回答への補足
早い回答本当にうれしいです。やってみたところできましたので本当に助かりました。 ですが、先ほど書き忘れてしまったのが、セルの中に赤色が含まれる部分があるのです。 それは数値が-に(例-5等)なっている部分です。そのためセルの中に黒or赤色が含まれており、これらを白にしたいのです。そしてもう一度ボタンを押すと、もとに戻す(数値が-のところは判別して赤色に戻す)ようにしたいのですが可能でしょうか?本当に困っていて、どうか教えて頂けるとうれしいです。
補足日時:2007/02/01 17:17お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Excel(エクセル) Excel VBAで、行の高さを、上下1文字分程度高くしたい 3 2023/04/23 00:17
- Visual Basic(VBA) VBAで早押しゲームを作りたい 4 2022/05/12 13:46
- プリンタ・スキャナー 印刷出来ません...エプソン EP302 トラブルシューティングについて 7 2022/07/16 10:20
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
連続する複数のセル値がすべて0...
-
ExcelVBAを使って、値...
-
TODAY()で設定したセルの日付...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
ExcelのVBAで数字と文字列をマ...
-
数字でピラミッドを出力させる...
-
excelで置換をしたいんですが
-
EXCELで変数をペーストしたい
-
特定の文字を条件に行挿入とそ...
-
VBA初心者です。結合セルを保持...
-
Excel VBA、 別ブックの最終行...
-
VBAでマクロ実行中はExcelのマ...
-
DataGridViewのセル編集完了後...
-
Excel VBAで、 ヘッダーへのセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
VBAの計算で@が出てしまう件
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
VBA ユーザーフォーム ボタンク...
-
VBAでセルをクリックする回...
-
Excel VBA、 別ブックの最終行...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
-
VBAを使用した時間管理
-
”戻り値”が変化したときに、マ...
-
Sub 要具ライフ() ActiveSheet....
おすすめ情報