Excel编写VBA判断2个值是否相等，然后改变单元格颜色

最新推荐文章于 2024-05-23 20:41:34 发布

netxdiy

最新推荐文章于 2024-05-23 20:41:34 发布

阅读量5.9k

点赞数

文章标签： javascript ViewUI

这篇博客介绍了如何使用VBA在Excel中编程，当用户输入新值时，自动检查该值是否与前一行的值相等。如果相等，将单元格颜色设置为红色，否则设为白色。该方法通过`Worksheet_SelectionChange`和`Worksheet_Change`事件处理程序实现，提高了数据验证和视觉效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.excel建立表格。

如图：

2.sheet上面点反键加入vba代码：

'ActiveCell.Row ‘活动单元格所在的行数
'ActiveCell.Column ‘活动单元格所在的列数

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ChangActiveCellColor
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
'MsgBox ("回车2")
'MsgBox Target.Cells.Address
'MsgBox Range(Target.Cells.Address)
Dim I As Integer

If Sheet1.Range("A" & ActiveCell.Row - 1).Value <> "" Then

For I = 2 To ActiveCell.Row - 2
'Range("A" & I) = I
'MsgBox Range("A" & I)

If Sheet1.Range("A" & ActiveCell.Row - 1).Value = Sheet1.Range("A" & I).Value Then
'Range(Target.Cells.Address).Interior.Color = RGB(255, 0, 0)
Sheet1.Range("A" & ActiveCell.Row - 1).Interior.Color = RGB(255, 0, 0) '红
GoTo con
Else
'Range(Target.Cells.Address).Interior.Color = RGB(255, 255, 255)
Sheet1.Range("A" & ActiveCell.Row - 1).Interior.Color = RGB(255, 255, 255) '白
End If
Next
Else '判断改为空格之后点击回车
Sheet1.Range("A" & ActiveCell.Row - 1).Interior.Color = RGB(255, 255, 255) '白
End If

End If
con:
End Sub

Private Sub ChangActiveCellColor()
'MsgBox Target.Cells.Address
'MsgBox Range(Target.Cells.Address)
Dim I As Integer

If ActiveCell.Value <> "" Then

For I = 2 To ActiveCell.Row - 1
'Range("A" & I) = I
'MsgBox Range("A" & I)

If ActiveCell.Value = Sheet1.Range("A" & I).Value Then
'Range(Target.Cells.Address).Interior.Color = RGB(255, 0, 0)
ActiveCell.Interior.Color = RGB(255, 0, 0)
GoTo con
Else
'Range(Target.Cells.Address).Interior.Color = RGB(255, 255, 255)
ActiveCell.Interior.Color = RGB(255, 255, 255)
End If
Next

End If

con:

End Sub