如果存在工作表的名字是“YIET21”則做流程1,否則結束流程,用VBA怎麼表達
时间: 2024-02-18 17:02:23 浏览: 17
您可以使用以下 VBA 代码来实现:
```
Dim ws As Worksheet
Set ws = Nothing
On Error Resume Next
Set ws = Worksheets("YIET21")
On Error GoTo 0
If ws Is Nothing Then
'不存在名为 "YIET21" 的工作表,执行结束流程的代码
Else
'存在名为 "YIET21" 的工作表,执行流程1的代码
End If
```
这段代码的意思是,先定义一个名为 ws 的 Worksheet 对象,并将其初始化为 Nothing。然后使用 On Error Resume Next 语句,屏蔽掉可能会出现的“找不到工作表”的错误。接着使用 Worksheets("YIET21") 语句来尝试获取名为 "YIET21" 的工作表,如果成功获取,则将其赋值给 ws 变量;否则 ws 变量仍然为 Nothing。
最后,根据 ws 变量是否为 Nothing 来判断是否存在名为 "YIET21" 的工作表,从而执行对应的代码块。
相关问题
如果工作表的名字是“YIET21”則做流程1,否則結束流程,用VBA怎麼表達
您可以使用以下VBA代码来实现:
```
If ActiveSheet.Name = "YIET21" Then
'执行流程1的代码
Else
'结束流程的代码
End If
```
其中,`ActiveSheet.Name`代表当前活动的工作表的名称。如果它等于"YIET21",则执行流程1的代码块;否则执行结束流程的代码块。
相关推荐
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![mp4](https://img-home.csdnimg.cn/images/20210720083504.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![md](https://img-home.csdnimg.cn/images/20210720083646.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)