[HELP] Cần giúp đỡ vấn đề kẻ khung một cách tự động???

[modernlight]

Xin chào các anh chị!
Hiện em đang có một vấn đề về việc kẻ khung viền cho bảng tính như sau:
Em muốn cứ cách 5 dòng thì Excel tự động kẻ khung cho em bao 5 dòng đó lại.
Nếu chỉ có chừng 100 dòng thì em kẻ tay cũng được ạ..Nhưng dữ liệu công ty gần tới 5000 dòng..Nên em xin phép hỏi có cách nào kẻ tự động không ạ?
Mong các anh chị giúp em với ạ..Em xin cảm ơn..
Ví dụ như trong file này ạ:

 

[nghiaphuc]

Xin chào các anh chị!
Hiện em đang có một vấn đề về việc kẻ khung viền cho bảng tính như sau:
Em muốn cứ cách 5 dòng thì Excel tự động kẻ khung cho em bao 5 dòng đó lại.
Nếu chỉ có chừng 100 dòng thì em kẻ tay cũng được ạ..Nhưng dữ liệu công ty gần tới 5000 dòng..Nên em xin phép hỏi có cách nào kẻ tự động không ạ?
Mong các anh chị giúp em với ạ..Em xin cảm ơn..
Ví dụ như trong file này ạ:

Bạn thử dùng code sau xem sao:

Sub KeKhung()
    Dim i As Integer
    For i = 3 To ActiveSheet.UsedRange.Rows.Count + 2 Step 5
        Intersect(ActiveSheet.UsedRange, ActiveSheet.Rows(i)).Resize(5).BorderAround 1, 2
    Next
End Sub

 

[ChanhTQ@]

Thêm 1 tham khảo cho bạn

Option Explicit
Sub Border5()
 Dim Jj As Long, Rws As Long, Ww As Long, R5 As Range
 
 If Selection.Cells.Count > 1 Then Exit Sub
 Rws = Selection.End(xlDown).Row
 For Ww = Selection.Row To Rws Step 5
    Set R5 = Cells(Ww, Selection.Column).Resize(5)
    For Jj = 7 To 10
         With R5.Borders(Jj)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
    Next Jj
 Next Ww
End Sub

Hãy chọn 1 ô đầu cột & bấm chạy macro