－ちょっと使えるネタを紹介－
Excel VBAで、シートを指定する方法として、アクティブシートを指定、シート名を使う、シートインデックスを使う、シートオブジェクトを使う方法があります。Excel VBAを使う上で、シートを指定する方法はかなり重要になってきます。シートを指定する方法について、マスターしていきましょう。
この記事では、シートを指定する方法を、4つご紹介します。
4つの方法と、主な使い分けは次のようになります。
Excel VBAを使う上で、シートを指定する方法は、かなり重要になります。
シートを指定する方法について、マスターしていきましょう。
では、シートを指定する方法について、解説していきます。
この記事を読むメリット
目次から見たい項目へ移動すると便利ですよ。
目次
シートを指定する方法を4つご紹介します。
という感じになります。
それぞれ、解説していきます。
アクティブシートを指定してみます。
アクティブシートを指定するVBAコードです。
「ActiveSheet」を使って、現在アクティブのシートを指定します。
Sub TEST1()
'アクティブシートに入力
ActiveSheet.Range("A1") = "ABC"
End Sub
実行すると、アクティブシートに入力できます。
アクティブシートに入力できました。
「ActiveSheet」を省略すると、アクティブシートを指定することになります。
Sub TEST2()
'「ActiveSheet」は省略すると、アクティブシートに入力
Range("A1") = "ABC"
End Sub
「ActiveSheet」を省略して、アクティブシートを指定します。
「ActiveSheet」を省略して、アクティブシートを指定できました。
アクティブシートを起点にして、左のシートを指定するには「.Previous」を使います。
Sub TEST3()
'アクティブシートの「左」のシートに入力
ActiveSheet.Previous.Range("A1") = "ABC"
End Sub
「.Previous」を使って、アクティブシートの左のシートを指定できます。
実行すると、アクティブシートの左のシートに入力できます。
アクティブシートの左のシートに入力できました。
アクティブシートの右のシートを指定するには、「.Next」を使います。
Sub TEST4()
'アクティブシートの「右」のシートに入力
ActiveSheet.Next.Range("A1") = "ABC"
End Sub
「.Next」を使って、右のシートを指定することができます。
実行すると、アクティブシートの右のシートに入力できます。
アクティブシートの右のシートに入力できました。
2つ目の指定方法の「シート名」を使って、シートを指定してみます。
「シート名」を使って指定したい場合は、次のように入力します。
Sub TEST5()
'シート名が「Sheet2」のシートに入力
Worksheets("Sheet2").Range("A1") = "ABC"
End Sub
実行すると、シート名「Sheet2」に入力できます。
シート名「Sheet2」に入力できました。
「Worksheets」を「Sheets」のように短縮してもできます。
Sub TEST6()
'「Sheets」に短縮できる
Sheets("Sheet2").Range("A1") = "ABC"
End Sub
実行すると、先ほどと同じようにシート名「Sheet2」を指定できます。
「Sheet2」に入力できました。
3つ目の方法で、シートインデックスを使って、シートを指定してみます。
シートインデックスはシートの順番になります。
一番左のシートが、シートインデックス「1」になります。
「2番目」のシートを、シートインデックスを使って指定してみます。
Sub TEST7()
'「2番目」のシートに入力
Sheets(2).Range("A1") = "ABC"
End Sub
実行すると、「2番目」のシートに入力できます。
「2番目」のシートに入力できました。
4つ目の方法で、シートオブジェクトを使って、シートを指定してみます。
シートオブジェクトは、VBE画面で確認できます。
VBA上のシートの名前みたいなものですね。
シートオブジェクトを使って、シートを指定するには次のように入力します。
Sub TEST8()
'シートオブジェクト「Sheet2」に入力
Sheet2.Range("A1") = "ABC"
End Sub
実行すると、「Sheet2」のシートオブジェクトに入力できます。
「Sheet2」のシートオブジェクトに入力できました。
シートの指定方法の使い分けについてみてみましょう。
使い分けは、次のようになります。
では、それぞれみていきます。
1シートのみ使う場合は「アクティブシート」を使います。
1シートのみ使う場合は、「ActiveSheet」を省略して、セル範囲から記載します。
Sub TEST9()
'1シートのみを使う場合は、アクティブシートを指定
Range("A1") = "ABC"
End Sub
実行すると、アクティブシートに値を入力できます。
1シートのみの場合は、「ActiveSheet」を省略して、アクティブシートを指定します。
作業シートを使う場合も、「アクティブシート」を基準にして、指定します。
元シートを変更しないで、データの編集や加工をしたい場合に、作業シートを使います。
作業シートを使って、1を足してみます。
作業シートを使って、1を足すVBAコードです。
Sub TEST10() Dim A Sheets.Add 'シートを追加 'アクティブシートの「右」のシートから値をコピー ActiveSheet.Next.Range("A1").Copy Range("A1") Range("A1") = Range("A1") + 1 '1を足す A = Range("A1") '値を取得 Application.DisplayAlerts = False ActiveSheet.Delete 'シートを削除 Application.DisplayAlerts = True Range("A1") = A '値を入力 End Sub
では、VBAコードを実行してみます。
シートを追加します。
アクティブシートの右側のシートである「ActiveSheet.Next」を使って、値をアクティブシートにコピーします。
1を足して、セルから値を取得します。
作業シートを削除します。
元のシートに値を入力します。
こんな感じで、作業シートを使う場合は、「アクティブシート」を基準にして、右側のシートの値を取得したりします。
別シートの操作は「シート名」を使うと簡単です。
「Sheet1」の値を、「Sheet2」に転記するVBAコードです。
Sub TEST11()
'「Sheet1」の値を「Sheet2」に転記
Sheets("Sheet2").Range("A1") = Sheets("Sheet1").Range("A1")
End Sub
実行してみます。
こんな感じで、別シートに値を転記する場合は、「シート名」を使うと簡単です。
シートをループする際は「シートインデックス」でシートを指定します。
シートをループして、シートインデックスを使って、シート名を取得するVBAコードです。
Sub TEST12() '最終行までループ For i = 1 To Sheets.Count 'シート名を出力 Debug.Print Sheets(i).Name Next End Sub
こんな感じで、シートをループすることができます。
実行すると、シートをループして、シート名を取得できます。
シートをループして、シート名を取得できました。
シート名が変更されることがある場合は、「シートオブジェクト」を使ってシートを指定します。
Sub TEST13()
'シートオブジェクト「Sheet2」に入力
Sheet2.Range("A1") = "ABC"
End Sub
シート名を変更してみます。
シート名が変更されても、シートオブジェクトはそのままなので、シートを指定することができます。
こんな感じで、シート名が変更される場合は、シートオブジェクトを使います。
この記事では、シートを指定する方法を、4つご紹介しました。
4つの方法と、主な使い分けは次のようになります。
Excel VBAを使う上で、シートを指定する方法は、かなり重要になります。
シートを指定する方法について、マスターしていきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する