VBA如何复用固定逻辑代码适配多组不同单元格范围

现有针对固定单元格范围编写的Excel VBA代码，需要将相同逻辑复用到其他单元格范围场景。但原代码中Select Case判断目标单元格、ClearContents操作范围、格式设置范围均为硬编码固定值，每适配一组新范围就要重复编写几乎完全一致的代码，需要通过范围参数化的方式重构代码，无需重复编写核心逻辑，仅调整传入的范围参数即可适配不同场景。

Sub DescriptionisActivated()
Select Case Range("A12")
Case Is = ""
        If Sheet3.Range("B16") <> "" Then
        MsgBox "Input1" & vbNewLine & vbNewLine & "-Imput2", vbExclamation, " missing"
        Sheet3.Range("B16:L16").ClearContents: Sheet3.Range("A12").Select
        End If
Case Is <> ""
        If Sheet3.Range("B16") <> "" Then
         Sheet3.Range("P16").Interior.Color = RGB(255, 255, 0): Sheet3.Range("B16").Offset(0, 2).Select
        Else
        Sheet3.Range("N16").Interior.Color = RGB(255, 255, 0): Sheet3.Range("P16").Interior.Color = RGB(255, 255, 0): Sheet3.Range("N16,P16:S16").ClearContents: Sheet3.Range("B16").Select
        End If
End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$16" Then
    Sheet3.Unprotect ""
    Call DescriptionisActivated
    Sheet3.Protect ""
End If
End Sub

核心思路是把所有和具体位置绑定的硬编码对象，全部提取为通用过程的入参，核心判断、交互、格式设置逻辑只保留一份，后续适配新场景时仅需传入对应范围参数即可，无需重复编写逻辑。

通用过程封装 #

把原逻辑封装为可接收参数的通用过程，所有硬编码范围替换为参数变量：

' 通用校验过程，所有范围均通过参数传入
Sub GeneralDescriptionCheck(ws As Worksheet, _
                            checkCell As Range, _
                            inputCell As Range, _
                            clearRng1 As Range, _
                            highlightRng1 As Range, _
                            clearRng2 As Range, _
                            highlightRng2 As Range, _
                            pwd As String)
    ws.Unprotect pwd
    Select Case checkCell.Value
        Case ""
            If inputCell.Value <> "" Then
                MsgBox "Input1" & vbNewLine & vbNewLine & "-Imput2", vbExclamation, " missing"
                clearRng1.ClearContents
                checkCell.Select
            End If
        Case Else
            If inputCell.Value <> "" Then
                highlightRng1.Interior.Color = RGB(255, 255, 0)
                inputCell.Offset(0, 2).Select
            Else
                highlightRng1.Interior.Color = RGB(255, 255, 0)
                highlightRng2.Interior.Color = RGB(255, 255, 0)
                clearRng2.ClearContents
                inputCell.Select
            End If
    End Select
    ws.Protect pwd
End Sub

事件调用方式 #

Worksheet_Change事件中无需写死固定单元格，可配置多组适配规则，匹配到对应目标单元格时传入对应参数调用通用过程即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 多场景配置，新增场景只需要加一组判断和传参即可
    With Sheet3
        ' 原B16对应场景
        If Target.Address = "$B$16" Then
            Call GeneralDescriptionCheck( _
                ws:=Sheet3, _
                checkCell:=.Range("A12"), _
                inputCell:=.Range("B16"), _
                clearRng1:=.Range("B16:L16"), _
                highlightRng1:=.Range("P16"), _
                clearRng2:=.Range("N16,P16:S16"), _
                highlightRng2:=.Range("N16"), _
                pwd:="")
        ' 示例：新增B24对应场景，不需要改核心逻辑，只传新范围即可
        ElseIf Target.Address = "$B$24" Then
            Call GeneralDescriptionCheck( _
                ws:=Sheet3, _
                checkCell:=.Range("A20"), _
                inputCell:=.Range("B24"), _
                clearRng1:=.Range("B24:L24"), _
                highlightRng1:=.Range("P24"), _
                clearRng2:=.Range("N24,P24:S24"), _
                highlightRng2:=.Range("N24"), _
                pwd:="")
        End If
    End With
End Sub

重构收益 #

• 核心逻辑仅维护一份，后续修改校验规则、提示文案、格式样式时不需要逐段修改重复代码
• 新增适配场景仅需在事件中新增一组参数传入，代码量减少80%以上
• 避免多段重复代码修改时出现的逻辑不一致问题

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