人员信息变动比对

马毅 · 发表于 2023-3-24 10:53

我把人员信息放到“人员信息”表中，大概2万人，在“人员变动”表中录入一部分人员信息，（与“人员信息”中可能有部分信息不同），

希望可以实现，点击按钮以后，把“人员变动”表中的人，按身份证号为识别信息，与“人员信息”此人的信息做比对，
按照每1个人2行，输出到“审核结果”表，第1行为第1个人“人员信息”的信息，第2行为第1个人“人员变动”的信息，第1行和第2行的信息不一致的，把2个格填充红色。
第3行为第2个人“人员信息”的信息，第4行为第1个人“人员变动”的信息，依次类推。
这个是个样表，真实的表每个人有50列信息，每次比对最多大概有500人。
谢谢

grf1973 · 发表于 2023-3-24 14:11

请看附件。。。。。

shiruiqiang · 发表于 2023-3-24 13:05

单元格标红啥的，不能在数组中操作，有空再写。

目前提取的是“两表”中都有的人员名单

ykcbf1100 · 发表于 2023-3-24 14:04

附件请参考。。。

sdytsxd991122 · 发表于 2023-3-24 20:46

gwjkkkkk · 发表于 2023-3-24 21:43

纯数组参与一下。。。

准提部林 · 发表于 2023-3-25 10:43

填色--用格式條件

Xl0000660.rar (10.58 KB, 下载次数: 10)

马毅 · 发表于 2023-3-27 10:50

grf1973 发表于 2023-3-24 14:11
请看附件。。。。。

您好，我想加点功能，就是“人员变动”表里面的信息如果是空，就不标红。

马毅 · 发表于 2023-3-27 12:59

grf1973 发表于 2023-3-24 14:11
请看附件。。。。。

For Each j In Split(Mid(d1(i), 2), ",")
您好，我把这个宏移到我的另外一个表里面，显示这里“运行时错误13，类型不匹配”
但是原先的表里面没有这个问题，请问是什么情况？

WANT-T · 发表于 2023-3-27 18:03

马毅发表于 2023-3-27 12:59
For Each j In Split(Mid(d1(i), 2), ",")
您好，我把这个宏移到我的另外一个表里面，显示这里“运行时 ...

很容易理解呀，就是这个代码仅针对当前文件，当前的数据有效呗，其它地方不能保证正常运行；

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

[求助] 人员信息变动比对

评分

评分

评分

评分