Excelのセルの塗りつぶし色の変え方、または印刷時の濃さ

質問

エクセルのセルが色で塗りつぶされています。
（「セルの書式設定」の「パターン」タブで付けたものです。）

そのセルには、文字が入力されているのですが、セルに付けた色が濃かったため、
印刷したら、文字が読みにくくなってしまいました。

プリンタは白黒なので、カラーの色で表示されている画面とは、違って見えます。

そこで、次の２つのことを考えました。

・セルの色を薄い色に付け直したい。しかし、色の付いているセルの数は多いし、ばらばらなので、一つ一つ付け直すのではなくて、簡単に付け直す方法はないだろうか。

・セルの色を付け直さなくても、印刷するときに、色が薄くなればいいのではないだろうか。もちろん、文字の色は薄くしない。

これらのことを行うにはどうすればよいのでしょうか。
塗りつぶしの色は、１色です。

Excel2000です。

回答No.7

imogasi

#5です。
＞セルに色が表示されるのですね。
ちがいます。セルの色（パターン）のコード数字をそのセルに入れているつもりですが。

お礼

すみません。
そのことはわかっています。

私の書き間違い（打ち間違い）です。申し訳ありません。

回答No.6

koma1000nin

#4です。
読みにくいセルだけ、文字の色を白色にしてはどうですか？
レーザプリンタでは純赤色は純黒で表現されるので、インクジェット方式の環境で設定しておいても、会社で印刷したとき効果ありと思いますよ。

補足

そうなんです、セルの色が濃いなら文字を白くすればよい。
あまり私の希望ではないですが、回答としてはまったくその通りです。

しかし、色の付いたセルは、シートの中にたくさんあって、点在しています。
色の付いたセルをすべて選び、まとめて文字の色を白にすればよいのです。
しかし、
色の付いたセルをすべて選ぶ作業をパパッとまとめて行いたいのです。
その方法がわかりません。

色の着いていないセル（白いセル）までまとめて選んでしまったら、
そのセルでは、文字がみえなくなってしまいます。

回答No.5

imogasi

#3です。
＞自分がもともとセルに付けた色が何番かはどのようにしてわかるのでしょうか。
以下終りまでの疑問。これに対する対処。
痛いところをつかれました。心配はしてました。
実際ＶＢＡをやられるかどうかと思っていましたので、説明省略した部分があります。
（１）現在どんな色がセルのパターン色に使われているか
問題にしているシートを別シートにコピーして下さい。
データはクリアしてください。
そして色セルのある範囲を四角形的に範囲指定してください。
そして下記を実行してください。
Sub test03()
Dim cl As Range
For Each cl In Selection
If cl.Interior.ColorIndex = -4142 Then
Else
cl = cl.Interior.ColorIndex
End If
Next
End Sub
色付きのセルにコード数字が出ます。
５０数種の色コードでなく、ＲＧＢ（ｒ、ｇ、ｂ）で表す色指定もあります（１６００万色）。この場合は、殆どお手上げであることを白状しておきます。
（２）＃３の補足の確認について
１．＞まず、EXCELを立ち上げ（新規）、
ＶＢＡのコードをいれるのは当該ブックでよい。
２．＞Microsoft Visual Basic のウィンドウで
表示-コード
VisualBasicEditorの画面でメニューの挿入－標準モジュールで出る画面（コードウインドウ）にコピーして貼りつける。Test01().Test02(),test03()とも。
３．＞貼り付け先の列を選択して
列に限りません。点在していてもかまいません。それらが全て含まれるように範囲指定して、実行してください。
４．

お礼

詳しくありがとうございます。
やってみます。

補足

やってみました。
セルに色が表示されるのですね。

回答No.4

koma1000nin

図形や画像の色を薄く設定するのはプリンタ側で出来ます。
[ファイル]→[印刷]→[オプション]→[ここから後はプリンタ機種ごと]
操作によって、印刷の濃さを指定できるはずです。インクが勿体無い（もしかしたらレーザ？）ので、小さなサンプルを作って試してから本番実施してください。

補足

