[已解决]不知什么原因，总是代码运行时错误“13”，类型不匹配，谁能帮我看看是什么原因呢？

qingping95 · 发表于 2017-4-21 14:29

Sub 宏1()
Dim sht, s
For Each sht In Worksheets
If sht.Tab.ColorIndex = 10 Then
s = s & "," & sht.Name
End If
Next sht
s = Mid(s, 2)
s = Split(s, ",")
Sheets(s).Copy
End Sub

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2017-4-21 15:00

Sub 宏1()
Dim sht, s
For Each sht In Worksheets
If sht.Tab.Color = 5287936 Then
s = s & "," & sht.Name
End If
Next sht
s = Mid(s, 2)
s = Split(s, ",")
Sheets(s).Copy
End Sub

复制代码

跳转到最佳答案楼层

Excel学徒123 · 发表于 2017-4-21 14:42

检查colorindex是否等于10 要是不等于10，那S就是一个空的variant类型的数据，那你mid去截取肯定提示你出错

qingping95 · 发表于 2017-4-21 14:49

Excel学徒123 发表于 2017-4-21 14:42
检查colorindex是否等于10 要是不等于10，那S就是一个空的variant类型的数据，那你mid去截取肯定提示你出 ...

我对代码不懂，我把附件传来，麻烦你能帮我看看是什么原因好吗？，谢谢！

france723 · 发表于 2017-4-21 14:55

我运行的时候并没有报错啊

Excel学徒123 · 发表于 2017-4-21 15:00

这个最佳答案由 Excel学徒123 给出，感谢 Excel学徒123 的回答。

单击隐藏图章

Sub 宏1()
Dim sht, s
For Each sht In Worksheets
If sht.Tab.Color = 5287936 Then
s = s & "," & sht.Name
End If
Next sht
s = Mid(s, 2)
s = Split(s, ",")
Sheets(s).Copy
End Sub

复制代码

Excel学徒123 · 发表于 2017-4-21 15:01

qingping95 发表于 2017-4-21 14:49
我对代码不懂，我把附件传来，麻烦你能帮我看看是什么原因好吗？，谢谢！

看5楼

qingping95 · 发表于 2017-4-21 15:06

Excel学徒123 发表于 2017-4-21 15:01
看5楼

对比了一下，改了个数字，虽然不明什么意思，但用你修改后的代码问题解决了！谢谢版主！！1

Excel学徒123 · 发表于 2017-4-21 15:07

qingping95 发表于 2017-4-21 15:06
对比了一下，改了个数字，虽然不明什么意思，但用你修改后的代码问题解决了！谢谢版主！！1

不客气

爱疯 · 发表于 2017-4-21 15:11

Sub 宏1()
Dim sht, i, arr()

For Each sht In Worksheets
      If sht.Tab.ColorIndex = 10 Then
         i = i + 1
         ReDim Preserve arr(1 To i)
         arr(i) = sht.Name
      End If
Next sht

If i > 0 Then Sheets(arr).Copy
End Sub

新建一个空白工作簿，5楼仍报错。
原因见2楼，需保数组不出错。

qingping95 · 发表于 2017-4-21 21:00

本帖最后由 qingping95 于 2017-4-21 21:02 编辑

爱疯发表于 2017-4-21 15:11
Sub 宏1()
Dim sht, i, arr()

非常棒，学习了，非常感谢超级版的回复和帮助!

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