Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

非連続のセルが選択されているか確認する（Areas コレクション）

2015/05/26

Areas コレクションの使い方

複数の離れた位置にあるセル範囲を選択した場合に、そのセル領域がいくつあるか調べたり、それぞれのセル領域に対しての処理を行ったりするのに、Areas コレクションを使用します。

Areas.Item プロパティ

【書式】

Object.Areas[ .Item ] ( index )

【項目の説明】

object ・・・対象となるセル・セル範囲（Range オブジェクト）
index ・・・領域のインデックス番号を指定します。インデックス番号は、領域が選択された順序に対応しています。

Areasコレクションには、選択範囲内の各セル領域に対応するRangeオブジェクトが含まれます。AreasコレクションからRange オブジェクトを取得するには、Areas.Item プロパティを使用します。（Item は、デフォルトプロパティなので、省略可能です。）

Areas.Count プロパティ

【書式】

area_count = Object.Areas.Count

【項目の説明】

object ・・・対象となるセル・セル範囲（Range オブジェクト）
area_count ・・・選択されている、連続していないセル範囲の数を示します。連続した 1 つの範囲のみが選択されている場合は 1、連続していない 2 つのセル範囲が選択されていたら 2 となります。

Areas コレクションの使用例

サンプルVBAソース

　
Sub Sample_Areas()

    Dim myArea, i

    Range("A1:A11,C1,E1,F1").Select
    
    With Selection.Areas
    
        If .Count > 1 Then
            
            '非連続のセル範囲が選択されている場合の処理
            For i = 1 To .Count
            
                With .Item(i).Font
                    
                    .Bold = True　　　'フォントを太字
                    .Color = vbRed　　'フォントの色を赤
            
                End With
            
            Next i
            
        End If
    
    End With

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

　

Sub Sample_Areas()

Dim myArea, i

Range("A1:A11,C1,E1,F1").Select

With Selection.Areas

If .Count > 1 Then

'非連続のセル範囲が選択されている場合の処理

For i = 1 To .Count

With .Item(i).Font

.Bold = True　　　'フォントを太字

.Color = vbRed　　'フォントの色を赤

End With

Next i

End If

End With

End Sub

　

実行結果

マクロ実行前

マクロ実行後

- セルの操作 Areas コレクション, Areas プロパティ, Areas.Count プロパティ, Areas.Item プロパティ, VBA基本, エクセルVBA, セルの操作, 選択範囲

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

セルの値の置換と書式設定検索条件に一致するセルの書式を設定するには、まず、Ap …

: 任意の行または列を参照（Rows プロパティ,Columns プロパティ）

Rows プロパティ・Columns プロパティ Rows プロパティは、オブジ …

: セルを参照する（Range プロパティ）

Range プロパティ任意のセルにアクセスするには Range プロパティを使 …

: 連続データを入力する（AutoFill メソッド）

AutoFill メソッド Excel で、連続するデータを入力する「オートフィ …

: オートフィルタ（アイコンで抽出する）AutoFilter メソッド

オートフィルタ（アイコンで抽出する） Excel 2007 から、条件付き書式で …

: 対象のセルが参照している全てのセルを取得（Precedents プロパティ）

Precedents プロパティ Precedents プロパティは、対象のセル …

: オートフィルタ（日付・時刻のグループ化）AutoFilter メソッド

グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …

: 任意のセルを含む行または列全体を参照（EntireRow プロパティ,EntireColumn プロパティ）

EntireRow プロパティ・EntireColumn プロパティ Entir …

: ワイルドカードを使って検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: 入力規則（エラーメッセージの設定）Validation オブジェクト

無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …

PREV: セルが選択されているか確認する（TypeName 関数）
NEXT: セルを参照する（Range プロパティ）