รบกวนช่วยดู Code VBA ให้หน่อยครับ Sum แล้วตีตารางไม่ครบ

[niwat2811]

เรียน ท่านอาจารย์หรือผู้รู้ รบกวนช่วยดู Code VBA ให้หน่อยครับ Sum แล้วตีตารางไม่ครบ ขาดบรรทัดสุดท้ายไปหนึ่งบรรทัด ไม่ทราบว่า Code ผิดตรงไหน รบกวนช่วยชี้แนะด้วยครับ Code อยู่ที่ Module1 ชื่อ sub Total ครับ

[snasui]

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

Code: Select all

Sub formatborder()
Dim r As Range
Dim rAll As Range
With Sheets("Sheet1")
    Set rAll = .Range("J1", .Range("J" & Rows.Count).End(xlUp))
    End With
For Each r In rAll
    r.Offset(0, -9).Resize(1, 10).Borders.LineStyle = xlContinuous
Next r
End Sub

การใช้ SpecialCells(xlCellTypeConstants) จะให้ค่าไม่ครบเพราะบรรทัดที่ 17 ไม่ใช่ Constants แต่เป็น Formula ครับ

[niwat2811]

ครับผม ขอบคุณท่านอาจารย์มากครับที่ช่วยชี้แนะ ถึงว่าทำยังไงก็ไม่ได้ซักที ขอบคุณมากครับ