非連続のセルが選択されているか確認する(Areas コレクション)
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ソース
| 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 | 
実行結果
マクロ実行前
マクロ実行後
関連記事
-  
              
- 
      オートフィルタ(抽出件数の取得・結果集計)AutoFilter メソッドワークシート関数の Subtotal 関数 の使い方 VBA には、オートフィル … 
-  
              
- 
      ワイルドカードを使って検索(Find メソッド)Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 … 
-  
              
- 
      対象のセルを直接参照しているセル全てを取得(DirectDependents プロパティ)DirectDependents プロパティ DirectDependents … 
-  
              
- 
      セルの位置を取得(Left プロパティ、Top プロパティ)Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 … 
-  
              
- 
      オートフィルタ(矢印を非表示にする)AutoFilter メソッドAutoFilter メソッド 【書式】 object.AutoFilter ( … 
-  
              
- 
      セルに値を設定する・セルの値を参照する(Value2 プロパティ)Value2 プロパティ Value プロパティとの違いは、Value2 プロパ … 
-  
              
- 
      入力規則(エラーメッセージの設定)Validation オブジェクト無効値を入力時に、エラーメッセージの表示 Validation.ShowErro … 
-  
              
- 
      セルを参照する(Cells プロパティ)Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を … 
-  
              
- 
      セル・セル範囲を切り取る(Cut メソッド)Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した … 
-  
              
- 
      対象のセル・セル範囲に数式があるかどうか調べる(HasFormula プロパティ)HasFormula プロパティ HasFormula プロパティは、対象のセル … 
 
        

