Question

Excel VBA语言错误提示‘1004’ 类range的select 方法无效

例如：
Private Sub CommandButton2_Click()
Range("A1").Select
Sheets("Sheet3").Select
Range("B6:D6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
Sheets("Sheet2").Select
End Sub
如果用宏的话没问题，但要是要将其设置在“命令按钮”里的话就会有错误提示。错误点就在Sheet做切换的时候有问题！

Answer 1

需要勾选信任VBA。

解决这个问题的方法如下：

1、先打开电脑上面的excel，然后点击左上角的文件。

2、之后选择弹窗中的选项；

3、然后点击信任中心；

4、之后点击信任中心设置；

5、然后点击宏设置；

6、之后点击勾选上信任对VBA工程对象模型的访问，之后点击确定就可以解决这个问题了。

Answer 2

你的按钮是在哪个Sheet里呢？
对于非按钮所在Sheet里的单元格引用，Range前面要加上所在的Sheet名，这样代码看起来也不容易混淆，如：
Sheets("Sheet3").Activate
Sheets("Sheet3").Range("B6:D6").Select

并且，如果你不需要界面显示真的切换到Sheet3，只是在后台对Sheet3单元格进行操作就可以的话，Sheets("Sheet3").Activate这句都可以不要，也节省了程序运行的时间。

如果每个Sheets里的操作较多的话，可以用With语句将对各个Sheet的操作分别集中到一处，这样看起来比较清楚，如：
With Sheets("Sheet3")
.Activate
.Range("B6:D6").Select
......
End With

With Sheets("Sheet2")
.Activate
......
End With

Answer 3

看了，试了，你的代码没问题呀