基于预定义输入码实现输入单元格关联对象自动填充需求

刚好做过类似的需求，用Excel的VBA就能完美实现你要的效果——在输入单元格敲入指定代码（比如w5），相邻单元格自动弹出带颜色填充的带圈数字。下面是一步步的实现方法：

1. 打开VBA编辑器 #

按快捷键 Alt + F11 就能直接打开Excel的VBA编辑器界面。

2. 进入目标工作表的代码窗口 #

在编辑器左侧的「工程资源管理器」面板里，找到你要实现功能的目标工作表（比如Sheet1），双击它打开对应的代码编辑窗口。

3. 粘贴自定义VBA代码 #

把下面这段代码粘贴到代码窗口里：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理单个单元格的输入，且仅监控A列的内容变化
    If Target.Cells.Count > 1 Or Target.Column <> 1 Then Exit Sub
    
    Dim inputCode As String
    inputCode = UCase(Target.Value) ' 统一转大写，兼容大小写输入
    
    Dim circleNum As String
    Dim fillColor As Long
    
    ' 这里定义输入码和对应带圈数字、填充颜色的映射关系
    Select Case inputCode
        Case "W1"
            circleNum = "①"
            fillColor = RGB(255, 204, 204) ' 浅红色填充
        Case "W2"
            circleNum = "②"
            fillColor = RGB(204, 255, 204) ' 浅绿色填充
        Case "W3"
            circleNum = "③"
            fillColor = RGB(204, 204, 255) ' 浅蓝色填充
        Case "W4"
            circleNum = "④"
            fillColor = RGB(255, 255, 204) ' 浅黄色填充
        Case "W5"
            circleNum = "⑤"
            fillColor = RGB(255, 153, 204) ' 浅粉色填充
        ' 可以在这里继续添加更多输入码的映射规则，格式和上面一致
        Case Else
            ' 如果输入的不是预定义代码，清空相邻单元格
            Target.Offset(0, 1).Clear
            Exit Sub
    End Select
    
    ' 在相邻单元格设置内容和格式
    With Target.Offset(0, 1)
        .Value = circleNum
        .Interior.Color = fillColor
        .HorizontalAlignment = xlCenter ' 水平居中
        .VerticalAlignment = xlCenter ' 垂直居中
        .Font.Size = 14 ' 字体大小可按需调整
    End With
End Sub

4. 代码功能说明 #

• 这段代码是工作表专属的Change事件，只有当你在当前工作表的A列输入内容时才会触发，不会影响其他工作表。
• 用UCase把输入内容转成大写，所以不管你输入w5还是W5都能正常识别。
• Select Case区块是核心的映射规则，你可以根据自己的需求添加更多输入码对应的带圈数字和填充颜色，颜色用RGB(R,G,B)格式自定义即可。
• 如果输入的不是预定义的代码，相邻单元格会自动清空，避免残留无效内容。

5. 测试效果 #

回到Excel工作表，选中A1单元格输入w5，旁边的B1单元格就会立刻显示带浅粉色填充的带圈数字⑤啦~

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