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

関連記事

: 文字列を縮小して全体を表示（ShrinkToFit プロパティ）

ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …

: セル・セル範囲に名前を定義・削除（Name プロパティ・Names コレクション）

セル・セル範囲に名前を定義（Name プロパティ） Range オブジェクトのN …

: 対象のセル・セル範囲に数式があるかどうか調べる（HasFormula プロパティ）

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

: 配列数式を取得または設定する（FormulaArray プロパティ）

FormulaArray プロパティ FormulaArray プロパティは、対 …

: A1参照形式、R1C1参照形式の設定・取得（ReferenceStyle プロパティ）

ReferenceStyle プロパティ ReferenceStyle プロパテ …

: セルのアドレスを確認（Address プロパティ）

Address プロパティ Address プロパティ・AddressLocal …

: 対象のセルが配列数式の一部かどうか（HasArray プロパティ）

HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …

: 並べ替え（Sort メソッド）

Sort メソッド任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条 …

: セルの位置を取得（Left プロパティ、Top プロパティ）

Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 …

: ２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

Union メソッド Union メソッドは、２つ以上のセル範囲を１つにまとめて …

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