Giúp viết lại code (2 người xem)

[ninhmoon]

Nhờ anh chị viết code gọn lại
Em tạo một code viết border nhưng mà do e chỉ bít recode lại mà ko bít làm sao cho code gon lại và không muốn có chứa nhiều with and endwith
nhờ a chị chỉ dùng
Sub abc()


Range("C1926").Select

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous

End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous

End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous

End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous

End With

End Sub

 

[ndu96081631]

Giúp viết lại code

Đã gửi mấy chục bài rồi mà cũng không biết đặt tiêu đề sao cho phù hợp ---> Vậy thì khóa lại cho rồi. Khi nào nghĩ ra được tiêu đề đúng quy định rồi hẳn đăng
-----------------
Có thể gợi ý bạn câu lệnh này:
Range("C1926").BorderAround 1
Khỏi mất công hỏi đi hỏi lại nhiều lần