VBA 选择案例运行时错误 13

Question

我正在尝试在某个范围内更改单元格以在输入特定文本时运行宏时运行选择案例。我为“F50”的单个单元格（以及后面的代码）工作，但是当我在几行之后尝试使用相同样式的代码时，它不起作用。

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F50")) Is Nothing Then
Select Case Range("F50")
    Case "MPR-9A": Resize9
    Case "MPR-8A": Resize8
    Case "MPR-6A": Resize6
    Case "MPR-3A": Resize3
End Select
End If

If Not Intersect(Target, Range("F4:F45")) Is Nothing Then
Select Case Range("F4:F45")
    Case "M-20A": M20A
    Case "M-2X20A": M2X20A
    Case "M-20A-SP": M20ASP
End Select
End If

End Sub

当我在 F4:F45 范围内的某处放置一个新值时，我试图让这段代码运行。当输入该值时，case 检查要运行的宏。 宏复制另一个工作表上的范围并将其粘贴到刚刚触发宏的单元格（其中还包括右侧和下方的几个单元格），当我手动触发它们时，这些宏运行良好。

我选择了复制/粘贴路线，因为我放弃了计划 A，该计划试图将刚刚收到新值的单元格与其下方的 1 或 3 合并，然后在右侧的单元格中输入文本。如果我应该重新尝试那条路线，我非常乐意尝试避免复制和粘贴。

Answer 1

如果您只想检查这些字符串是否存在，请将其用于您的第二个块：

If Not Intersect(Target, Range("F4:F45")) Is Nothing Then
tempStr = Join([TRANSPOSE[F4:F45)]," ")
    Select Case True
        Case InStr("M-20A", tempStr): M20A
        Case InStr("M-2X20A", tempStr): M2X20A
        Case InStr("M-20A-SP", tempStr): M20ASP
    End Select
End If

---

如果您想单独检查每个单元格，则必须遍历该范围：

If Not Intersect(Target, Range("F4:F45")) Is Nothing Then
    For Each cell In Range("F4:F45").Cells
        Select Case cell.Value
            Case "M-20A": M20A
            Case "M-2X20A": M2X20A
            Case "M-20A-SP": M20ASP
        End Select
    Next
End If

Answer 2

您可以使用Range("F4:F45").Cells(1,1)，实际上是F4 单元格。

但我猜你要测试的东西是Target.Value，改变的单元格的值：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("F50")) Is Nothing Then
Select Case Range("F50")
    Case "MPR-9A": Resize9
    Case "MPR-8A": Resize8
    Case "MPR-6A": Resize6
    Case "MPR-3A": Resize3
End Select
End If

If Not Intersect(Target, Range("F4:F45")) Is Nothing Then
Select Case Target.value
    Case "M-20A": M20A
    Case "M-2X20A": M2X20A
    Case "M-20A-SP": M20ASP
End Select
End If

End Sub