Excel VBAの覚え書（SpecialCellsメソッド編）～可視セル(表示されているセル)の操作

2022-04-102024-01-07

Excelで可視セル(表示されているセル)の操作を行う場合、RangeオブジェクトのSpecialCellsメソッドを使用します。

■SpecialCellsメソッドの詳細

RangeオブジェクトのSpecialCellsメソッドを実行すると、特定の条件を満たすセルの集まり(Rangeオブジェクト)を作成できます。

SpecialCellsメソッドの定義

SpecialCellsメソッドの定義は、下表の通りです。

SpecialCellsメソッドの引数

SpecialCellsメソッドに引数として指定できる項目は下表の通りですが、指定必須の引数はTypeのみです。

XlCellType列挙体、XlSpecialCellsValue列挙体

XlCellType列挙体およびXlSpecialCellsValue列挙体は、下表の通りです。

■SpecialCellsメソッドを使用した、可視セル(表示されているセル)の操作

可視セル(表示されているセル)の操作を行いたい場合、SpecialCellsメソッドを使用すると便利です。

SpecialCellsメソッドの基本的な使用方法

SpecialCellsメソッドのType引数に「xlCellTypeVisible」を指定して、「Range.SpecialCells(xlCellTypeVisible)」のように記述すると、可視セルだけのRangeオブジェクトを取得することができます。

取得したRangeオブジェクト(以下のコーディング例ではオブジェクト変数「rng」)は、Rangeオブジェクトの集合体となっており、「rng.Count」のようにCountプロパティを使用すると、「rng」に含まれるRangeオブジェクトの個数を取得できます。
また、「rng.Address」のようにAddressプロパティを使用すると、Rangeオブジェクトのセル範囲を取得できます。

1. '宣言部
2. Dim sht As Worksheet
3. Dim rng As Range
5. '処理部
6. Set sht = ActiveSheet
7. Set rng = sht1.UsedRange.SpecialCells(xlCellTypeVisible)

可視セルのRangeオブジェクト全体に対する操作を行う場合は、このまま「rng.Select」「rng.Copy」「rng.Cut」のように指定すれば良い訳ですが、個々のRangeオブジェクトに対して操作を行う場合は、「For Each～Next」命令を使用します。

1. '宣言部
2. Dim sht As Worksheet
3. Dim rng As Range
5. '処理部
6. Set sht = ActiveSheet
7. For Each rng In sht.UsedRange.SpecialCells(xlCellTypeVisible)
8.     '個々のRangeオブジェクトに対する操作
9. Next rng

SpecialCellsメソッドの使用例(1)～可視行(表示されている行)の操作

A1セルからJ10セルまでの範囲「Range(“A1:J10")」のうち、偶数行を非表示にした下図のようなワークシートを用意します。

SpecialCellsメソッドで取得したRangeオブジェクトから、RowsプロパティでRangeオブジェクトを取出すと、行単位のRangeオブジェクトを取得できます。

1. '宣言部
2. Dim sht As Worksheet
3. Dim rng As Range
5. '処理部
6. Set sht = ActiveSheet
7. For Each rng In sht1.Range(“A1:J10").SpecialCells(xlCellTypeVisible).Rows
8.    '行単位のRangeオブジェクトに対する操作
9. Next rng

各行の特定の列に対して操作を行いたい場合は、「rng.Columns(列番号)」のようにColumnsプロパティを使用します。
但し、Columnsプロパティで列番号を指定すると、非表示の列も参照できてしまうので、注意が必要です。

SpecialCellsメソッドの使用例(2)～可視列(表示されている列)の操作

A1セルからJ10セルまでの範囲「Range(“A1:J10")」のうち、偶数列を非表示にした下図のようなワークシートを用意します。

SpecialCellsメソッドで取得したRangeオブジェクトから、ColumnsプロパティでRangeオブジェクトを取出すと、列単位のRangeオブジェクトを取得できます。

1. '宣言部
2. Dim sht As Worksheet
3. Dim rng As Range
5. '処理部
6. Set sht = ActiveSheet
7. For Each rng In sht1.Range(“A1:J10").SpecialCells(xlCellTypeVisible).Columns
8.    '列単位のRangeオブジェクトに対する操作
9. Next rng

各列の特定の行に対して操作を行いたい場合は、「rng.Rows(行番号)」のようにRowsプロパティを使用します。
但し、Rowsプロパティで行番号を指定すると、非表示の行も参照できてしまうので、注意が必要です。

SpecialCellsメソッドの使用例(3)～可視セル(表示されているセル)の操作

A1セルからJ10セルまでの範囲「Range(“A1:J10")」のうち、偶数行と偶数列を非表示にした下図のようなワークシートを用意します。

SpecialCellsメソッドで取得したRangeオブジェクトから、RowsプロパティやColumnsプロパティを指定せずにRangeオブジェクトを取出すと、セル単位のRangeオブジェクトを取得できます。

1. '宣言部
2. Dim sht As Worksheet
3. Dim rng As Range
5. '処理部
6. Set sht = ActiveSheet
7. For Each rng In sht1.Range(“A1:J10").SpecialCells(xlCellTypeVisible)
8.    'セル単位のRangeオブジェクトに対する操作
9. Next rng

全ての可視セルを順に取得することになるため、この例であれば、A1セル、A3セル、A5セル、A7セル、A9セル、C1セル・・・のようになりますので、セルの位置によって操作を分けたいような時には、以下のようにRnageオブジェクトのHiddenプロパティを使用した方が扱い易いかも知れません。

Hiddenプロパティは、行または列が非表示かどうかを判定するためのプロパティのため、例えば、「Cells(i,j)」が可視セルかどうかを判定するためには、「If (Rows(i).Hidden = False) And (Columns(j).Hidden = False) Then」のように判定する必要があります。

1. '宣言部
2. Dim sht As Worksheet
3. Dim rng As Range
4. Dim i As Integer
5. Dim j As Integer
7. '処理部
8. Set sht = ActiveSheet
9. For i = 1 To 10
10.     For j = 1 To 10
11.         If (sht.Rows(i).Hidden = False) And (sht.Columns(j).Hidden = False) Then
12.             '「sht.Cells(i, j)」セルに対する操作
13.         End If
14.     Next j
15. Next i