エクセルで、こんなことできますか？

質問

使用ソフト、エクセル2000です。

文字に色をつけてあるセルと、セルに色をつけてある箇所が、いくつかあります。

印刷するとき、文字の色（フォントの色と呼ぶのでしょうか？）はつけて、セルの色（塗りつぶしの色と呼ぶのでしょうか？）はつけたくない・・・そんな印刷方法を設定することはできますか？

セルの色を解除して印刷かければ良いのは分かるのですが、文書の枚数が枚数だけに、それを簡単に行える方法があるのであれば、教えてください。

ご回答をお待ちしております。

回答No.6

nihonjinn

シートの数が多くて困っているのなら串刺しで入力してやればいいと思います。シート1を開いているときにCtrlボタンを押しながらシート２、シート３をクリックしてやります。その状態でセルの範囲の指定、セルへの入力、書式の設定、条件付書式の設定などをやって見るとそれぞれのシートで同じ内容のことをすることができます。

回答No.5

nihonjinn

印刷範囲外に印刷モード設定用セルを作ってやります。
たとえばセルK1に「入力規則」の「リスト」に「○,×」と設定し、印刷範囲全体を指定して条件付き書式での数式を
=$K$1="○"
条件付き書式のパターンを「色なし」と設定してやればいいと思います。
セルK1で○×を切り替えて印刷モードを切り替えてやればいいのです。

回答No.4

imogasi

ＶＢＡでやって見ました。
Ｓｈｅｅｔ３のＡ１：Ｇ１００”に印刷する表があるとします。Ｓｈｅｅｔ４は使っていないとして、一旦セルの色をＳｈｅｅｔ４に退避し、Ｓｈｅｅｔ３を白色にして、印刷して、Ｓｈｅｅｔ４のセルの色をＳｈｅｅｔ３に戻します。
Sub test01()
Dim c As Range
For Each c In Worksheets("sheet3").Range("a1:g100")
rw = c.Row
cl = c.Column
Worksheets("sheet4").Cells(rw, cl).Interior.ColorIndex = _
Worksheets("sheet3").Cells(rw, cl).Interior.ColorIndex
Worksheets("sheet3").Cells(rw, cl).Interior.ColorIndex _
= xlNone
Next
'-------
Range("a1:g100").PrintOut
'------
For Each c In Worksheets("sheet4").Range("a1:g100")
rw = c.Row
cl = c.Column
Worksheets("sheet3").Cells(rw, cl).Interior.ColorIndex = _
Worksheets("sheet4").Cells(rw, cl).Interior.ColorIndex
Next
End Sub
OKWEBで強制改行されているのでご注意下さい。

お礼

しっかりと質問の意味をご理解いただいたようで、ありがとうございます。
これから試してみます。

回答No.3

Hageoyadi

出来そうにないので代替案。
1.グレースケールでの印刷
2.ページ設定から「白黒印刷」を選択。
3.「１」と「A」の間を右クリックして「セルの書式設定」から一気にすべてのセルの塗りつぶしを解除してしまう。

3.の場合は元に戻すのが大変なので、いったん上書き保存してから、ですね。

回答No.2

angel_or_devil

(1)ここをクリック
↓　
　Ａ　Ｂ　Ｃ
１
２
３

(2)セルの書式設定→パターン→色なし
　をクリックすれば、いっぺんに、パターンを消すことができますが、それでは、ダメですか？

回答No.1

tbobi

全て選択(Ctrl + A)して、
右クリックから、セルの書式設定を開き、
パターンタブで、塗りつぶしの色を　なし　にすればよいのでは？