VB怎么样可以让表1名称与表2对比,不同的用红色背影显示

OOCHENG · 发表于 2008-12-4 15:23

VB怎么样可以让表1名称与表2对比,不同的用红色背影显示

附件

yuan710825 · 发表于 2008-12-4 15:46

Sub aa()
Set wb = GetObject(ThisWorkbook.Path & "\表2.xls")
For i = 1 To [a65536].End(xlUp).Row
For j = 1 To wb.sheets("表1") .[a65536].End(xlUp).Row
If Cells(i, 1) = wb.Sheets("表1").Cells(j, 1) Then
Range("a" & i).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub

[ 本帖最后由 yuan710825 于 2008-12-4 20:26 编辑 ]

OOCHENG · 发表于 2008-12-4 16:48

学习谢谢yuan710825

OOCHENG · 发表于 2008-12-4 18:34

如果表2数据改变位置,那么表1代码该怎么设置
附件

OOCHENG · 发表于 2008-12-4 19:35

是怎么设置

yuan710825 · 发表于 2008-12-4 20:25

Sub aa()
Set wb = GetObject(ThisWorkbook.Path & "\表2.xls")
For i = 1 To [a65536].End(xlUp).Row
For j = 2 To wb.Sheets("表1").[a65536].End(xlUp).Row
If Cells(i, 1) = wb.Sheets("表1").Cells(j, 2) Then
Range("a" & i).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub

[ 本帖最后由 yuan710825 于 2008-12-4 20:32 编辑 ]

OOCHENG · 发表于 2008-12-4 20:32

点击后没反应

OOCHENG · 发表于 2008-12-4 20:34

可以了谢谢谢谢
自己再试试

yuan710825 · 发表于 2008-12-4 20:34

重新发了个附件，再试试吧，记住要解压再点击按钮哦

OOCHENG · 发表于 2008-12-4 20:36

嗯,,明白谢谢

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

[转帖] VB怎么样可以让表1名称与表2对比,不同的用红色背影显示

学习谢谢yuan710825

续问如果表2数据改变位置,那么表1代码该怎么设置

是怎么设置

试了一下

可以了谢谢谢谢.....

嗯,,明白谢谢