Bôi đen toàn bộ dòng có dữ liệu

[hcl_pt]

Mong GPE chỉ giúp mình trường hợp này ạ: cột A có 1 vùng có dữ liệu . Muốn Bôi đen toàn bộ dòng từ dòng có dữ liệu đầu tiên ở cột A đến dòng cuối cùng có dữ liệu ở cột A thì viết Code như thế nào?
Rât Mong các bạn GPE chỉ giúp!
Trân trọng cảm ơn!

 

[hcl_pt]

 Range("A4", Range("A65000").End(3)).Select

Cảm ơn bạn, bạn ơi mình muốn bôi đen toàn bộ dòng chứa tất cả các cột ạ, mong bạn xem giúp. Xin cảm ơn ạ!

 

[khuongvietphong]

Cảm ơn bạn, bạn ơi mình muốn bôi đen toàn bộ dòng chứa tất cả các cột ạ, mong bạn xem giúp. Xin cảm ơn ạ!

Ý bạn có phải thế này không

 

[khuongvietphong]

FIle của bạn có mỗi dòng đó có dữ liệu thì bôi đen cái quái gì nữa???
Muốn tất cả các cột hả?

 Range("A4:XFD" & Range("A65000").End(3).Row).Select

Hoặc

 Range("A4", Range("A65000").End(3)).Resize(, 16384).Select

Hình như chỉ chọn những dòng có dữ liệu thôi anh

 

[doveandrose]

ủa các bạn làm gì kì vậy ?
bôi đen nghĩa là gì ? bôi đen nghĩa là tô màu đen .tự nhiên select để làm chi vậy các bạn ?

 

[be_09]

Thử vầy coi.

Sub ToDen()    
      Range("A4").CurrentRegion.Select    
      With Selection.Interior        
            .ThemeColor = xlThemeColorLight1    
      End With
End Sub

Với điều kiện cột A (số thứ tự đầy đủ), nếu trống thì tèo.

 

[hcl_pt]

FIle của bạn có mỗi dòng đó có dữ liệu thì bôi đen cái quái gì nữa???
Muốn tất cả các cột hả?

 Range("A4:XFD" & Range("A65000").End(3).Row).Select

Hoặc

 Range("A4", Range("A65000").End(3)).Resize(, 16384).Select

Cảm ơn bạn, cảm ơn GPE rất nhiều. Đúng rồi bạn ạ!

 

[hcl_pt]

FIle của bạn có mỗi dòng đó có dữ liệu thì bôi đen cái quái gì nữa???
Muốn tất cả các cột hả?

 Range("A4:XFD" & Range("A65000").End(3).Row).Select

Hoặc

 Range("A4", Range("A65000").End(3)).Resize(, 16384).Select

Bạn hpkhuong ơi, bạn xử lí giúp mình với, yêu cầu: khi từ dòng 4 trở xuống mà không có một dữ liệu nào ở cột A thì sẽ không bôi đen bất kì dòng nào. Trong code này của bạn khi từ dòng 4 trở xuống không có dữ liệu thì nó lại bôi đen dòng 1 đến dòng 4 ạ? Mong bạn và GPE xem giúp. Xin cảm ơn!

 

[giaiphap]

Bạn hpkhuong ơi, bạn xử lí giúp mình với, yêu cầu: khi từ dòng 4 trở xuống mà không có một dữ liệu nào ở cột A thì sẽ không bôi đen bất kì dòng nào. Trong code này của bạn khi từ dòng 4 trở xuống không có dữ liệu thì nó lại bôi đen dòng 1 đến dòng 4 ạ? Mong bạn và GPE xem giúp. Xin cảm ơn!

Vậy bạn dùng lệnh này nhé (chọn từ A1 luôn nhé, còn muốn chọn từ A4 thay số 1 thành số 4):

Range("A1:AFD" & ActiveSheet.UsedRange.Rows.Count).Select

 

[hcl_pt]

Vậy bạn dùng lệnh này nhé (chọn từ A1 luôn nhé, còn muốn chọn từ A4 thay số 1 thành số 4):

Range("A1:AFD" & ActiveSheet.UsedRange.Rows.Count).Select

Cảm ơn bạn! mình thử code của bạn, trong trường hợp có dữ liệu thì 3 dòng dữ liệu cuối lại không bôi đen, còn trong trường hợp không có dữ liệu thì lại bôi đen mấy dòng đầu tiên ạ.
Bạn xem giúp cho mình với, Dữ liệu có thể xảy ra hai trường hợp:
1/ Cột A nếu có dữ liệu: sẽ có từ A4 trở đi liền mạch : cần bôi đen toàn bộ dòng có dữ liệu từ dòng 4 cho đến hết dòng có chứa dữ liệu cuối cùng
2/ Cột A nếu không có dữ liệu: thì khi chạy code sẽ không bôi đen bất cứ dòng nào hoặc nếu bôi đen thì chỉ bôi đen nguyên dòng 4
- Xin cảm ơn