请问工作表名称包含特定值就执行代码如何写？

rocklyman · 发表于 2023-1-16 11:03

如果工作表名称含有“汇总”，就继续执行代码
PS：2月，3月汇总后面有一个/两个空格

望大神指点

Sub test()
Dim i As Integer
For i = 1 To 5
Sheets(i).Select
Range("C1") = Range("a1") + Range("b1")
Next i
End Sub

杨建营 · 发表于 2023-1-16 11:12

sheets(i).name like "*汇总*"

yynrzwh · 发表于 2023-1-16 11:17

If InStr(Sheets(i).Name, "汇总") Then

rocklyman · 发表于 2023-1-16 11:20

杨建营发表于 2023-1-16 11:12
sheets(i).name like "*汇总*"

感谢大神指点

rocklyman · 发表于 2023-1-16 11:21

yynrzwh 发表于 2023-1-16 11:17
If InStr(Sheets(i).Name, "汇总") Then

感谢大神指点

LIUZHU · 发表于 2023-1-16 14:56

如果是js的代码，应该是Sheets.Item(i).includes("汇总")

		自动登录	找回密码
密码			免费注册

[求助] 请问工作表名称包含特定值就执行代码如何写？