[已解决]工作表选择时通配符怎么用?

暗夜男

这是我录制宏的一部分,但是这个工作表的名称会变化,但是前面的"呵呵"不会变,比如呵呵(1),呵呵(2)以此类推

我的目的是切换到开头为"呵呵"的工作簿

Sheets("呵呵").Select

最佳答案

月排行榜 / 总排行榜

xdragon

2014-2-19 11:42

sub t()
   dim sh as worksheet
   for each sh in worksheets
      if instr(1,sh.name,"呵呵") then sh.select:exit for
   next
end sub

跳转到最佳答案楼层

冠军欧洲2010

Sub A()
Dim X
X = 2
Sheets("呵" & X).Select
End Sub

暗夜男

冠军欧洲2010 发表于 2014-2-19 11:34
Sub A()
Dim X
X = 2

好像不太对,我这里测试用的工作表明叫"呵aaa"

冠军欧洲2010

文本的，你可以把表名后半部分定义为一数组。
然后，用数组来循环。

xdragon

sub t()
   dim sh as worksheet
   for each sh in worksheets
      if instr(1,sh.name,"呵呵") then sh.select:exit for
   next
end sub

冠军欧洲2010

比如，
DIM ARR
ARR=ARRAY("aa","bb")
然后， 用Sheets("呵" & ARR(X)).Select
这样。

云影

1. Sub test()
   
2. Dim sh As Worksheet
   
3.   For Each sh In Sheets
   
4.       If sh.Name Like "呵呵*" Then
   
5.          sh.Select
   
6.       End If
   
7.   Next
   
8. End Sub

复制代码

暗夜男

冠军欧洲2010 发表于 2014-2-19 11:43
比如，
DIM ARR
ARR=ARRAY("aa","bb")

表名不确定后面是什么,只知道个开头

冠军欧洲2010

暗夜男 发表于 2014-2-19 14:06
表名不确定后面是什么,只知道个开头

那用楼上的就行啊。

暗夜男

云影 发表于 2014-2-19 11:46

报错了= =