如何在Worksheet_SelectionChange事件中实现单元格点击两次切换填充与清空

原代码问题分析 #

1. 判断逻辑错误：If Target.CountLarge > 0 Then Exit Sub会导致选中单个单元格时直接退出，后续代码完全不执行，这和需求完全相悖，正确逻辑应该是选中多个单元格时才退出。
2. 事件内逻辑冲突：同一Worksheet_SelectionChange事件中先后执行填充和清空操作，导致刚填充内容就被立即清空，无法实现切换效果。

修正后的代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅处理单个单元格选中的情况
    If Target.CountLarge > 1 Then Exit Sub
    
    ' 判断是否在目标区域E2:R2内
    If Not Intersect(Target, Me.Range("E2:R2")) Is Nothing Then
        On Error GoTo ErrorHandler
        Application.EnableEvents = False ' 禁用事件防止循环触发
        
        ' 根据当前单元格内容执行切换逻辑
        If Target.Value = "" Then
            Target.Value = "PBECR" ' 空单元格则填充内容
        ElseIf Target.Value = "PBECR" Then
            Target.ClearContents ' 已填充则清空
        End If
        
        Application.EnableEvents = True ' 恢复事件
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "错误: " & Err.Description, vbExclamation
    Application.EnableEvents = True ' 确保事件始终恢复
End Sub

逻辑说明 #

• 先筛选出单个选中的单元格，避免多选时触发错误逻辑。
• 仅对E2:R2区域内的单元格生效。
• 通过判断单元格当前值，实现"点击填充/再次点击清空"的切换效果：空值填充，已填充则清空。
• 加入错误处理，确保无论是否出错，事件都会被重新启用，避免后续VBA事件失效。

内容的提问来源于stack exchange，提问作者Quasar