命令button（）只能在某些表单可用的时候点击

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

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

有时候我错误地点击了命令button，哪个表单不可用，代码也不会生成任何数据。

Answer 1

你能做下面的事吗？ 显然你需要用你的工作表名称replace“20”，并且你将把这个代码放到你的点击处理程序中

 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......