Excelのこととか色々

マクロをどんな Excel ファイルにも実行できるように設定して、3秒かかる操作も1秒で完了。あといろいろ書いてみます・・・

【Excel/VBAのこと44】セル、行列 いろいろな選択方法(Range, Cells, Rows, Columns, Selection, SpecialCells)

   f:id:tuna-kichi:20200223230814p:plain

 

いろいろなセルの選択方法です。(備忘録も兼ねてます)

**********************************************

Sub いろいろセル選択方法()

    Dim Cnt As Long
    Dim r As Long
    Dim c As Long


 '①セルを1つだけ選択

    Range("A1").Select
    Cells(1, 1).Select

  ①セルを1つだけ選択

 '②指定行のデータの入っている最終セルを選択=最終列を選択

 Cells(3, Columns.Count).End(xlToLeft).Select

  ②指定した行のデータの入っている最終セルを選択=最終行を取得

 '③指定列のデータの入っている最終セルを選択=最終行を取得

   Cells(Rows.Count, 4).End(xlUp).Select

  ③指定した列のデータの入っている最終セルを選択=最終列を取得

 '④連続した複数のセルを選択

 Range("A1:D5").Select
    Range(Cells(1, 1), Cells(5, 4)).Select

  ④連続した複数のセルを選択

 '⑤連続していない複数セルを選択

 Range("A1, B3").Select  

  ⑤連続していない複数セル選択

 '⑥1行選択

 Rows(1).Select
    Range("1:1").Select
    Range("A1").EntireRow.Select 

  1行選択

 '⑦1列選択

 Columns(1).Select
    Range("A:A").Select
    Range("A1").EntireColumn.Select

  ⑦1列選択

 '⑧連続した複数行選択

 Range("A2:A4").EntireRow.Select
    Rows("2:4").Select

  ⑧連続した複数行選択

 '⑨連続した複数列選択

 Range("A:B").Select

  ⑨連続した複数列選択

 '⑩連続していない複数行選択

 Range("2:2, 4:4").Select

  連続していない複数行選択

 '⑪連続していない複数列選択

 Range("A:A, C:C").Select

  ⑪連続していない複数列選択

 '⑫SpecialCells---データの入っている最後のセルを選択

 Cells.SpecialCells(xlCellTypeLastCell).Select
    Range("A1").SpecialCells(xlCellTypeLastCell).Select
    Selection.SpecialCells(xlCellTypeLastCell).Select

  ⑫SpecialCells---データの入っている最後のセルを選択

 '⑬データの入っている最後セルの行を取得

 r = Cells.SpecialCells(xlCellTypeLastCell).Row '変数に代入して使用します

 '⑭データの入っている最後セルの列を取得

 c = Cells.SpecialCells(xlCellTypeLastCell).Columns '変数に代入して使用します

  ⑬⑭データの入っている最終セルの行列を取得

 '⑮選択した範囲のセルの情報取得

  

  ⑮選択範囲の操作

 '選択セル数

 Selection.Count

 '行数

 Selection.Rows.Count

 '列数

 Selection.Columns.Count

 'A(左上)

 Selection(1).Row        '行
 Selection(1).Column     '列
 Selection(1).Address    'セル番地
   

 'L(右下)

 Selection(Selection.Count).Row  '行
 Selection(Selection.Count).Column   '列
 Selection(Selection.Count).Address  'セル番地
   

 'D(左下)

 Selection(1).Row   'Aと同じ行
 Selection(Selection.Count).Column   'Lと同じ列
   

 'I(右上)

 Selection(Selection.Count).Row      'Lと同じ行
 Selection(1).Column  'Aと同じ列

 

    '使用例・・・変数に代入したり、Msgboxで使用します

    Msgbox Selection.Count
    r = Selection(1).Row
    c = Selection(Selection.Count).Column

End Sub

 

**********************************************

複数列を Cells や Columns を使って数値で指定が出来たらよかったのに・・・

って思うことがありましたけど、仕方ないですね。

 

------------------------------------------------

 

 

個人用マクロブックについてはこちら

www.tuna-kichi.com

 

リボンに登録についてはこちら

www.tuna-kichi.com

 

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/

 

 

 

PVアクセスランキング にほんブログ村 Excelのこととか色々 - にほんブログ村 にほんブログ村 子育てブログ 幼稚園児育児へ にほんブログ村 英語ブログ 初心者英語へ にほんブログ村 IT技術ブログ VBAへ