![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
エクセルのセルが色で塗りつぶされています。
(「セルの書式設定」の「パターン」タブで付けたものです。)
そのセルには、文字が入力されているのですが、セルに付けた色が濃かったため、
印刷したら、文字が読みにくくなってしまいました。
プリンタは白黒なので、カラーの色で表示されている画面とは、違って見えます。
そこで、次の2つのことを考えました。
・セルの色を薄い色に付け直したい。しかし、色の付いているセルの数は多いし、ばらばらなので、一つ一つ付け直すのではなくて、簡単に付け直す方法はないだろうか。
・セルの色を付け直さなくても、印刷するときに、色が薄くなればいいのではないだろうか。もちろん、文字の色は薄くしない。
これらのことを行うにはどうすればよいのでしょうか。
塗りつぶしの色は、1色です。
Excel2000です。
A 回答 (7件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
#4です。
読みにくいセルだけ、文字の色を白色にしてはどうですか?
レーザプリンタでは純赤色は純黒で表現されるので、インクジェット方式の環境で設定しておいても、会社で印刷したとき効果ありと思いますよ。
この回答への補足
そうなんです、セルの色が濃いなら文字を白くすればよい。
あまり私の希望ではないですが、回答としてはまったくその通りです。
しかし、色の付いたセルは、シートの中にたくさんあって、点在しています。
色の付いたセルをすべて選び、まとめて文字の色を白にすればよいのです。
しかし、
色の付いたセルをすべて選ぶ作業をパパッとまとめて行いたいのです。
その方法がわかりません。
色の着いていないセル(白いセル)までまとめて選んでしまったら、
そのセルでは、文字がみえなくなってしまいます。
No.5
- 回答日時:
#3です。
>自分がもともとセルに付けた色が何番かはどのようにしてわかるのでしょうか。
以下終りまでの疑問。これに対する対処。
痛いところをつかれました。心配はしてました。
実際VBAをやられるかどうかと思っていましたので、説明省略した部分があります。
(1)現在どんな色がセルのパターン色に使われているか
問題にしているシートを別シートにコピーして下さい。
データはクリアしてください。
そして色セルのある範囲を四角形的に範囲指定してください。
そして下記を実行してください。
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
色付きのセルにコード数字が出ます。
50数種の色コードでなく、RGB(r、g、b)で表す色指定もあります(1600万色)。この場合は、殆どお手上げであることを白状しておきます。
(2)#3の補足の確認について
1.>まず、EXCELを立ち上げ(新規)、
VBAのコードをいれるのは当該ブックでよい。
2.>Microsoft Visual Basic のウィンドウで
表示-コード
VisualBasicEditorの画面でメニューの挿入-標準モジュールで出る画面(コードウインドウ)にコピーして貼りつける。Test01().Test02(),test03()とも。
3.>貼り付け先の列を選択して
列に限りません。点在していてもかまいません。それらが全て含まれるように範囲指定して、実行してください。
4.
No.4
- 回答日時:
図形や画像の色を薄く設定するのはプリンタ側で出来ます。
[ファイル]→[印刷]→[オプション]→[ここから後はプリンタ機種ごと]
操作によって、印刷の濃さを指定できるはずです。インクが勿体無い(もしかしたらレーザ?)ので、小さなサンプルを作って試してから本番実施してください。
この回答への補足
申しわけないのですが、
色が白黒なのは職場のプリンタで、今私が家で使っているプリンタはカラー(インクジェット)なので、試せません。
(Excelは職場も2000です。)
とりあえず、私のPC&プリンタでは、そういった設定はできそうにありません。
セルの色だけ薄くして文字は濃くするどころか、
印刷の濃さの調節もできないようです。
そのくらいできてもよさそうですが。
No.3
- 回答日時:
エクセル2000までは、色の検索・置換が出来ない
と思います。
VBAと言うものでやれば、何色も使われている場合も一括変更できます。
空いたシートを選んで
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)
に変えると言う意味で、
色コードで、3->7、5->8、9->19に変えたいときの書き方で、ペアの数を4つ以上増やしても良く、1つだけ(本質問はこれらしい)でも良いです。
自分の場合に合わせて、
iro1 = Array(3, 5, 9)
iro2 = Array(7, 8, 19)
を修正します。
そして上記プログラムを実行すると、セルは対応した色に変ります。
実行するときには色の付いたセルを包含する範囲を範囲指定して実行します。
複雑な微妙な色を使ってなければ、上記で出来ます。
この回答への補足
実は私はVBAはほとんど使ったことがないし、コードの詳細も見ていないのです。
が、次のようにするわけですね。
まず、EXCELを立ち上げ(新規)、
ツール-マクロ-Visual Basic Editor
Microsoft Visual Basic のウィンドウで
表示-コード
ご回答中の初めの「凖備」のコードを貼り付けて、実行すると
エクセルのシートの
A列に番号、B列に色
が表示されるのですね。
そして、この、B列の色の列を、別のブックに貼り付けます。
そして、貼り付け先の列を選択して、ご回答の色置換のコードを実行しますと、
ご回答どおり、
3の色は7の色に、5の色は8の色に、9の色は19の色に
なります。
また、ご回答どおり、色のペアは3組である必要はなく、
iro1 = Array(5)
iro2 = Array(8)
なら5番の色が8番の色に変わるわけですね。
ただ、自分がもともとセルに付けた色が何番かはどのようにしてわかるのでしょうか。
最初のコードを実行すると、56個の色が表示されます。
56個の色を目で識別できれば構わないのですが、似ている色もあります。
色の付いたセルを選択し、「セルの書式設定」で「パターン」タブを選ぶと、
左側に色のパレットのようなもの(56個の色)があって、
セルに付いた色が凹んでいます。
この色パレットの 何行何列の色が何番かがわかりません。
(何番がどんな色なのかは、最初のコードでわかるのですが。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- その他(Microsoft Office) マクロについて教えて下さい 3 2022/05/28 15:36
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
- Excel(エクセル) エクセル関数の質問 5 2022/04/20 09:46
- その他(Microsoft Office) (至急)Googleのスプレッドシートの条件付き書式について 2 2022/09/11 08:50
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
一番好きなみそ汁の具材は?
みんなで大好きなみそ汁の具材について語り合おうよっ!
-
コピー濃度調整方法
その他(パソコン・スマホ・電化製品)
-
Excelで印刷するとき濃ゆくしたい
デスクトップパソコン
-
セルの塗りつぶしに透明度を設定する方法
Excel(エクセル)
-
-
4
エクセルで薄く透ける文字を入れたいのですが
Excel(エクセル)
-
5
文字の濃度を薄く印刷したい
プリンタ・スキャナー
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
貼り付けで複数セルに貼り付けたい
-
【Excel】 セルの色での判断は...
-
EXCEL VBA セルに既に入...
-
セルをクリック⇒そのセルに入力...
-
excelの特定のセルの隣のセル指...
-
(Excel)数字記入セルの数値の後...
-
エクセルの書式設定の表示形式...
-
Excelでのコメント表示位置
-
枠に収まらない文字を非表示に...
-
エクセルのセルの枠を超えて文...
-
【エクセル】IF関数 Aまたは...
-
エクセル オートフィルタで絞...
-
エクセルの一つのセルに複数の...
-
Excel 例A(1+9) のように番地の...
-
対象セル内(複数)が埋まった...
-
数式を残したまま、別のセルに...
-
Excelで数式内の文字色を一部だ...
-
Excelで住所を2つ(町名迄と番...
-
文字列として"(ダブルコーテー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
エクセルで指定したセルのどれ...
-
excelの特定のセルの隣のセル指...
-
(Excel)数字記入セルの数値の後...
-
セルをクリック⇒そのセルに入力...
-
枠に収まらない文字を非表示に...
-
【エクセル】IF関数 Aまたは...
-
【Excel】 セルの色での判断は...
-
Excelでのコメント表示位置
-
エクセルの一つのセルに複数の...
-
エクセルのセルの枠を超えて文...
-
Excelで数式内の文字色を一部だ...
-
EXCEL VBA セルに既に入...
-
エクセルの書式設定の表示形式...
-
Excel 例A(1+9) のように番地の...
-
数式を残したまま、別のセルに...
-
エクセル オートフィルタで絞...
-
Excelで、「特定のセル」に入力...
-
ハイパーリンクの参照セルのズ...
-
対象セル内(複数)が埋まった...
おすすめ情報