ExcelマクロVBAサンプル集
シートの複数選択(Select)

ExcelマクロVBAの実用サンプル、エクセル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)のように指定します。


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




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

連続セル範囲の選択

エクセルのVBAでは連続セル範囲の選択は頻繁に行われます。以下ではいろいろな記述方法を紹介します。このような表でデータ部(B3~D7)を選択または消去する方法になります。Subtest1()Range(Cells(3,2),Cells(2, 2).End(xlToRight).End(xlDown)).Select End Sub B3~B2
1行置きにする行挿入(Insert)
A列に連続データが入っているとします。これを1行置きにします。Subsample1()DimiAsLongFori=Cells(Rows.Count, 1).End(xlUp).RowTo1Step-1Rows(i).InsertNextiEnd Sub ポイントは下から行うことです。
シートの追加・削除(Add,Delete)
マクロでいろいろ処理する場合に作業用のシートを追加しこのシート上で処理した結果を他シートに反映させる等は良く使うテクニックです。以下シートの新規追加です。Subsample1()Sheets.Add ActiveSheet.Name="新規シート"'…いろいろな処理 Application.DisplayAlerts=False Sheets("新規シー…
シートの複数選択(Select)
複数シートの印刷(PrintOut)
複数シートの印刷方法です。シートはワークシートが「Sheet1」「Sheet2」「Sheet3」がありその他でグラフシートもあるとします。ワークシートのみ印刷する場合です。Subsample1()Sheets(Array("Sheet1","Sheet2", "Sheet3")).PrintOutEndSub シート名がわかっていれば
重複削除してコピー(AdvancedFilter)
重複データを排除して別シートにコピーする場合です。以下の表で説明します。フィルターオプションを使います。Subsample1() Worksheets(_Sheet1_).Columns(_A:B_).AdvancedFilter Action:=xlFilterCopy,
ブックを安全確実に開く方法(Open)
マクロVBAの中で、他のブックを開く事はよくあります、ブックを開く時、ブックが存在しているか、既に開いてないか これらのチェックをせずに開いてしまうと、マクロがエラー停止してしまいます。ここでは、これらのチェック方法についての具体的なVBAコードを紹介します。
ブックを閉じる(Close)
ブックを閉じる時の処理方法です。まずは、保存して閉じる場合。Subsample1()ThisWorkbook.SaveThisWorkbook.CloseEnd Sub これは、次のように書くこともできます。
他ブックを開いて閉じる(Open,Close)
他のブックを開いて何らかの処理(転記等)をして閉じる。よくあるパターンですね。簡単にサンプルのみ掲載します。Subsample1()DimstrBookNameAsStringWorkbooks.Open "ブックのフルパス"strBookName= ActiveWorkbook.Name…処理Workbooks(strBookName).Close S…
ブックを開かずにセル値を取得(ExecuteExcel4Macro,Excel.Application)
「ブックを開かずにセル値を取得」に関する検索が非常に多いですおそらくExecuteExcel4Macroに関連しているとかもしくは大量のファイルがある為時間がかかってしまうと言うものでしょう。ExecuteExcel4Macroについての簡単な解説は「ExecuteExcel4Macroについて」サンプルを通して
罫線を簡単に引く(Borders,BorderAround)
エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。とにかく、簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。


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

CSVの読み込み方法(ジャグ配列)|VBAサンプル集(7月15日)
その他のExcel機能(グループ化、重複の削除、オートフィル等)|VBA入門(7月14日)
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス|VBA技術解説(7月6日)
オートフィルタを退避回復するVBAクラス|VBA技術解説(7月6日)
IfステートメントとIIF関数とMax関数の速度比較|VBA技術解説(6月23日)
Withステートメントの実行速度と注意点|VBA技術解説(6月6日)
VBA+SeleniumBasicで検索順位チェッカー(改)|VBA技術解説(6月2日)
マクロでShift_JIS文字コードか判定する|VBA技術解説(6月1日)
Shift_JISのテキストファイルをUTF-8に一括変換|VBAサンプル集(5月31日)
「VBAによる解析シリーズその2 カッコ」をやってみた|エクセル(5月21日)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.変数とデータ型(Dim)|ExcelマクロVBA入門
5.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
6.繰り返し処理(For Next)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.ひらがな⇔カタカナの変換|エクセル基本操作
9.ExcelマクロVBAの基礎を学習する方法|エクセルの神髄
10.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説



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

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


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




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