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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 終端セルを参照する（End プロパティ）

End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …

: セル・セル範囲を貼り付ける（Paste メソッド）

Paste メソッド Paste メソッドは、クリップボードの内容を指定したセル …

: セルの値を置換（Replace メソッド）

Replace メソッド任意のセル範囲内から特定の値を一括して置換します。Fi …

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

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

: フリガナの設定（SetPhonetic メソッド）

フリガナの設定（SetPhonetic メソッド） SetPhonetic メソ …

: 入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ

IMEMode プロパティ Validation.IMEMode プロパティを …

: 行・列の表示・非表示（Hidden プロパティ）

Hidden プロパティ Hidden プロパティに True を設定することで …

: 網かけ（パターン）の取得・設定（Pattern プロパティ）

網かけ（パターン）を取得・設定するセルの背景に網かけ（パターン）を設定したり、 …

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

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

: セル・セル範囲をコピーする（Copy メソッド）

Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …

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