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

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 If

End Sub

Cells(1, 1).Font.ColorIndex = 3 '字的颜色号为3 红色

Cells(1, 1).Interior.ColorIndex = 3 ' 背景的颜色为3 红色

Cells(2, 1).Font.Color = RGB(0, 255, 0) '字的颜色绿色

Cells(2, 1).Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色

---