[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『塗りつぶししていないところを白で塗りつぶし』(MACKY)
Excelで資料を作っています。
標題やタイトルなど、いくつかのセルを青やピンクで塗りつぶしをつかって目立たせているのですが、
完成後は、塗りつぶしていないセルをすべて「白」で塗りつぶしたいと考えているのですが、
いっぺんにできる方法はありますでしょうか?
また、再編集するときに、
逆に「白」で塗りつぶしたところだけ、「塗りつぶしなし」に戻したい場合のやり方も教えて頂けると幸いです。
マクロでも構いませんので、
どうかご教授よろしくお願いいたします。
MACKY
< 使用 Excel:Excel2007、使用 OS:Windows10 >
Dim c As Range
For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = xlNone Then c.Interior.Color = vbWhite End If Next End Sub
Sub test塗りつぶしなし()
Dim c As Range
For Each c In ActiveSheet.UsedRange If c.Interior.Color = vbWhite Then c.Interior.ColorIndex = xlNone End If Next End Sub
とりあえずこんな感じですが、
個別のセルをいちいち見て、いちいち変えているので、
遅いかもしれません。
できれば『一度に』行きたいですが、
>標題やタイトルなど、いくつかのセルを青やピンクで塗りつぶしをつかって目立たせている
このセルはどのくらいの数があるのでしょう?
そちらの色は条件付き書式設定で色を付けるようにすると、
一度にが実現すると思いますし、
他の色のセルの数が少ないなら、シート上のセルを1回白に塗ってから、
その他のセルを好きな色に塗るようにしたら、
速いと思います。
あ、白に塗潰すのは必要最小限のセルにした方がファイルは軽いかもしれません。
あるいは単にセルの枠線が邪魔なら、それを表示しないことで、画面上では白で塗った状態と同じに
なると思います。
(まっつわん) 2018/06/21(木) 13:08
戻したい時は同様の操作で戻すだけです。
マクロが不要なので極めて簡単ですし、全く重くなりません。
しかし「標準」を変更してしまうと、いわゆる「全て削除」を実行したときに白にならないということなので、少し危険でもあります。
そういう時は、新規シートに最初に専用のスタイルを全体に割り当ててから、必要な部分のみのデータを切り取り貼り付けで貼り付けると良いと思います。
(名無し) 2018/06/21(木) 13:36
ある程度表形式になっているなら、検索機能の書式の検索から塗りつぶしていないセルを選択することで 書式を指定しすべて検索すれば表内の塗りつぶしていないセルを選択できると思うんですけど。 戻す時は塗りつぶしが白で検索するか、検索で該当セルを全部選択した時にその範囲に名前を つけておくとかで、後で選択できると思います。 (コナミ) 2018/06/21(木) 13:45
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.