申しわけないのですが、
色が白黒なのは職場のプリンタで、今私が家で使っているプリンタはカラー（インクジェット）なので、試せません。
（Excelは職場も2000です。）

とりあえず、私のPC＆プリンタでは、そういった設定はできそうにありません。
セルの色だけ薄くして文字は濃くするどころか、
印刷の濃さの調節もできないようです。
そのくらいできてもよさそうですが。

回答No.3

imogasi

エクセル２０００までは、色の検索・置換が出来ない
と思います。
ＶＢＡと言うものでやれば、何色も使われている場合も一括変更できます。
空いたシートを選んで
Sub test02()
For i = 1 To 56
Cells(i, "A") = i
Cells(i, "B").Interior.ColorIndex = i
Next i
End Sub
を実行すると、色コードの何番はどんな色か判ります（準備です）。
これで使っているコードと、変えた後のコードを決めてください。
Sub test01()
iro1 = Array(3, 5, 9)
iro2 = Array(7, 8, 19)
Dim c As Range
For Each c In Selection
For j = 0 To UBound(iro1)
If c.Interior.ColorIndex = iro1(j) Then
c.Interior.ColorIndex = iro2(j)
Exit For
End If
Next j
Next
End Sub
の中の
iro1 = Array(3, 5, 9)
iro2 = Array(7, 8, 19)
の部分は
iro1 = Array(3, 5, 9)
　　　↓
iro2 = Array(7, 8, 19)
に変えると言う意味で、
色コードで、３－＞７、５－＞８、９－＞１９に変えたいときの書き方で、ペアの数を４つ以上増やしても良く、１つだけ（本質問はこれらしい）でも良いです。
自分の場合に合わせて、
iro1 = Array(3, 5, 9)
iro2 = Array(7, 8, 19)
を修正します。
そして上記プログラムを実行すると、セルは対応した色に変ります。
実行するときには色の付いたセルを包含する範囲を範囲指定して実行します。
複雑な微妙な色を使ってなければ、上記で出来ます。

補足

実は私はVBAはほとんど使ったことがないし、コードの詳細も見ていないのです。
が、次のようにするわけですね。

まず、EXCELを立ち上げ（新規）、
ツール-マクロ-Visual Basic Editor

Microsoft Visual Basic のウィンドウで
表示-コード

ご回答中の初めの「凖備」のコードを貼り付けて、実行すると
エクセルのシートの
Ａ列に番号、Ｂ列に色
が表示されるのですね。

そして、この、Ｂ列の色の列を、別のブックに貼り付けます。
そして、貼り付け先の列を選択して、ご回答の色置換のコードを実行しますと、
ご回答どおり、
３の色は７の色に、５の色は８の色に、９の色は１９の色に
なります。

また、ご回答どおり、色のペアは３組である必要はなく、
iro1 = Array(5)
iro2 = Array(8)
なら５番の色が８番の色に変わるわけですね。

ただ、自分がもともとセルに付けた色が何番かはどのようにしてわかるのでしょうか。
最初のコードを実行すると、56個の色が表示されます。
56個の色を目で識別できれば構わないのですが、似ている色もあります。

色の付いたセルを選択し、「セルの書式設定」で「パターン」タブを選ぶと、
左側に色のパレットのようなもの（５６個の色）があって、
セルに付いた色が凹んでいます。

この色パレットの　何行何列の色が何番かがわかりません。
（何番がどんな色なのかは、最初のコードでわかるのですが。）

回答No.2

web2525

検索と置き換えで、書式の設定で検索の色を指定して置き換えの色を指定で置き換え可能

お礼

どのバージョンのExcelでセルの色の置換ができるかはわからなかったのですが、
少なくとも、Excel2000では、できないようです。

回答No.1

papayuka

ツール－オプション－色のタブで、パレット上の使った色を好みのものに変更すれば良いと思います。

お礼

ご回答ありがとうございます。

色そのものを変えるわけですよね。
なんでも私は、初め、ここを変えると、このＰＣでのエクセルの設定がすべて変わるのかと思いました。
ここの設定はブック（ファイル）ごとに別々のようですね。

これなら、使えそうです。