求execl多条件判断执行代码，能解决有小小心意

zzh201 · 发表于 2023-4-29 19:39

本帖最后由 zzh201 于 2023-4-29 19:54 编辑

zzh201 发表于 2023-4-29 17:35
出现一个问题，在数量列为负数时会跳过当前行的处理操作。

加上ElseIf ar(I, 6) < 0 Then的话后面好像执行不了

gbgbxgb · 发表于 2023-4-29 20:25

本帖最后由 gbgbxgb 于 2023-4-30 10:41 编辑

试试附件中代码。

说明：本人没高版本Excel，向来用的都是2003版本的，如代码可行，请自行复制代码粘贴到目标工作簿。

附件见13楼。

gbgbxgb · 发表于 2023-4-29 20:28

本帖最后由 gbgbxgb 于 2023-4-30 10:40 编辑

zzh201 发表于 2023-4-29 17:35
出现一个问题，在数量列为负数时会跳过当前行的处理操作。

数量列竟然允许负数？

找到下列这句代码：
If theNum > 0 Then '存在有意义数量
改成：
If theNum <> 0 Then '数量不为0值

3190496160 · 发表于 2023-4-29 20:34

zzh201 发表于 2023-4-29 17:35
出现一个问题，在数量列为负数时会跳过当前行的处理操作。

说过了，这只是一个初稿，问题肯定会存在，可以加v

3190496160 · 发表于 2023-4-29 20:36

zzh201 发表于 2023-4-29 17:35
出现一个问题，在数量列为负数时会跳过当前行的处理操作。

If ar(i, 6) > 0 Then
修改为
If ar(i, 6) <> 0 Then

gbgbxgb · 发表于 2023-5-4 16:16

楼主若已拿到代码并测试满意，请表示心意。

zzh201 · 发表于 2023-5-7 09:41

感谢大神 3190496160的代码及后续支持，感谢各位大佬的指点，问题已经解决，心意已送出，此贴完结

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

[求助] 求execl多条件判断执行代码，能解决有小小心意