ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 847|回复: 3

要一个多条件判断语句!求助!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-3-13 14:40 | 显示全部楼层 |阅读模式
本帖最后由 yueaiting 于 2020-3-13 14:43 编辑

QQ截图20200313143409.png 这是一个存档功能,之前是通过日期不同(O列)判断是否需要存档,这个就能正常实现,代码如下:
If .Cells(i, 2) = Sheet5.Cells(j, 3) And .Cells(i, 15) = Sheet5.Cells(j, 12) Then
                    isOld = True
                    Exit For
                Else
                    isOld = False
                End If



后来觉得不完善,想通过N,O,P,Q任意一列有更改都存档。我就改成如下代码:


For j = 2 To mt               
          If .Cells(i, 2) = Sheet5.Cells(j, 3) And .Cells(i, 14) = Sheet5.Cells(j, 11) And .Cells(i, 15) = Sheet5.Cells(j, 12) And .Cells(i, 16) = Sheet5.Cells(j, 13) Then
                    isOld = True
                    Exit For
            Else
                    isOld = False
           End If
Next j


老是调试出错!望高手指教啊!


TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-13 15:01 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-13 15:03 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-13 16:44 | 显示全部楼层
本帖最后由 yueaiting 于 2020-3-13 16:46 编辑

自己捣鼓了一会可以搞定了,每个单元格都赋值成功,前面1-8列都可以成功写入存档的页面!9列以后就是不写入!不知道什么情况@
微信图片_20200313164549.png
微信图片_20200313164553.png
微信图片_20200313164651.png
微信图片_20200313164541.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 09:50 , Processed in 0.043600 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表