ExcelマクロVBAサンプル集 | シートの複数選択(Select) | Excelマクロの実用サンプル、エクセルVBA集と解説



最終更新日:2013-05-14

シートの複数選択(Select)


複数のシートの選択方法です。


シート名は、「Sheet1」「Sheet2」「Sheet3」とします。



まずは、マクロの記録と同じように。


Sub sample1()
  Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
End Sub


シート名がわかっていれば、これで良いですが、シート名が不明な場合は困ります。



その場合は、


Sub sample2()
  Dim selSht As Variant
  Dim i As Long
  ReDim selSht(1 To Sheets.Count)
  For i = 1 To Sheets.Count
    selSht(i) = Sheets(i).Name
  Next i
  Sheets(selSht).Select
End Sub


上記では、全シートを選択しています。


selShtは意図的にVariantにしています。

Dim selSht() As String

これでも、この場合は大丈夫です。

しかし、

Arrayはバリアント型を返す関数なので、同じにしています。

(バージョンによって、シート以外のSelectではエラーになる場合があります)



こんな方法もあります。


Sub sample3()
  Dim mySht As Variant
  For Each mySht In Sheets
    mySht.Select False
  Next
End Sub


.Select False

は、それまでの選択を有効にして、追加でSelectします。


そうですね、Ctrlを押して選択した時の動作になります。


従って、特定のシートを選択する場合は、


最初のSelectには、Falseを指定しないようにします。


余談ですが、


オートシェイプのShape.Selectにも、このFalse指定は使えます。


ただ、残念ですが、Rangeには使用できません。



しかし、単純に、全シートを選択するのなら、


Sub sample4()
  Sheets.Select
End Sub


これで全シートが選択されます。


コレクションと呼ばれる、○○○sのように、最後にsが付くものは、


通常は、○○○s(1)のように指定します。


そして、コレクション全体を指定する場合は、()を省略するのが基本です。





同じテーマ「ExcelマクロVBAサンプル集」の記事

複数シートの印刷(PrintOut)
重複削除してコピー(AdvancedFilter)
ブックを安全確実に開く方法(Open)
ブックを閉じる(Close)
他ブックを開いて閉じる(Open,Close)
ブックを開かずにセル値を取得(ExecuteExcel4Macro,Excel.Application)
罫線を簡単に引く(Borders,BorderAround)

新着記事 ・・・新着記事一覧を見る

画像のトリミング(PictureFormat,Crop)|ExcelマクロVBAサンプル集(12月27日)
シート保護|Google Apps Script入門(12月24日)
表示の固定|Google Apps Script入門(12月24日)
グラフ|Google Apps Script入門(12月21日)
入力規則|Google Apps Script入門(12月13日)
並べ替え|Google Apps Script入門(12月12日)
メモの挿入・削除と改行文字|Google Apps Script入門(12月6日)
リンクの挿入・編集・削除|Google Apps Script入門(12月6日)
セルに数式を入れる|Google Apps Script入門(12月1日)
セルのコピー&各種ペースト|Google Apps Script入門(11月22日)

アクセスランキング ・・・ ランキング一覧を見る

1.RangeとCellsの使い方|ExcelマクロVBA入門
2.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
3.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
4.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
5.セルの参照範囲を可変にする(OFFSET,COUNTA,MATCH)|エクセル関数超技
6.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
7.ひらがな⇔カタカナの変換|エクセル基本操作
8.CSVの読み込み方法|ExcelマクロVBAサンプル集
9.変数とデータ型(Dim)|ExcelマクロVBA入門
10.VBAのFindメソッドの使い方には注意が必要です|ExcelマクロVBA技術解説



  • >
  • >
  • >
  • シートの複数選択(Select)

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

    ↑ PAGE TOP