[已解决]求一句最大值代码

zhouyuma

我的工作表名称由两部分组成：letter&数字，其中letter是变量，为2～5个不等的英文字母组成的工作表类别，由窗口输入，后面的数字为三位数形式的数字，是该类工作表的数量，如工作表bca005，这些工作都在第90个表后面，现在要这样一句代码：
num = 工作表名中的数字最大值
这句代码要求在无该类工作表时，num返回0，不能返回错误值而停止运行代码，还有工作表除第一个外，其余全部是隐藏的。
谢谢回复

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-1 17:04

循环比较，输入的字母，是否包含在从91以后的工作表名中，找不到就001，找到一个累加一个，累加数就是你这个类型工作表的个数，

跳转到最佳答案楼层

qh8600

循环比较，输入的字母，是否包含在从91以后的工作表名中，找不到就001，找到一个累加一个，累加数就是你这个类型工作表的个数，

zhouyuma

qh8600 发表于 2014-10-1 17:04
循环比较，输入的字母，是否包含在从91以后的工作表名中，找不到就001，找到一个累加一个，累加数就是你这个 ...

大师傅你好，我以前没学过编程和VBA，只是最近要搞个文件，简单的代码判断能用，但查找函数我不会用，更不知道工作表名和查找这个函数怎么连接在一起，按你的意思写了一个，运行错误“424，要求对象”没好意思把错误的代码传上，百度也没搞明白了，还请大师指教。

qh8600

zhouyuma 发表于 2014-10-1 19:37
大师傅你好，我以前没学过编程和VBA，只是最近要搞个文件，简单的代码判断能用，但查找函数我不会用，更 ...

1. Sub demo()
   
2. Dim str As String, i As Long, n As Long
   
3. str = "Sh"
   
4. For i = 1 To Sheets.Count
   
5. If Sheets(i).Name Like str & "*" Then
   
6. n = n + 1
   
7. End If
   
8. Next
   
9. End Sub

复制代码

判断变量str是否包含在工作表名，赋值“Sh”,这里新建工作簿表名都是sheet1,sheet2,sheet3,是就是 n=n+1 ，所以最后n=3

hannanrenjie

学学有好处！

zhouyuma

qh8600 发表于 2014-10-1 20:52
判断变量str是否包含在工作表名，赋值“Sh”,这里新建工作簿表名都是sheet1,sheet2,sheet3,是就是 n=n+1 ， ...

我这代码是用在复制工作表前的判断，防止产生重复表名使代码运行错误，昨天捣鼓一天才搞出来，就连断号都查出来了，还是感谢你帮忙，你这个代码给我下面的工作表分类提供了样板，谢谢了