Excel VBA录入电影信息到表格时首输入框报错问题求解

首个输入框报错的直接原因 #

你在输入电影名后触发报错，核心问题是单元格赋值语法错误：
通过movieNameLR = Cells(Rows.Count, 1).End(xlUp).Row拿到的是第一列最后一个非空行的行号（数字类型），直接调用Range(movieNameLR).Value不符合VBA语法：Range()的入参需要是单元格地址字符串（例如"A1"）或者单元格对象，直接传入数字会被识别为不存在的自定义名称，触发运行时错误。同时该写法还会直接覆盖原有最后一行的有效数据，没有写入新的空行。

原代码其他已知问题 #

• 每列单独计算最后一行，若某列存在空值会导致不同字段写入不同行，出现数据错位
• 影片格式判断的MsgBox调用参数错误，MsgBox返回值为VBA内置数字常量，不能直接返回"Color"或"BW"字符串
• 直接使用未定义的Color、BW变量赋值，会触发变量未定义报错
• 时长、年份等数字类型字段没有做输入校验，用户输入非数字内容会触发类型不匹配报错
• 缺失强制变量声明语句，容易因变量拼写错误导致未知问题

修复后完整代码 #

Option Explicit
Private Sub Workbook_Open()
    ' 询问是否新增记录
    Dim answer As Integer
    answer = MsgBox("是否需要新增电影碟片记录？", vbQuestion + vbYesNo, "新增记录提示")
    If answer <> vbYes Then Exit Sub
    
    ' 统一计算新记录的写入行号，避免数据错位
    Dim newRow As Long
    newRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' 录入电影名称
    Dim movieName As String
    movieName = InputBox("请输入电影名称：", "影片名称")
    If Trim(movieName) = "" Then
        MsgBox "电影名称不能为空，录入终止", vbExclamation
        Exit Sub
    End If
    Cells(newRow, 1) = movieName
    
    ' 录入导演姓氏
    Dim directorLN As String
    directorLN = InputBox("请输入导演姓氏：", "导演姓氏")
    Cells(newRow, 2) = directorLN
    
    ' 录入导演名字
    Dim directorFN As String
    directorFN = InputBox("请输入导演名字：", "导演名字")
    Cells(newRow, 3) = directorFN
    
    ' 录入影片时长，增加非数字输入校验
    Dim runtime As Variant
    runtime = InputBox("请输入影片时长（单位：分钟）：", "影片时长")
    If Not IsNumeric(runtime) Then
        MsgBox "时长输入不是有效数字，录入终止", vbExclamation
        Exit Sub
    End If
    Cells(newRow, 4) = CInt(runtime)
    
    ' 录入上映年份，增加非数字输入校验
    Dim releaseYear As Variant
    releaseYear = InputBox("请输入影片上映年份：", "上映年份")
    If Not IsNumeric(releaseYear) Then
        MsgBox "年份输入不是有效数字，录入终止", vbExclamation
        Exit Sub
    End If
    Cells(newRow, 5) = CInt(releaseYear)
    
    ' 录入影片语言
    Dim lang As String
    lang = InputBox("请输入影片语言：", "影片语言")
    Cells(newRow, 6) = lang
    
    ' 选择影片格式
    Dim formatRes As Integer
    formatRes = MsgBox("影片是否为彩色？点击【是】为彩色，点击【否】为黑白", vbQuestion + vbYesNo, "影片格式")
    Cells(newRow, 7) = IIf(formatRes = vbYes, "彩色", "黑白")
    
    MsgBox "新电影记录录入完成！", vbInformation
End Sub

补充说明 #

修复后的代码默认对应列规则如下，可根据你的实际表格列顺序调整Cells(newRow, 列号)中的列号数值：

• 列1：电影名称
• 列2：导演姓氏
• 列3：导演名字
• 列4：影片时长
• 列5：上映年份
• 列6：影片语言
• 列7：影片格式

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