Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/blackberry/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将VBA范围命令与其他图纸中的ActiveX按钮一起使用_Vba_Range_Activex - Fatal编程技术网

将VBA范围命令与其他图纸中的ActiveX按钮一起使用

将VBA范围命令与其他图纸中的ActiveX按钮一起使用,vba,range,activex,Vba,Range,Activex,在建立用户界面时,我使用VBA2010中的ActiveX按钮。我首先编写宏,检查它们,然后将它们复制到ActiceX按钮代码中 然后,宏在另一个工作表的范围命令下崩溃。为了测试它,我分离了以下命令: Sheets("Data").Visible = xlSheetVisible Sheets("Data").Select Columns("O:O").Select ' The code crashes here 结果我得到一个1004运行

在建立用户界面时,我使用VBA2010中的ActiveX按钮。我首先编写宏,检查它们,然后将它们复制到ActiceX按钮代码中

然后,宏在另一个工作表的范围命令下崩溃。为了测试它,我分离了以下命令:

Sheets("Data").Visible = xlSheetVisible 
Sheets("Data").Select                   
Columns("O:O").Select         ' The code crashes here
结果我得到一个1004运行时错误。 我发现了一个类似的话题,似乎也没有解决

非常感谢你的帮助。
提前谢谢

不建议选择。请将代码修改为

 Dim ws As Worksheet
 Set ws = Sheets("Data")
 ws.Visible = xlSheetVisible
 ws.Select
 With ws
 .Columns("O:O").Select
 End With

如果回答了您的问题,请单击复选标记。我们将这样做。谢谢:)