代码两次运行结果不一致

朱付安 · 发表于 2024-6-23 19:27

本帖最后由朱付安于 2024-6-23 19:49 编辑

代码两次运行后结果不一样，请问老师怎么调整代码，百度了一下，原因可能是使用了on Error Resume Next的原因，但是不适用会出现下标越界的问题，谢谢，我想要达到的效果是第二次执行的结果

quqiyuan · 发表于 2024-6-23 20:08

重新写了ShtExists，供参考。。

quqiyuan · 发表于 2024-6-23 20:08

代码如下。。。。
Function ShtExists(shtname)
Dim s, sht As Worksheet
For Each sht In ThisWorkbook.Sheets
      If sht.Name = shtname Then
         ShtExists = True
         Exit For
      Else
         ShtExists = False
      End If
Next
End Function

朱付安 · 发表于 2024-6-23 20:26

本帖最后由朱付安于 2024-6-23 20:32 编辑

quqiyuan 发表于 2024-6-23 20:08
重新写了ShtExists，供参考。。

好的老师我试试看

quqiyuan · 发表于 2024-6-23 20:30

朱付安发表于 2024-6-23 20:26
老师出现函数未定义

你写错字符了吧，我运行没问题

朱付安 · 发表于 2024-6-23 20:35

quqiyuan 发表于 2024-6-23 20:30
你写错字符了吧，我运行没问题

额，写错了，运行后还是两次执行结果不一致，老师

quqiyuan · 发表于 2024-6-23 20:44

我不知道你两次结果不一样是哪里，我运行了后都是这个（我自己随便加了几个表）

朱付安 · 发表于 2024-6-23 20:52

quqiyuan 发表于 2024-6-23 20:44
我不知道你两次结果不一样是哪里，我运行了后都是这个（我自己随便加了几个表）

这样的两次不一致，老师

ynzsvt · 发表于 2024-6-23 20:58

这家伙目标是推兰剧

复制代码

quqiyuan · 发表于 2024-6-23 21:34

你写的不规范，有些引用工作表，有些又没有，直接写range什么的，你有时候运行的时还有其他工作簿打开，就有可能出错，改好了，我觉得没问题咯。。
主要这一块改动。。

现在都是这样的了

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

[求助] 代码两次运行结果不一致

评分