Snasui Excel Forum

sosadboy wrote: Tue Feb 26, 2019 3:52 pm ขอโทษครับที่ช้าไปหน่อย ตามไฟล์ที่แนบ ที่เซลล์ "D5" ผมใส่เส้นขอบให้กับเซลล์ โค๊ดที่บันทึกมาโครได้คือ

Code: Select all

Sub Macro1()
    Range("D5").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

อยากทราบว่าสามารถย่อโค๊ดข้างต้นนี้ได้หรือไม่ครับ

Sub Macro1()
Range("D5").Select
With Selection
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
End Sub

sosadboy wrote: Wed Feb 27, 2019 3:10 pm ขอบคุณมากมากครับ สำหรับโค๊ดในลักษณะเดียวกัน ก็สามารถทำได้เช่นกันใช่ไหมครับ เช่นบรรทัดที่ค่า=0 สามารถตัดออกได้เลยใช่ไหมครับ