[已解决]求同时选择工作名中含有相同文字的工作表代码

zhouyuma · 发表于 2014-12-7 18:47

本帖最后由 zhouyuma 于 2014-12-9 19:42 编辑

1、我有一文件表很多（附件中少）有时要同时选择同类型的表，同类型表表名中第4、5字母相同
2、有一段文字，我想放在窗体中，通过点击按钮出现，搞出来后，右边无拖条，文字无法全部显示，请帮忙修改
谢谢大师帮忙

最佳答案

月排行榜 / 总排行榜

zjdh

2014-12-8 13:39

附件2.rar (150.97 KB, 下载次数: 10)

grf1973 · 发表于 2014-12-8 11:06

2、把文字放在文本框中，把文本框的multiline设置成true。

grf1973 · 发表于 2014-12-8 11:19

问题1：一次选择多个工作表。

Sub 选择特定表() '选择第4、第5字母为特定值的表
Dim arr()
txt = InputBox("请输入第4第5位字母")
For Each sh In Worksheets
If Mid(sh.Name, 4, 2) = txt Then
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = sh.Name
End If
Next
If n >= 1 Then Sheets(arr).Select
End Sub
Sub 选择第四表() '选择工作表名长度为6的表
Dim arr()
For Each sh In Worksheets
If Len(sh.Name) = 6 Then
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = sh.Name
End If
Next
If n >= 1 Then Sheets(arr).Select
End Sub

复制代码

grf1973 · 发表于 2014-12-8 11:30

请看附件。两个问题都做在里面了。文本框的strollbar还要设置一下的。

zjdh · 发表于 2014-12-8 12:40

zjdh · 发表于 2014-12-8 12:51

本帖最后由 zjdh 于 2014-12-8 13:38 编辑

改不了附件

zjdh · 发表于 2014-12-8 13:39

附件2.rar (150.97 KB, 下载次数: 10)

zhouyuma · 发表于 2014-12-9 19:38

本帖最后由 zhouyuma 于 2014-12-9 23:00 编辑

zjdh 发表于 2014-12-8 13:39

谢谢帮忙了，上次上传文件为了简化，把"工程信息"表前面的好多母表都删除了，现在我在附件中加了几个（这母表在我不同的文件中，数量也不同），我不知道For Each SH In Sheets怎样改为
For j = henshnum To Sheets.Count
henshnum为全局变量，"工作表信息"表前面表的数量，谢谢大师了

zhouyuma · 发表于 2014-12-9 19:41

grf1973 发表于 2014-12-8 11:30
请看附件。两个问题都做在里面了。文本框的strollbar还要设置一下的。

感谢帮忙，学习了

zjdh · 发表于 2014-12-10 07:53

设置henshnum啥作用？
henshnum 可要先赋值啊！
否则宏无法正常运行的！

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

[已解决]求同时选择工作名中含有相同文字的工作表代码

相关帖子