点击指定单元格时候，填充黑色背景，并字体填充白色

ssdxso1993

点击AE6,AF6,AG6时候，按照标题一样执行

liulang0808

Worksheet_SelectionChange
楼主看看这个表格事件吧

一把小刀闯天下

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .Address <> "$AE$6" And .Address <> "$AF$6" And .Address <> "$AG$6" Then Exit Sub
    If .Interior.Color <> vbBlack Then
      .Interior.Color = vbBlack
      .Font.Color = vbWhite
    Else
      .Interior.ColorIndex = xlNone
      .Font.Color = vbBlack
    End If
    .Offset(1).Select
  End With
End Sub

ssdxso1993

一把小刀闯天下 发表于 2019-6-15 09:49
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

非常感谢，现在代码是单个单元格引用，能使用区间吗，如 AE6:AL6

一把小刀闯天下

ssdxso1993 发表于 2019-6-15 11:31
非常感谢，现在代码是单个单元格引用，能使用区间吗，如 AE6:AL6

If .Address <> "$AE$6" And .Address <> "$AF$6" And .Address <> "$AG$6" Then Exit Sub 替换为下面2行：
--------
If .Row <> 6 Or .Column < 31 Or .Column > 38 Then Exit Sub
If .Count > 1 Then Exit Sub