如何解决Visual Basic 应用程序:奇数错误 '-2147417848 (80010108)' en tiempo de ejecución: Error en el método 'Range' de objeto '_Worksheet'
嗨,我试图找到解决此错误的方法,但我没有成功,在代码插入行后,我正在使用名为“Inventario”的工作表中的 Excel 表,然后它开始填充该行行此错误发生,希望有人已经通过并知道如何解决它。
Private Sub BU1_Click()
Dim x As Integer,Ultima_Fila As Integer
Ultima_Fila = Sheets("Inventario").Range("M3") + 2
i = 1
Sheets("Inventario").Range("A" & Ultima_Fila).EntireRow.Insert
Sheets("Inventario").Range("A" & Ultima_Fila) = Sheets("Inventario").Range("M3")
Sheets("Inventario").Range("C" & Ultima_Fila) = TB2.Value
Sheets("Inventario").Range("D" & Ultima_Fila) = TB3.Value
Sheets("Inventario").Range("E" & Ultima_Fila) = TB1.Value
Sheets("Inventario").Range("I" & Ultima_Fila) = Mid(TB3.Value,5,1)
Sheets("Inventario").Range("J" & Ultima_Fila) = Mid(TB3.Value,3,2)
i = 0
End Sub
Ultima_Fila 是一个计算 =MAX(ALL THE IDENTIFIED ROWS)+2 的单元格,预测添加到表中的元素的数量或 IDENTIFIER,以及应该插入的行,只需添加 2,即由于标题,整个表格上方的单元格数量。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。