Run VBA วันก่อนรันได้วันนี้รันแล้วติด runtime error 91
Posted: Thu Feb 15, 2018 1:19 pm
Sub UnitBox1()
Dim WPart As Range
Dim LPart As Range
Dim HPart As Range
Dim i As Integer
WPart = Range("C6")
LPart = Range("D6")
HPart = Range("E6")
i = 99
Do Until Cells(i, 2) = ""
Cells(i, 2) = Int(Cells(i - 88, 2) / WPart)
Cells(i, 3) = Int(Cells(i - 88, 3) / LPart)
Cells(i, 4) = Int(Cells(i - 88, 4) / HPart)
Cells(i, 5) = Cells(i, 2) * Cells(i, 3) * Cells(i, 4)
i = i + 1
Loop
End Sub
Dim WPart As Range
Dim LPart As Range
Dim HPart As Range
Dim i As Integer
WPart = Range("C6")
LPart = Range("D6")
HPart = Range("E6")
i = 99
Do Until Cells(i, 2) = ""
Cells(i, 2) = Int(Cells(i - 88, 2) / WPart)
Cells(i, 3) = Int(Cells(i - 88, 3) / LPart)
Cells(i, 4) = Int(Cells(i - 88, 4) / HPart)
Cells(i, 5) = Cells(i, 2) * Cells(i, 3) * Cells(i, 4)
i = i + 1
Loop
End Sub
ควรโพสต์ Code ให้แสดงเป็น Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบนด้วยครับ