| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
跟大牛学C++学算法数据结构
共有 585 人关注过本帖
标题:查找并颜色标示2个工作表中的不同
只看楼主 加入收藏
rains0921
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-3-22
  问题点数:0  回复次数:1   
查找并颜色标示2个工作表中的不同


SHEET1是考勤手动记录表
工作表3是系统考勤记录
我要核对2个工作表每天的工时是否一致,不一致的话SHEET1中底色标示出来。

各位大神拜托了,我要掉泪中,在线急等。
附件: 您没有浏览附件的权限,请 登录注册
2018-03-22 12:06
rains0921
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-3-22
  得分:0 
Private Sub 核对_Click()
On Error Resume Next
Set mycnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
mycnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
For j = 3 To [A1].End(xlToRight).Column
For i = 2 To [A1].End(4).Row
rs.Open "Select * From [3月$A1:AX65535] Where 姓名 Like '" & Cells(i, 2) & "' And 日期 Like '" & Cells(1, j) & "'", mycnn, 1, 1
If Cells(i, j).Value <> IIf(IsNull(rs.Fields("有效生产工时")), 0, rs.Fields("有效生产工时")) Then Cells(i, j).Interior.Color = RGB(255, 255, 0)
rs.Close
Next
Next
mycnn.Close
End Sub
2018-03-23 09:56







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.135231 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved