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

関連記事

: テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）

PatternThemeColor プロパティ・PatternTintAndSh …

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

VerticalAlignment プロパティ VerticalAlignmen …

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

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

: 次の検索（FindNext メソッド,FindPrevious メソッド）

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

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

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

: 行の高さを取得・設定・する（RowHeight プロパティ）

RowHeight プロパティ RowHeight プロパティは、対象セルの高さ …

: 直前のセル・直後のセルを参照する（Previous プロパティ・Next プロパティ）

Previous プロパティ・Next プロパティ Previous プロパティ …

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

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

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

: 入力規則（他セルや数式を利用して許容値を設定）Validation オブジェクト

他のセルや数式を利用して許容値を設定する入力規則（その5）での設定を、マクロ …

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