Hỏi: code tạo boder theo từng hàng!! (1 người xem)

[thanhquangauh]

Chào diễn đàn! em có 3 sheet: dulieu1; dulieu2 và boder.
- tại sheet boder: khi bấm vào nút BODER thì tạo boder cho 2 shest dulieu1 và dulieu2 với điều kiện là:
+ tạo boder cho 2 sheet dulieu1 và dulieu2 từ dòng 15 trở xuống, dữ liệu tới đâu thì tạo boder đến đó.
+ xóa boder: từ dòng 15 trở xuống, dòng nào chứa boder thì xóa boder đi (không xóa dữ liệu).
e chân thành cảm ơn....

 

[ChanhTQ@]

Theo mình, bạn nên làm thế này

B1: Từ dòng 15 đến dòng 9999 ta định dạng sẵn theo í;

B2: Tìm dòng cuối chứa dữ liệu, Ví dụ 999;

B3: Cho ẩn từ dòng 10^3 cho đến 10^4 - 1

 

[thanhquangauh]

b1: Từ dòng 15 đến dòng 9999 ta định dạng sẵn theo í;

b2: Tìm dòng cuối chứa dữ liệu, ví dụ 999;

b3: Cho ẩn từ dòng 10^3 cho đến 10^4 - 1

anh gửi file đính kèm giúp em, nói vậy mặc dù hơi hiểu nhưng không làm được...thank you!!

 

[SA_DQ]

Thì đây, xin mời bạn

 

[thanhquangauh]

Có lẽ anh hiểu lầm ý của em rồi, ví dụ em có dữ liệu ở sheet dulieu1 từ ô a15 đến ô h50 và ở sheet dulieu2 từ ô a15 đến ô j70 thì khi bấm vào BORDER thì chỉ tạo những ô đó thoi6n còn nếu thêm dữ liệu nữa thì khi bấm BORDER, dữ liệu tới đâu thì boder đến đó.......,,,,chứ khôn phải mình mặc định trước vùng border (như file "Range("A15:j5000").Select").
cảm ơn anh..

 

[TrungChinhs]

Chào diễn đàn! em có 3 sheet: dulieu1; dulieu2 và boder.
- tại sheet boder: khi bấm vào nút BODER thì tạo boder cho 2 shest dulieu1 và dulieu2 với điều kiện là:
+ tạo boder cho 2 sheet dulieu1 và dulieu2 từ dòng 15 trở xuống, dữ liệu tới đâu thì tạo boder đến đó.
+ xóa boder: từ dòng 15 trở xuống, dòng nào chứa boder thì xóa boder đi (không xóa dữ liệu).
e chân thành cảm ơn....

Bạn thử code này.

Sub Bordres()
    For Each sh In Worksheets
        With sh.[b15].CurrentRegion
            If sh.[b15] > 0 And .Borders.LineStyle = 1 Then
               .Borders.LineStyle = 0
            Else
               .Borders.LineStyle = 1
            End If
       End With
    Next
End Sub