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

関連記事

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

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

: 列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

列番号を取得するセル番地（「A1」や「B3」）や列名（「A」「B」「C」&#8 …

: セルの表示形式を設定・取得する（NumberFormat プロパティ）

NumberFormat プロパティ NumberFormat プロパティは、現 …

: フリガナ（Phonetics プロパティ）

Phonetics プロパティ Phonetics コレクションを返します。値の …

: 文字列の横位置を取得・設定する（HorizontalAlignment プロパティ）

HorizontalAlignment プロパティ HorizontalAlig …

: オートフィルタの設定と解除（AutoFilter メソッド）

AutoFilter メソッドオートフィルタを設定する場合、AutoFilte …

: オートフィルタ（抽出件数の取得・結果集計）AutoFilter メソッド

ワークシート関数の Subtotal 関数の使い方 VBA には、オートフィル …

: 引数に指定したセル範囲の共通のセル範囲を取得（Intersect メソッド）

Intersect メソッド Intersect メソッドは、引数に指定したセル …

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

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

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

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

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