使用ActiveX Button執行程式碼,Range("A1").Select無法正常執行

使用ActiveX Button執行程式碼,Range("A1").Select無法正常執行,程式碼如下:

Private Sub CommandButton1_Click()
Sheets("第二個").Select      '--->這一段可以正常執行
Range("A1").Select      '--->這一段會無法正常執行,且會出現錯誤訊息,如下圖所示。
End Sub


error msg.jpg
網上答案
CommandButton1_Click 是工作表1的程序 Range("A1").Select  是指在工作表1的 .Select
Sheets("第二個").Select 後作用中的工作表是 工作表2 所以會錯誤
Private Sub CommandButton1_Click()
With Sheets("第二個")
  .Select
  .Range("A1").Select
End With
End Sub

沒有留言:

張貼留言