SpecialCellsメソッドはセル検索し選択する

こんにちは　じゅんぱ店長　(＠junpa33)　です。

エクセルシート上で作業するときに、複数のセルをまとめて選択したい場合が頻繁にあります。

特に、「ある特定の条件」に当てはまる「セル」だけを取り出したい時はどうでしょうか？

最初のうちは、ひとつづつ「セルの内容」を確認して、条件に当てはまるセルを選び出し、

『Ctrlキー』を押しながらポチポチッとクリックしていたのではないでしょうか。

エクセルシート上の基本機能として、

「条件を選択してジャンプ．．．」という機能があります。

これだと条件を指定すれば、一度に必要セルを選択することが出来ます。

今回はこの「条件を選択してジャンプ．．．」というエクセルシート上の機能を、

ExcelVBAマクロではどのように記述すれば実現できるのかを説明します。

セルの範囲選択の記事一覧

2022年6月4日Range VS Cells ！VBAで使えるのはどっち 2022年6月18日セルの範囲選択と設定は14のツールで対応する 2022年5月5日Rowsプロパティの働きと関連のメソッド 2022年6月8日Columnsプロパティの列指定で参照する 2022年6月11日EntireRowとRowプロパティの違い 2022年6月13日EntireColumnとColumnの使い方 2020年11月19日Offsetプロパティは指定範囲を移動させる 2022年6月5日Resizeプロパティでセル範囲をサイズ変更 2022年4月30日CurrentRegionは連続データをまとめて掴む 2022年6月6日UnionとRangeの一括選択の働きを比較 2022年4月28日SpecialCellsメソッドはセル検索し選択する 2022年5月30日UsedRangeプロパティの使い方のコツ 2022年6月15日Endプロパティで上下左右の最終セルを取得 2020年12月5日データ入力済セルの最終行番号を取得する

SpecialCellsメソッドとは

エクセルVBAには、セルへの処理作業について非常に便利に働く、SpecialCellsというメソッドがあります。

エクセルシートのリボン上にも装備された機能のVBA版ですが、是非このSpecialCellsメソッドをVBAで使えるようになっておきましょう。

エクセルの「条件を選択してジャンプ」という機能

エクセルに備わっている「条件を選択してジャンプ．．．」という機能はどういったものかというと

エクセルのリボンの「検索と選択」からのメニューで「条件を選択してジャンプ．．．」をクリックします。

選択オプションウインドウが開きます。

この選択オプションにある項目を「選択条件」としてセルを複数同時に選択することが出来ます。

VBAにはSpecialCellsというコードがある

この選択オプションウインドウはあくまでも、エクセルシート上でカーソルとマウスで行う操作です。

VisualBasicEditor（VBE）上でこの機能をVBAコードとして利用するには、

VBAのコードとして「SpecialCells」というものが準備されています。

SpecialCellsメソッドというものです。

このSpecialCellsメソッドを使えば、求める条件のあるセルをまとめて選択することが出来ます。

SpecialCellsメソッドで特定のセルを選択する

SpecialCellsメソッドは、「特定のセルを選択する」という機能を持っています。

その上で、Rangeオブジェクトのプロパティを利用すれば、さらに色々な処理を行うことが出来ます。

VBAのSpecialCellsで利用できる項目は、この黄色マーカーの8項目になります。

SpecialCellsの構文

引数Type(XlCellType )

引数Value(XlSpecialCellsValue)

SpecialCellsの利用コード

引数Typeのそれぞれの定数項目を設定してみます。

MEMO

セルの背景色についてはこちらを参考にしてください。

2022年7月16日「塗りつぶし」背景色をVBAで記述する

Sub SpecialCellsコメント()
    Range("B2:G10").SpecialCells(xlCellTypeComments).Select
    Selection.Interior.ColorIndex = 10
End Sub

Range("B2:G10").SpecialCells(-4144).Select

Sub SpecialCells定数a()
    Range("B2:G10").SpecialCells(xlCellTypeConstants).Select
    Selection.Interior.ColorIndex = 6
End Sub

Range("B2:G10").SpecialCells(2).Select

Sub SpecialCells数式a()
    Range("B2:G10").SpecialCells(xlCellTypeFormulas).Select
    Selection.Interior.ColorIndex = 8
End Sub

Range("B2:G10").SpecialCells(-4123).Select

