Kẻ đường viền cho bảng dữ liệu theo điều kiện (3 người xem)

[rosy84]

Các anh chị có thể giúp em viết macro để kẻ đường viền cho bảng dữ liệu theo điều kiện với nha. thank các anh chị nhiều

 

[huuthang_bd]

Các anh chị có thể giúp em viết macro để kẻ đường viền cho bảng dữ liệu theo điều kiện với nha. thank các anh chị nhiều

Điều kiện gì đâu bạn??
Tôi không thấy bạn ghi chú gì trong file hết.

 

[rosy84]

Là thế này, nếu các ô mà có dữ liệu thì em sẽ tìm được ô đầu tiên chứa dữ liệu và ô cuối cùng chứa dữ liệu và việc kẻ đường viề sẽ đơn giản. Nhưng ở trường hợp này thì các ô có dữ liệu nằm linh tinh quá em kkhông biết làm cách nào có thể kể được đường viền quanh các ô có chứa dữ liệu. nhờ các cao thủ giúp đỡ. thanks

 

[MinhNguyệt]

Các anh chị có thể giúp em viết macro để kẻ đường viền cho bảng dữ liệu theo điều kiện với nha. thank các anh chị nhiều

Nếu dữ liệu theo đúng như thế thì dùng code sau

Sub KeDong()
    m = Range("B65000").End(xlUp).Row
    n = Range("M65000").End(xlUp).Row
    With Range("B" & m & ":M" & n)
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
    End With
End Sub

 

[rosy84]

Cấu trúc của nó thay đổi cơ bac à, Nó khôg cố định như vậy.
Thế mới chán chứ em không biết dùng cái gì để đánh dấu giá trị đầu và cuối của nó cả.
Các bác giúp em nha. thanks!

 

[huuthang_bd]

Cấu trúc của nó thay đổi cơ bac à, Nó khôg cố định như vậy.
Thế mới chán chứ em không biết dùng cái gì để đánh dấu giá trị đầu và cuối của nó cả.
Các bác giúp em nha. thanks!

Dùng code này thử xem

Sub Border()
    With ActiveSheet.UsedRange
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
    End With
End Sub

 

[rosy84]

Code này thỉ Ok rồi, thanks bac nhé.

 

[le tin]

Nên thêm dòng này lên trên để khi thay đổi cấu trúc thì mới có tác dụng
Cells.Select
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone