【VBA】FindFormatプロパティとFindメソッドを使って書式検索（背景色、文字色、結合セル、太字等）

このページでわかること

FindFormatの設定をいじって書式検索ができるようになります。
以下のような特殊な書式のセル検索が可能に
①特定の背景色や文字色
②太字のセル
③結合しているセル
④フォントの種類やサイズ
サイトや書籍に頼らず条件を自分でコーディングできるようになる方法
注意点

こんにちは、hokkyokunです。

いくつかFindメソッド関連の記事を書いてきました。

正直Findメソッドは扱いが難しいところもあるのですが、
今回の記事はFindメソッドだからこそできる機能です。

Findメソッドは設定をいじることで
書式検索が可能になります。

例えば以下のような検索が可能です。

結合しているセルがあるかどうかをチェック、
あればその位置を特定
背景色が黄色のセルだけ値を取得したい
フォントサイズを大きくしているセルを取得したい
特定のフォントで書いているセルを検索したい

業務によっては結構使う機会がありそうじゃないですか？

しかもこの条件は簡単に自分で調べることが可能です。
最後まで読んでいただければ自分で書式検索を簡単にマスタできます！！

Findメソッドについていくつか記事を書いています。
よかったら見てやってください。

【Findメソッド】あわせて読みたい

Contents

FindFormatとは
- FindFormatって何？
- 基本構文
代表的な検索方法
自分で書式検索の設定を調べる方法
注意点
- Findメソッドの引数は適切に処理
- FindFormatのプロパティは毎回クリアする
色の指定をするお勧めの方法
- RGBを調べてコーディング
- カラーチャートを活用する
まとめ

FindFormatとは

FindFormatって何？

FindFormatはFindメソッドで検索するセルの書式を
絞り込むことができます。

エクセルで「Ctrl + F」を押すと
検索ダイアログボックスが出てきますが、
そのなかの書式設定をVBAを使っていじるイメージです。

この書式設定をいじって
最終的にはFindメソッドで検索をかけるという流れです。
具体的にはFindメソッドの「SearchFormat」という引数を「True」に変えます。

つまり、

FindFormatで設定をいじる
FindメソッドのSearchFormat:=Trueにして
FindFormatの設定を活かして検索する

FindFormatはちょっと特殊なので
注意してください。

基本構文

Application.FindFormat . [メソッド or プロパティ]

Application.FindFormatの後ろにつけるプロパティの状態を変更したり、確認したりすることが可能です。

代表的なメソッドやプロパティの変更を表にしました。
※コードはApplication.FindFormatの後ろです
全部書くと長いので省略しています。

コード	説明	例
.Clear	書式設定をクリア	.Clear
.Interior.Color	背景色を指定	.Interior.Color = vbYellow
.Font.Color	文字の色を指定	.Font.Color=vbYellow
.Font.Bold	太字指定	.Font.Bold=True
.MergeCells	結合セル	.MergeCells = True

代表的な検索方法

下記のような図で書式検索を実行してみます。

検索時余計な意図しない書式設定にならないように
毎回　Application.FindFormat.clear
は入れておいた方がいい

背景色を指定して検索

Sub format_test1()

With Application.FindFormat
    .clear
    .Interior.Color = vbYellow
End With

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")

Debug.Print ws.Range("A1:C6").Find(What:="", searchformat:=True).Address
'>>$A$3

ws.Range("A1:C6").Find(What:="", searchformat:=True).Borders.Color = vbRed
End Sub

太字のセルを検索

Sub format_test2()

With Application.FindFormat
    .clear
    .Font.Bold = True
End With

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")

Debug.Print ws.Range("A1:C6").Find(What:="", searchformat:=True).Address
'>>$A$2

ws.Range("A1:C6").Find(What:="", searchformat:=True).Borders.Color = vbRed
End Sub

結合しているセルを検索

Sub format_test3()

With Application.FindFormat
    .clear
    .MergeCells = True
End With

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")

Debug.Print ws.Range("A1:C6").Find(What:="", searchformat:=True).Address
'>>$A$5

ws.Range("A1:C6").Find(What:="", searchformat:=True).Borders.Color = vbRed
End Sub

自分で書式検索の設定を調べる方法

使い方はそんなに難しくはないと思いますが、
設定条件が細かすぎるので全てを紹介することはできません。

特にフォント名の指定なんかもできるので
全て列挙するのは不可能です。

自分で書式検索の設定をいじれるようになる方法をご紹介します。

マクロの記録を有効活用しましょう。

①開発タブの「マクロの記録」をクリックしましょう。

②ダイアログボックスが出現するのでOK

③Ctrl + F　で検索ダイアログボックスを出現させ
書式をクリック、あとは設定したい項目をクリックしてOK

④最後は記録終了をクリックして終了

⑤マクロを確認して、プロパティの設定の仕方を確認
※不要なコードも入ってくるので、適切にカットして使用

Sub Macro1()
'
' Macro1 Macro
'

'
    With Application.FindFormat.Font
        .Name = "Meiryo UI"
        .Subscript = False
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End Sub