Code vba ให้ขีดเส้นใต้ทุกครั้งตามที่เรากด Save

[xxporxx]

ปัญหาแรกก่อนนะครับ Code

Code: Select all

 ActiveSheet.Paste 

ทำไมบางครั้งก็ปรกติบางครั้งก็ Error ครับ
ปัญหาที่สองของผมคือ ตอนนี้พอกด Save แล้ว เส้นดำตัวหนาที่ผมกำหนดไว้ให้ขีดเองทุกครั้งที่กด Save ทำไมมันไม่ขีดค้างไว้ครับ
พอกดแล้วมันจะลงมาขีดแถวล่างสุดทุกครั้งเลยครับ

Code: Select all

Sub Macro3()
 
 Sheets("ยอดจ่าย").Select
    
    Range("A5:E300").Select
    
    Selection.Copy
   
   Sheets("สรุป").Select
    
    Range("A1").Select
    
    Selection.SpecialCells(xlCellTypeBlanks).Select
    
    [background=]ActiveSheet.Paste[/background]

    Range([A1], [E65535].End(xlUp)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone

    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    

Sheets("ยอดจ่าย").Select
    
    Rows("7:300").ClearContents

End Sub

[snasui]

แนบไฟล์ตัวอย่างประกอบด้วย จะได้ช่วยทดสอบได้ครับ

[xxporxx]

ขอโทษด้วยครับ

[snasui]

Selection.SpecialCells(xlCellTypeBlanks).Select Statement นี้ทำให้เกิด Error เนื่องจากเลือกเซลล์ว่างทั้งหมดไว้ก่อนที่จะวางข้อมูล จึงมีปัญหาว่าไม่สามารถวางได้เพราะเซลล์ว่างสามารถอยู่ตำแหน่งใดก็ได้ ขนาดพื้นที่เท่าใดก็ได้ หากพื้นที่ไม่พอดีกับต้นแหล่งก็จะเกิด Error ขึ้นมาได้ครับ

สำหรับเส้นที่กล่าวถึงอยู่ตำแหน่งใด เมื่อ Save แล้วมีสภาพเป็นเช่นไร ลองจับภาพมาดูกันอีกที เท่าที่ลองทดสอบแล้วไม่พบว่าเส้นดำเปลี่ยนไปครับ