各位大侠,下面的代码我想达到如下目的:判断工作簿中是否有“数据汇总”这个工作表,如果有,就执行call test,如果没有就提示“温馨提示:程序检测到无“数据汇总”工作表!"。可在工作簿中有“数据汇总”工作表的情况下,仍然提示“温馨提示:程序检测到无“数据汇总”工作表!",而不运行call test?请大侠们赐教,谢谢!
Private Sub CommandButton1_Click()
Dim y As Integer
For y = 1 To Sheets.Count
If Sheets(y).Name = "数据汇总" Then
Call test
Else
MsgBox "温馨提示:程序检测到无“数据汇总”工作表!"
Exit Sub
End If
Next
End Sub
s = "数据汇总"
For i = 1 To Sheets.Count
If Sheets(i).Name = s Then s = "": Exit For
Next
If s = "" Then Call test Else MsgBox "温馨提示:程序检测到无“" & s & "”工作表!"
End Sub
s = "数据汇总"
For i = 1 To Sheets.Count
If Sheets(i).Name = s Then s = "": Exit For
Next
If s = "" Then Call test Else MsgBox "温馨提示:程序检测到无“" & s & "”工作表!"
End Sub