ต้องการให้ระบบรู้ว่าบรรทัดสุดท้าย มียอดเท่าไร แล้วนำมา+กัน

[akung]

ด้วย VBA ติดปัญหาว่า run ไม่ผ่านเหมือนคำสั่งไม่ถูกต้อง รบกวนอาจารย์แนะนำด้วยครับ

Code: Select all

Sub Button3_Click()
Dim Credit As Integer
Dim Credit1 As Integer
Dim Lrow1 As Integer

Lrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

Credit = Cells("B" & Lrow)
Credit1 = Cells("C" & Lrow)

Cells("E5") = Credit + Credit1

MsgBox Lrow
End Sub

[snasui]

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Sub Button3_Click()
    Dim Credit As Integer
    Dim Credit1 As Integer
    Dim Lrow As Integer
    
    Lrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
    
    Credit = Cells(Lrow, "B")
    Credit1 = Cells(Lrow, "C")
    
    Range("E5") = Credit + Credit1
    
    MsgBox Lrow
End Sub

[akung]

ขอบคุณครับ