Excel VBA技术实现：获取用户输入并高亮列中正负指定数值

实现步骤： #

1. 在Excel工作表中插入表单控件按钮（开发工具 -> 插入 -> 表单控件 -> 按钮），点击后选择新建宏，命名为HighlightValuesAndOpposites。
2. 把下面的VBA代码粘贴到宏编辑器中：

Sub HighlightValuesAndOpposites()
    Dim inputVal As Variant
    Dim targetCol As Range
    Dim cell As Range
    Dim targetColumn As String ' 修改这里为你的目标列，比如"A"代表A列
    Dim inputNum As Double
    
    ' 设置目标列，按需修改
    targetColumn = "A"
    On Error Resume Next
    Set targetCol = ThisWorkbook.ActiveSheet.Columns(targetColumn).SpecialCells(xlCellTypeConstants, xlNumbers)
    On Error GoTo 0
    
    ' 处理目标列无数字单元格的情况
    If targetCol Is Nothing Then
        MsgBox "目标列中没有数字单元格！", vbExclamation
        Exit Sub
    End If
    
    ' 弹出输入框获取数值
    inputVal = InputBox("请输入要高亮的数值：", "数值输入")
    
    ' 处理用户取消输入的情况
    If inputVal = "" Then Exit Sub
    
    ' 验证输入是否为数字
    If Not IsNumeric(inputVal) Then
        MsgBox "请输入有效的数字！", vbExclamation
        Exit Sub
    End If
    inputNum = CDbl(inputVal)
    
    ' 先清除目标列已有的高亮格式
    targetCol.Interior.ColorIndex = xlColorIndexNone
    
    ' 遍历目标列中的数字单元格，匹配则高亮
    For Each cell In targetCol
        If cell.Value = inputNum Or cell.Value = -inputNum Then
            cell.Interior.Color = RGB(255, 255, 153) ' 浅黄色高亮，可自行修改颜色
        End If
    Next cell
End Sub

代码说明： #

• 修改targetColumn变量为你需要处理的列（比如"B"代表B列，或者用列号3代表C列）
• 代码会先检查目标列是否存在数字单元格，避免报错
• 输入非数字时会弹出提示，用户取消输入则直接退出
• 高亮颜色用的是浅黄色RGB(255,255,153)，可以替换成你喜欢的颜色（比如vbRed、RGB(0,255,0)等）

使用方法： #

点击你插入的表单按钮，输入数值后回车，目标列中等于该数值和其相反数的单元格就会被高亮。

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