Border dòng khi ô có dữ liệu

[wuchengcai]

Mình có Bảng dữ liệu từ A3:H500, khi D3 có dữ liệu thì sẽ border A3:H3, khi D4 có dữ liệu thì sẽ border A4:H4, tương tự cho đến A500:H500.
Mình dùng code cho dòng đầu tiên A3:H3:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D3").Value <> "" Then
Range("A3:H3").Borders.Color = RGB(255, 0, 255)
End If
End Sub
Nhưng bảng dữ liệu của mình 500 dòng, mình không thể cope đoạn code trên và paste 500 lần.
Các thầy giúp mình chỉnh lại đoạn code nhé.

 

[leonguyenz]

Giúp mình add cái này luôn nhé: "Sẵn tiện đây giúp mình Border phần nội dung trong ListBox1 UserForm ......"

Hình như trong Listbox1 không được hỗ trợ thuộc tính định dạng khung. Phần này thì chịu.

 

[wuchengcai]

Hình như trong Listbox1 không được hỗ trợ thuộc tính định dạng khung. Phần này thì chịu.

Vậy mình khỏi border luôn. Cám ơn bạn nhiều nhé.