Excel中通过点击单元格使该单元格变色如何做到

Question

点击该单元格使仅被点击的单元格变色该怎么做到呢，有没有人懂这个

Answer 1

打开Excel新建空白sheet，按alt+f11，在vba窗口左边双击sheet1（就是你空白sheet的名字），拷贝以下代码，颜色什么的自己调整

Dim LastClickedCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 检查Target是否是单个单元格
    If Target.CountLarge = 1 Then
        ' 检查是否已经保存了上次点击的单元格
        If Not LastClickedCell Is Nothing Then
            ' 重置上次点击的单元格颜色为白色，同时保留边框
            With LastClickedCell
                .Interior.Color = RGB(255, 255, 255) ' 白色
                ' 保留边框设置
                .Borders.LineStyle = xlContinuous '这里设置为灰色边框，不设置会丢失
                .Borders.Color = RGB(192, 192, 192)
            End With
        End If
        
        ' 更改当前点击的单元格颜色为黄色，同时保留边框
        With Target
            .Interior.Color = RGB(255, 255, 0) ' 黄色
            ' 保留边框设置
            .Borders.LineStyle = xlContinuous ' 这里设置为连续边框，根据需要可以调整
        End With
        
        ' 更新LastClickedCell为当前选中的单元格
        Set LastClickedCell = Target
    End If
End Sub