エクセルVBAでボタンを作ったシートとVBAを実行するシートを変えたい

質問

シート１にボタンを作成し、
そのボタンを押すと実行するVBAを作成しました。
そこで、VBAを実行するシートの指定はできるのでしょうか。
例えば、ボタンを押すと、
１０行から２０行まではシート２で実行させ、
３０行から４０行まではシート３で実行させたいと考えています。
可能でしょうか。
どうぞ宜しくお願いします。

***********************************************
作成したVBA。ボタンはシート１にあります。
***********************************************

Private Sub CommandButton1_Click()

***********************************************
ここからはシート２で実行させたい
***********************************************
Range("E2").Select
ActiveCell.FormulaR1C1 = "10"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E101"), Type:=xlFillDefault
Range("E2:E101").Select

***********************************************
ここからはシート３で実行させたい
***********************************************
Range("A2").Select
ActiveCell.FormulaR1C1 = "100"
Range("A2").Select
Selection.AutoFill Destination:=Range("E2:E101"), Type:=xlFillDefault
Range("A2:A101").Select

End Sub

回答No.2

chibita_papa · ベストアンサー

予期しないエラーを避けるため
シートを直接選択したらどうでしょうか

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

***********************************************
ここからはシート２で実行させたい
***********************************************
Sheets("Sheet2").Select

Range("E2").Select
ActiveCell.FormulaR1C1 = "10"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E101"), Type:=xlFillDefault
Range("E2:E101").Select

***********************************************
ここからはシート３で実行させたい
***********************************************

Sheets("Sheet3").Select

Range("A2").Select
ActiveCell.FormulaR1C1 = "100"
Range("A2").Select
Selection.AutoFill Destination:=Range("E2:E101"), Type:=xlFillDefault
Range("A2:A101").Select

Sheets("Sheet1").Select
Application.ScreenUpdating = True

End Sub

お礼

回答ありがとうございます。
教えていただいたとおりにやったらできました。
ありがとうござました。

回答No.1

kirara77

初めまして。
それぞれのシートで実行したいと言う意味は、指定している『Range』指定のセル位置が、各シートのと言う意味ですよね。
それであれば、シート２に設定する記述の『Range』部分の頭に、『Sheet2.Range("E2").Select』のように指定すれば良いですよ。
因みに、シート３の部分であれば、『Sheet3.Range("A2").Select』とかになります。
その他の『Range』指定のところも同じように指定してください。

お礼

回答ありがとうございます。
教えていただいたとおりにやったらできました。
ありがとうござました。