重赏——使用vba判断excel中的单元格值是否相等

Question

有一excel财务报表，不同sheet间数据存在勾稽关系，如sheet1.b3 = sheet2.c4 + sheet3.f5。任务是要判断所填数据是否正确，也就是是否与其它数字勾稽关系正确。
预在excel中制作一个宏按钮，使用vba编写宏程序，判断sheet1中某个单元格值是否等于sheet2中某个单元格值，如不相等两个单元格都显示为红色作为提示。
本人要在单位演示，故使用宏程序，越有专业水准越好，过程描述得越详细越好，包括具体操作过程和语句，以方便我制作。还有什么功能可以添加，也请告知。
注：不要使用条件格式，且条件格式不能使用对其他工作表或工作簿的引用。
条件格式不能使用对其他工作表或工作簿的引用，不行你试试？？

Answer 1

我写了一个两个不同sheet单元格作比较的宏，你可以参照以下，原理是一样的.

Sub Macro1()
'
' Macro1 Macro
' マクロ记录日 : 2007/12/20 ユーザー名 :
'
' Keyboard Shortcut: Ctrl+r
'
Dim Flag As Boolean
Flag = True

Tier = InputBox("Please input Tier :")
If Tier > 250 And Tier <> "" Then
MsgBox "Input value > 250 "
End If
If Tier > 250 Then Exit Sub
Tier = InputBox("please input Tier :")
Sheet3.Range("A1").Value = Row
Sheet3.Range("A2").Value = Tier
For y = 1 To Tier
For x = 1 To Row
If Sheet1.Cells(x, y) <> Sheet2.Cells(x, y) Then
Sheet1.Activate
Sheet1.Range(Cells(x, y), Cells(x, y)).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Sheet2.Activate
Range(Cells(x, y), Cells(x, y)).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Flag = False
End If
Next x
Next y
If Flag Then
MsgBox "All the same!"
End If
Sheet1.Activate
End Sub

当两个SHEET单元格内数据不一样时会置成红色。

还有什么问题发我邮箱吧
[email protected]

Answer 2

如果你销会一些,可以这样,录制一个设置公式的宏,再录制一个设置格式的宏, 把两个宏的语句放在一起,稍加修改,再加个IF语句.基本就行了.

在实在不行的情况下,可以需要检查的值先都引用到一个表上,再用条件格式检查.

附上一个水平一般的语句.可以复制到模块中,试一下.
Sub 开始检查()

If Worksheets("SHEET1").Cells(1, 1).Value = Worksheets("SHEET2").Cells(1, 1).Value + Worksheets("SHEET2").Cells(1, 2).Value Then

MsgBox "经检查,逻辑关系无误"
Else
MsgBox "表1中A1值不等于表2中A1与A2之和,请检查"
End If

End Sub

说明,引号内是工作表名,CELLS内是行,列.

Answer 3

条件格式不能直接引用其他工作表,
但是并不意味着不能引用
举个例子SHeet2的A列数字是否再SHeet1出现过：
插入-定义-名称
DateRange
=SHeet1!A1:A10

SHeet2的条件格式:
=Countif(DateRange,A1)
当然
=Countif(Indirect("Sheet1!A1:A10"),A1)

*************
这个问题写VBA有难度啊，
一个判断涉及到几个单元格，
而这些单元格，如果取点选获取地址话，
比较难，
最好指定几个位置来输入这些单元格的地址

Answer 4

这个文件夹属于系统一类的，用蓝牙和数据线的连接方式是无法看到的，必须用读卡器与电脑连接，并依次打开＝我的电脑＝工具＝文件夹选项＝查看＝1、将“显示系统文件夹的内容”项打钩；
2、去掉：“隐藏受保护的操作系统文件”项的钩；
3、打钩：“显示所有文件和文件夹”项。
点确定，OK！

Answer 5

来学习的