仅当某个工作表可用时，才应单击命令按钮（）

Question

我每天都在收集数据。为此，我使用不同的命令按钮来处理数据并从不同的工作表收集数据。已经在第一张纸上保留了大约25个命令按钮。我的问题是，例如命令按钮说20不应该工作或不应该点击，除非表单号。 20可用。目前我正在使用

Dim j As Integer, k As Integer
j = Worksheets.Count
For k = 20 To 20
With Worksheets(k)

有时我错误地点击命令按钮，哪个特定表格不可用，代码不生成任何数据。

Answer 1

你可以做下面这样的事吗？ 显然你需要更换＆＃34; 20＆＃34;无论您的工作表名称是什么和 并且您将此代码放在您的点击处理程序

中

Dim isWorlsheetAvailable
isWorlsheetAvailable = False
For i = 1 To ActiveWorkbook.Worksheets.Count
    If ActiveWorkbook.Worksheets(i).Name = "20" Then
        isWorlsheetAvailable = True
    End If
Next i

If Not isWorlsheetAvailable Then
    MsgBox ("sdffd")
    Exit Sub
End If
Do your work here......