Question

我正在尝试禁用一个命令按钮，该按钮复制一行数据并解析到另一个工作表中。那部分有效，我在单独的工作表中尝试了以下代码，一切正常。当我将代码放入excel数据库的VBA中时，我得到了一个错误：“运行时错误9：下标超出范围” 我想我没有正确地将地址放入文件中。有什么想法吗？

这是我的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Last_row As Long
Last_row = Range("A" & Rows.Count).End(xlUp).Row
If Worksheets("NewQuotes").Range("AM" & Last_row).Value <= Now() Then               
Worksheets("NewQuotes").CommandButton2.Enabled = False                           
Worksheets("S:\PRICE LISTS 1\[Sales Database.xlsm]NewQuotes").Shapes("CommandButton2").ControlFormat.Enabled = False  
End If
End Sub

Answer 1

要引用命令按钮，请使用以下语法：

如果代码和命令按钮（名为CommandButton2）都在同一个工作簿中：

ThisWorkbook.Worksheets("sheet_name").CommandButton2.Enabled = False

如果他们在不同的书中：

Workbooks("book_name.xlsm").Worksheets("sheet_name").CommandButton2.Enabled = False

禁用命令按钮：无法通过VBA找到命令按钮;运行时错误9

1 个答案: