Page 1 of 1
รบกวนช่วยดู Code VBA ให้หน่อยครับ Sum แล้วตีตารางไม่ครบ
Posted: Mon Jun 04, 2012 9:43 am
by niwat2811
เรียน ท่านอาจารย์หรือผู้รู้ รบกวนช่วยดู Code VBA ให้หน่อยครับ Sum แล้วตีตารางไม่ครบ ขาดบรรทัดสุดท้ายไปหนึ่งบรรทัด ไม่ทราบว่า Code ผิดตรงไหน รบกวนช่วยชี้แนะด้วยครับ Code อยู่ที่ Module1 ชื่อ sub Total ครับ
Re: รบกวนช่วยดู Code VBA ให้หน่อยครับ Sum แล้วตีตารางไม่ครบ
Posted: Mon Jun 04, 2012 9:55 am
by 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 ครับ
Re: รบกวนช่วยดู Code VBA ให้หน่อยครับ Sum แล้วตีตารางไม่ครบ
Posted: Mon Jun 04, 2012 10:09 am
by niwat2811
ครับผม ขอบคุณท่านอาจารย์มากครับที่ช่วยชี้แนะ ถึงว่าทำยังไงก็ไม่ได้ซักที ขอบคุณมากครับ
