Excel 如何使用VBA在指定区域中选择单元格后，自动填充颜色，二次点选则清除颜色？

发布网友发布时间：2023-03-31 05:46

我来回答

共2个回答

热心网友时间：2023-11-09 06:41

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim g As Range

Set g = Intersect(Target, Range("A1:N36")) '获取交集区域g

If g Is Nothing Then Exit Sub '如果交集为空则退出sub

If g.Count > 1 Then '如果g区域包含多个单元格

g.Interior.Color = xlNone '那么设置g的背景色为无色

Else '否则,即g只有一个单元格

If g.Interior.Color = vbRed Then '如果g的背景色是红色

g.Interior.Color = xlNone '那么设置为无色

Else

g.Interior.Color = vbRed '否则设置为红色

End If

End Sub

热心网友时间：2023-11-09 06:41

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '自动复制到零售单
Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr > 1 And tr <= 36 And tc <= 14 And Cells(tr, tc).Interior.ColorIndex = xlNone Then
Cells(tr, tc).Interior.ColorIndex = 4
Else
Cells(tr, tc).Interior.ColorIndex = xlNone
End If
End Sub
试下