Excel运行时错误424(做一个文件归档)

发布网友发布时间：2023-07-17 17:01

共2个回答

热心网友时间：2023-10-02 10:59

Dim i As Long
Dim j As Integer
Sheets("故障轮胎登记表").Select
If Trim(Cells(6, 1).Value) = "" Then
MsgBox "请输入客户编号！", vbOKOnly
Exit Sub
End If
If Trim(Cells(6, 2).Value) = "" Then
MsgBox "请输入客户名称！", vbOKOnly
Exit Sub
End If
If Trim(Cells(6, 3).Value) = "" Then
MsgBox "请输入轮胎规格！", vbOKOnly
Exit Sub
End If
If Trim(Cells(6, 4).Value) = "" Then
MsgBox "请输入轮胎花纹！", vbOKOnly
Exit Sub
End If
If Trim(Cells(6, 5).Value) = "" Then
MsgBox "请输入轮胎胎号！", vbOKOnly
Exit Sub
End If
i = Val(Cells(1, 5).Value) '这里把Sheetl.去掉
For j = 1 To 5
Cells(i + 11, j).Value = Cells(6, j).Value
Next j追问这个代码已经搞好了，出现一个问题
当我输入信息提交时它就把我之前输入到存储区中的第一个信息替代了，这个怎么调整？

热心网友时间：2023-10-02 10:59

错在这句 i = Val(Sheetl.Cells(1, 5).Value)
Sheetl最后应该是1（数字）而不是l（字母）