Question

我有一个Excel VBA过程，应该比较两个单元格的值。就我而言，它们是标量，范围从1到3。基本上，它们是问题的答案。如果它们匹配，那么我要为某个单元格green着色，否则我要使其为red。我的语法有问题吗？

Sub CheckBold()
'
' CheckBold Macro
'

'
 Row = ActiveCell.Row
 If ThisWorkbook.Sheets(1).Range("D" & CStr(ActiveCell.Row)).Font.Bold Then
 ActiveCell.Value = 1
 End If
 If ThisWorkbook.Sheets(1).Range("E" & CStr(ActiveCell.Row)).Font.Bold Then
 ActiveCell.Value = 2
 End If
 If ThisWorkbook.Sheets(1).Range("F" & CStr(ActiveCell.Row)).Font.Bold Then
 ActiveCell.Value = 3
 End If

  ActiveCell.Value = ThisWorkbook.Sheets(3).Range("A" & CStr(ActiveCell.Row)).Value & ActiveCell.Value

If CInt(ActiveCell.Value) = CInt(ThisWorkbook.Sheets(3).Range("A" & CStr(ActiveCell.Row)).Value) Then
    ActiveCell.Interior.Color = RGB(0, 180, 0)
Else
    ActiveCell.Interior.Color = RGB(180, 0, 0)
End If



End Sub

发生的事情是，即使值不同，代码也总是在if的Then分支上进行。为什么会出现这种现象？

如何正确比较两个值？

0 个答案: