运行时错误'9'：运行宏时出现下标超出范围

Question

我是VBA的新手，我正在尝试创建一个简单的销售数据集来进行练习。我一直遇到运行时错误，这里是代码：

Private Sub CommandButton1_Click()

Dim myWorksheet As Worksheet
Dim myFirstBlackRow As Long

Set myWorksheet = Worksheets("Sheet1")

With myWorksheet

myFirstBlackRow = .Cells.Find(What:="*", LookIn:=x1Formulas, LookAt:=x1Part, SearchOrder:=x1ByRows, SearchDirection:=x1Previous).Row + 1

With .Cells(myFirstBlackRow, 1)
    Select Case True
        Case OptionButton1.Value
            .Value = "Iphone"
        Case OptionButton2.Value
            .Value = "Samsung"
        Case OptionButton4.Value
            .Value = "Oppo"
        Case OptionButton3.Value
            .Value = "Huawei"
    End Select
End With

.Cells(myFirstBlackRow, 2).Value = Me.TextBox1.Value

End With

End Sub

提前感谢任何帮助，谢谢！

Answer 1

将所有“1”（1）更改为“l”（“l”s）

    myFirstBlackRow = .Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

这是将Option Explicit放在每个模块顶部的众多（非常多）理由之一