如何为带不同参数的多个单元格执行相似操作

原代码仅支持单个单元格的占位符功能，要扩展为多单元格且每个单元格拥有独立的占位文本，我们可以通过字典对象来存储单元格地址与对应占位文本的映射关系，这样既能灵活添加/修改目标单元格，也能保证每个单元格的参数独立。

修改后的完整代码 #

Option Explicit

' 定义颜色常量
Const GREY_COLOR = 10921637
Const BLACK_COLOR = 0

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim placeholderMap As Object
    Set placeholderMap = CreateObject("Scripting.Dictionary")
    
    ' 在这里添加需要设置占位符的单元格和对应文本
    ' 格式：placeholderMap("单元格地址") = "占位文本"
    placeholderMap("C2") = "我的占位文本1"
    placeholderMap("D5") = "我的占位文本2"
    placeholderMap("E3") = "请输入内容"
    
    Dim cellAddr As Variant
    Dim targetAddr As String
    targetAddr = Replace(Target.AddressLocal, "$", "")
    
    ' 处理选中的单元格：如果是目标单元格且当前值是占位文本，则清空
    If placeholderMap.Exists(targetAddr) Then
        With Target
            If .Value2 = placeholderMap(targetAddr) Then
                .Value2 = ""
                .Font.Color = BLACK_COLOR
            End If
        End With
    End If
    
    ' 处理所有目标单元格：未选中时，若为空则恢复占位文本，若已是占位文本则修正颜色
    For Each cellAddr In placeholderMap.Keys
        If cellAddr <> targetAddr Then
            With Me.Range(cellAddr)
                If .Value2 = vbNullString Then
                    .Value2 = placeholderMap(cellAddr)
                    .Font.Color = GREY_COLOR
                ElseIf .Value2 = placeholderMap(cellAddr) Then
                    If .Font.Color <> GREY_COLOR Then
                        .Font.Color = GREY_COLOR
                    End If
                End If
            End With
        End If
    Next cellAddr
End Sub

关键说明 #

• 用Scripting.Dictionary存储单元格地址和占位文本的对应关系，要添加新的单元格时，直接在字典里新增一行即可，比如placeholderMap("F7") = "请填写手机号"
• 事件触发时，先检查当前选中的单元格是否在目标列表中，是的话执行清空占位文本的逻辑
• 遍历所有目标单元格，对未被选中的单元格进行占位文本的恢复/颜色修正操作
• 保留了原代码的颜色逻辑，确保占位文本显示灰色，用户输入的内容显示黑色

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