从单元格读取值时VBA类型不匹配错误

Question

我正在从电子表格中读取值，并使用以下代码在读取值上添加1。错误发生在<MyStatelessComponent children={} />，它表示类型不匹配。 ModelNumber = PreviousModel + 1显示正确但LastRowPrevious显示为空。请帮忙。谢谢！

PreviousModel

Answer 1

这对我很有用：

Option Explicit
Public ModelNumber$
Public PreviousModel$
Public FinalModelNumber$
Sub TrackerInput()
    Dim ModelDescription$
    Dim LastRowPrevious$
    With ThisWorkbook.Worksheets("Sheet1")
        LastRowPrevious = .Cells(.Rows.Count, 1).End(xlUp).Row
        If LastRowPrevious = 2 Then
            ModelNumber = 2
            PreviousModel = 1
        Else
            PreviousModel = .Cells(LastRowPrevious, 1).Value
            ModelNumber = PreviousModel + 1
        End If
    End With

    Debug.Print ; LastRowPrevious
    Debug.Print ; PreviousModel
    Debug.Print ; ModelNumber
    MsgBox ("You are creating a new model. Model number is " & ModelNumber)
End Sub

注意到我完全引用了工作表而不是试图让VBA找出我所指的工作表。