[[20180621123948]] 『塗りつぶししていないところを白で塗りつぶし』(MACKY) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『塗りつぶししていないところを白で塗りつぶし』(MACKY)

Excelで資料を作っています。
標題やタイトルなど、いくつかのセルを青やピンクで塗りつぶしをつかって目立たせているのですが、
完成後は、塗りつぶしていないセルをすべて「白」で塗りつぶしたいと考えているのですが、
いっぺんにできる方法はありますでしょうか?

また、再編集するときに、
逆に「白」で塗りつぶしたところだけ、「塗りつぶしなし」に戻したい場合のやり方も教えて頂けると幸いです。

マクロでも構いませんので、
どうかご教授よろしくお願いいたします。

MACKY

< 使用 Excel:Excel2007、使用 OS:Windows10 >


Sub test白く塗る()
    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.