- 公開日：2016-8-19
- プロナビTOP / プログラミング初心者向け技術系ノウハウ・まとめ
今回はシートを取得する方法についてご説明します。ExcelのシートはWorksheetオブジェクトで取得することができます。
それでは具体的なコードについて確認していきましょう。
Worksheetオブジェクトの取得
＜コード①＞
|
1 2 |
Dim WS As Worksheet 'Worksheetオブジェクトの定義' Set WS = Sheets("Sheet1") 'シートの取得' |
1行目でWorksheetオブジェクトをWSという名前で定義し、2行目でSheet1の情報をWorksheetオブジェクトにより取得しています。（=の右側のオブジェクトが左側に格納されます。）
また、オブジェクトの格納を行う場合は行頭にSetと表記するようにします。
インデックス番号によるシートの取得
シートには左から順に1・2・3・・・とインデックス番号が振られていますが、これを使用してシートを取得することもできます。
そして、取得したWorksheetオブジェクトは通常のシートの様にアクティブにするなどの操作を行うことができます。
＜コード②＞※以降1行目のWorksheetオブジェクトの定義は省略します。
|
1 2 3 |
Set WS = Sheets(2) 'インデックス番号でシートの取得' WS.Activate '取得したシートをアクティブにする' MsgBox "2番目のシートをアクティブにしました。" |
＜実行例＞
ちなみに、シートの数はSheets.Countで取得することができます。コード②を次の様に書き換えてみましょう。
＜コード③＞
|
1 2 3 |
Set WS = Sheets(Sheets.Count) '最終シートの取得' WS.Activate '取得したシートをアクティブにする' MsgBox "一番右側のシートをアクティブにしました。" |
＜実行例＞
コード③の2行目に注目してください。インデックス番号としてシートの総数を指定することにより最後のシートが取得できます。
アクティブシート・選択したシートの取得
ActivateやSelectで指定したシートの取得は次の様に行います。例ではNameプロパティでシート名を変更しています。
＜コード④＞
|
1 2 3 4 5 6 7 |
Sheets("Sheet1").Activate Set WS = ActiveSheet 'アクティブシートの取得' WS.Name = "Sample1" Sheets("Sheet2").Select Set WS = ActiveWindow.SelectedSheets(1) '選択されたシートの1番目を取得' WS.Name = "Sample2" |
＜実行例＞
まとめ
シートをWorksheetオブジェクトで取得すると取得元のオブジェクトと同じように操作することができるようになります。
作業対象のシートが複数存在する場合・シート名が長くて扱いづらい場合などVBAのコード内で作業しやすい名前をつけておくと便利ですね。
プログラミングで挫折しそうなら、現役エンジニアにマンツーマンで相談してみませんか？オンラインのプログラミングスクール「TechAcademy」のメンターが対応。
この記事が気に入ったら
いいね！しよう
プロナビの最新情報をお届けします
あわせて読みたい
2016年7月22日 【VBA入門】シートを削除する方法（Deleteメソッド）- 2016年7月31日 【VBA入門】シートを追加する方法（Addメソッド）
- 2016年7月19日 【VBA入門】シートをコピーする方法
- 2016年7月28日 【VBA入門】シートをアクティブにする方法（Activateメソッド）
2016年4月14日 10倍早く成果を上げる！初心者にオススメのVBA学習サイト6選
2015年6月14日 習得必須！VBAを教われるスクールBEST5
