Excel VBA实现Q列依赖P列自动赋值的报错问题及解决

错误原因 #

「Invalid qualifier」报错的核心是你在Select Case ApprovalStatus.Value中，ApprovalStatus未被正确声明为Range对象，或是缺少Set语句完成对象赋值，导致VBA无法识别它的.Value属性。

最优实现方案：改用Worksheet_Change事件 #

Worksheet_SelectionChange是选中单元格就触发，不符合「P列值变化时更新Q列」的需求，更合适的是用Worksheet_Change事件（仅在单元格值修改时触发）。以下是完整可运行的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理P列（第16列）的单个单元格修改
    If Target.Column = 16 And Target.Cells.Count = 1 Then
        Dim approvalCell As Range
        Dim statusCell As Range
        
        Set approvalCell = Target
        Set statusCell = approvalCell.Offset(0, 1) ' Q列是P列右侧第1列
        
        ' 根据P列值设置Q列对应状态
        Select Case UCase(approvalCell.Value) ' 忽略大小写匹配
            Case "APPROVED"
                statusCell.Value = "ACTIVE"
            Case "REJECTED"
                statusCell.Value = "ABORTED"
            Case "SENT FOR APPROVAL"
                statusCell.Value = "ON HOLD"
            Case "N/A"
                statusCell.Value = "COMPLETED"
            Case Else
                ' 若P列值不在预设列表，清空Q列（可选）
                statusCell.Value = ""
        End Select
    End If
End Sub

代码关键说明 #

• Target.Column = 16：限定仅处理P列的单元格修改，避免无关操作触发代码。
• UCase(approvalCell.Value)：统一转为大写匹配，避免因大小写输入差异导致不触发。
• statusCell = approvalCell.Offset(0,1)：通过偏移量定位同一行的Q列单元格，比硬编码行号更灵活。
• 需确保Q列的数据验证预设列表包含ACTIVE、ABORTED、ON HOLD、COMPLETED这几个值，否则赋值时会触发Excel数据验证错误。

若坚持使用Worksheet_SelectionChange的修正方法 #

如果你一定要用原事件，需确保正确声明并赋值Range对象：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 16 And Target.Cells.Count = 1 Then
        Dim ApprovalStatus As Range
        Set ApprovalStatus = Target ' 必须用Set给Range对象赋值
        
        Dim StatusCell As Range
        Set StatusCell = ApprovalStatus.Offset(0, 1)
        
        Select Case ApprovalStatus.Value
            Case "APPROVED"
                StatusCell.Value = "ACTIVE"
            Case "REJECTED"
                StatusCell.Value = "ABORTED"
            Case "SENT FOR APPROVAL"
                StatusCell.Value = "ON HOLD"
            Case "N/A"
                StatusCell.Value = "COMPLETED"
            Case Else
                StatusCell.Value = ""
        End Select
    End If
End Sub

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