Sub SpecialCells空白セルa()
    Range("B2:G10").SpecialCells(xlCellTypeBlanks).Select
    Selection.Interior.ColorIndex = 15
End Sub

Range("B2:G10").SpecialCells(4).Select

Sub SpecialCells最後のセルa()
    Range("B2:G10").SpecialCells(xlCellTypeLastCell).Select
    Selection.Interior.ColorIndex = 38
End Sub

Range("B2:G10").SpecialCells(11).Select

Sub SpecialCells可視セルa()
    Rows(5).Hidden = True
    Columns(4).Hidden = True
    Range("B2:G10").SpecialCells(xlCellTypeVisible).Select
    Selection.Interior.ColorIndex = 19
    Rows(5).Hidden = False
    Columns(4).Hidden = False
End Sub

Range("B2:G10").SpecialCells(12).Select

Sub SpecialCells条件付き書式a()
    Range("B2:G10").SpecialCells(xlCellTypeAllFormatConditions).Select
    Selection.Interior.ColorIndex = 35
End Sub

Range("B2:G10").SpecialCells(-4172).Select

Sub SpecialCellsデータの入力規則a()
    Range("B2:G10").SpecialCells(xlCellTypeAllValidation).Select
    Selection.Interior.ColorIndex = 24
End Sub

Range("B2:G10").SpecialCells(-4174).Select

SpecialCellsの使用時のコードエラー

SpecialCellsメソッドは、検索条件に一致するセルがない場合はエラーとなります。

コード進行が鰓ストップするのを防止するために、エラー時の処理対応コードが必要になります。

引数Typeを「定数」引数Valueを「文字」に設定します。

Sub SpecialCells定数文字a()
    Range("B2:G10").SpecialCells(xlCellTypeConstants, xlTextValues).Select
    Selection.Interior.ColorIndex = 3
End Sub

引数Typeを「定数」引数Valueを「数値」に設定します。

Sub SpecialCells定数数値a()
    Range("B2:G10").SpecialCells(xlCellTypeConstants, xlNumbers).Select
    Selection.Interior.ColorIndex = 3
End Sub

実行時エラーが発生します。

Sub SpecialCells定数数値改()
    On Error Resume Next
    Range("B2:G10").SpecialCells(xlCellTypeConstants, xlNumbers).Select
    Selection.Interior.ColorIndex = 3
End Sub

SpecialCellsメソッドで特定のセル選択のまとめ

SpecialCellsメソッドは、かなり利用範囲が広く、応用の利くメソッドです。

是非とも使えるようになっておきましょう。

コレ！という時に非常に便利です。　”　使い方の発想はあなた次第です！　”

「セルの特定の条件にどれも合わない場合はエラーストップする」ことには十分注意して、

エラーストップ回避コードはかならず設置しておきましょう。

エクセルVBAの独習には動画学習という方法もあります。 目と耳両方を使って学習することでさらに勉強効率を上げることもできます。

2021年4月4日 エクセルVBA初級者がUdemyで動画学習する講座おすすめ５選と無料講座の上手な使い方。

エクセルVBAを独習するのに参考書は欠かせません。 参考書選びは自分に合った「相棒」にできるものを選んでいきたいです。

2022年1月9日 エクセルVBAの独習でおすすめ参考書を7冊選ぶ。良書との出会いは大切です

今回の記事はここまでです。   最後までご覧いただき有難うございました。

　セルの操作の記事一覧

セルの背景色を2クリックで他範囲にも展開できるマクロデータの並び替え VBA新旧のSortを実データで実証「セルの保護」の設定VBAを最速理解「グラデーションの塗りつぶし」のセルを設定する「塗りつぶしの網掛け」VBAを最速理解「塗りつぶし」背景色をVBAで記述する「罫線」のVBAを最速理解「フォント」の操作を最速理解する エクセルVBA「配置」を最速理解する エクセルVBA「表示形式」をVBAコード的に最速理解するセルの範囲選択と設定は14のツールで対応するEndプロパティで上下左右の最終セルを取得EntireColumnとColumnの使い方EntireRowとRowプロパティの違いColumnsプロパティの列指定で参照するUnionとRangeの一括選択の働きを比較Resizeプロパティでセル範囲をサイズ変更Range VS Cells ！VBAで使えるのはどっちUsedRangeプロパティの使い方のコツBordersの/位置/線種/太さ/色/と<外枠だけの罫線>の設置

「エクセルVBA最速理解」の記事一覧を開く