Question

请勿评论，我发现我的问题是笨蛋（我将离开此主题让人们从我的错误中学到东西

（为便于记录，我刚刚为此帐户创建了一个帐户）因此，我制作了一个脚本，该脚本采用一个单元格值，并通过表格搜索前三个字符，并将其与您输入的内容进行比较。如果该单元格与您的搜索相对应，它将另一个单元格的值替换为它正在搜索的表的后三个字符。

所以我的问题是编译器说该子是无效的限定符。问题出在三个星号。

这是代码

Private Sub Search_Click()

Scan

End Sub
***Sub Scan()

    Dim Seat As Range
    Set Seat = Worksheets("Sheet2").Range("B1")
    Dim returnSeat As Range
    Set returnSeat = Worksheets("Sheet2").Range("B2")

    For Each c In Worksheets("Sheet1").Range("B1:V18")
        Dim cShorted As String
        cShorted = Left(c, 3)
        If cShorted.Value = Seat.Value Then
            returnSeat.Value = Right(c, 3)
        End If
    Next c

End Sub

此外，它还在“如果cShorted.Value = Seat.Value Then”行中突出显示“ cShorted”

Sub的限定词无效

0 个答案: