Cần giúp đỡ code select (Bôi đen) từ dòng 5 đến dòng cuối cùng chứa dữ liệu

[hcl_pt]

Nhờ các thầy trong GPE giúp đỡ các vấn đề của em với, cụ thể như sau:
Em mong các thầy giúp đỡ em đoạn mã bôi đen từ dòng 5 đến cuối dòng có chứa dữ liệu trong trang tính.
Ví dụ: trang tính có dòng thứ n có dữ liệu thì sẽ bôi đen từ dòng 5 đến dòng thứ n đó: kiểu như này ạ: Rows("5:n").Select
Xin cảm ơn nhiều ạ!

 

[giaiphap]

Nhờ các thầy trong GPE giúp đỡ các vấn đề của em với, cụ thể như sau:
Em mong các thầy giúp đỡ em đoạn mã bôi đen từ dòng 5 đến cuối dòng có chứa dữ liệu trong trang tính.
Ví dụ: trang tính có dòng thứ n có dữ liệu thì sẽ bôi đen từ dòng 5 đến dòng thứ n đó: kiểu như này ạ: Rows("5:n").Select
Xin cảm ơn nhiều ạ!

Thử code này.

Public Sub Chon()
    Dim aRow
    aRow = Sheet1.UsedRange.Row
    Rows("1:" & aRow).Select
End Sub

 

[hcl_pt]

Hãy thử mã này.
[number code]
Public Sub Chon ()
Dim aRow
aRow = Sheet1.UsedRange.Row
Hàng ("1:" & aRow). Select
End Sub
[/ number code]

Cảm ơn thầy! Em cho mã chạy thì kết quả là bôi đen từ dòng 1 đến đầu dòng có dữ liệu
- Thầy xem giúp em: em cần bôi đen từ dòng 5 đến dòng cuối cùng có dữ liệu ạ! Dòng dữ liệu cuối cùng này là không cố định, cứ mỗi một lần dòng cuối cùng có dữ liệu thay đổi thì khi chạy code tự động bôi đen từ dòng 5 đến dòng cuối cùng đó!
Ví dụ như: trong file em send dòng với dữ liệu cuối cùng là dòng 15 thì sẽ bôi đen từ dòng 5 đến dòng 15 ạ!
Mong thầy xem giúp!

 

[anhtuan2939]

có dữ liệu thay đổi thì khi chạy code tự động bôi đen từ dòng 5 đến dòng cuối cùng đó!

Bạn thử code này xem sao

Sub Chon()
    Dim lr As Long
    lr = ActiveCell.SpecialCells(xlLastCell).Row
    Rows("5:" & lr).Select
End Sub

 

[VetMini]

Má ơi. Cái chuyện chỉ cần record macro một phút là xong mà cũng phải nhờ.

 

[hcl_pt]

You try this code see sao
[CODE = php] Sub Chon ()
Dim lr As Long
lr = ActiveCell.SpecialCells (xlLastCell) .Row
Hàng ("5:" & lr). Chọn
Kết thúc Sub [/ CODE]

Dạ, cảm ơn thầy! Đúng ý rồi thầy ạ! Chúc các thầy nhiều sức khỏe!

 

[snow25]

Má ơi. Cái chuyện chỉ cần record macro một phút là xong mà cũng phải nhờ.

Nhờ đỡ hại não anh ơi.

 

[hcl_pt]

Nhờ đỡ hại não anh ơi.

Không phải thầy ơi! E có ghi macro nhưng chỉ biết ghi trong trường hợp cố định! Còn đây là dữ liệu ở dòng cuối nó thay đổi em không biết ghi như thế nào? Nếu có thể thầy hướng dẫn giúp em!

 

[snow25]

Không phải thầy ơi! E có ghi macro nhưng chỉ biết ghi trong trường hợp cố định! Còn đây là dữ liệu ở dòng cuối nó thay đổi em không biết ghi như thế nào? Nếu có thể thầy hướng dẫn giúp em!

Mình không làm những cái này bạn à.Mục đich của bạn để làm gì.

 

[VetMini]

Làm tự động là chơi dại.
Ví dụ tôi đang bôi đen A5:A10.
Tôi vào A11 gõ cái gì đó và Enter. Code tự động chọn A5:A11.
Bây giờ nếu tôi muốn gõ dữ kiệu vào A12 thì tôi phải kích vào A12.
Trước khi có code, cứ enter ở A11 thì Excel tự động vào A12.

 

[hcl_pt]

Mình không làm những cái này mình à.Mục đi của bạn để làm gì.

Vâng, em có file gồm rất nhiều sheet cần copy các dòng dữ liệu trong tất cả các sheet đưa chung về một sheet tổng hợp. Mà dữ liệu trong các sheet con kia thì thay đổi: mỗi lần em tổng hợp em phải vào từng sheet con chọn dòng 5 và kéo chuột xuống dòng cuối cùng để bôi đen => giờ nhờ code của thầy anhtuan mà em làm một cái là xong luôn!

 

[anhtuan2939]

file gồm rất nhiều sheet cần copy các dòng dữ liệu trong tất cả các sheet đưa chung về một sheet tổng hợp. Mà dữ liệu trong các sheet con kia thì thay đổi: mỗi lần em tổng hợp em phải vào từng sheet con chọn dòng 5 và kéo chuột xuống dòng cuối cùng để bôi đen

Tại sao bạn không tạo code để lấy dữ liệu từ các sheet con về sheet tổng hợp luôn. Khỏi phải thao tác bằng tay copy dữ liệu từng sheet con qua sheet tổng.

 

[snow25]

Vâng, em có file gồm rất nhiều sheet cần copy các dòng dữ liệu trong tất cả các sheet đưa chung về một sheet tổng hợp. Mà dữ liệu trong các sheet con kia thì thay đổi: mỗi lần em tổng hợp em phải vào từng sheet con chọn dòng 5 và kéo chuột xuống dòng cuối cùng để bôi đen => giờ nhờ code của thầy anhtuan mà em làm một cái là xong luôn!

Vậy code 1 cái tổng hợp là xong cần gì bôi với cả đen.

 

[SA_DQ]

Nhờ . . . . GPE giúp đỡ . . . . .Em mong . . . . giúp đỡ em đoạn mã bôi đen từ dòng 5 đến cuối dòng có chứa dữ liệu trong trang tính.
Ví dụ: trang tính có dòng thứ n có dữ liệu thì sẽ bôi đen từ dòng 5 đến dòng thứ n đó: kiểu như này ạ: Rows("5:n").Select
Xin cảm ơn nhiều ạ!

Nếu n nhỏ hơn 5 thì sao, nhỉ? Có thực hiện bôi đen không?
Mà bôi đen là làm sao sau đây:
Bôi đen là Select
Bôi đen bằng phẩm màu, cả màu nền lẫn màu font chữ
. . . . ?

 

[hcl_pt]

Nếu n nhỏ hơn 5 thì sao, nhỉ? Có bôi đen không?
Mà bôi đen là làm sao sau đây:
Bôi đen is Select
Bôi đen bằng màu sắc, cả chữ màu da đen
. . . . ?

Cảm ơn các thầy đã quan tâm! Dữ liệu chỉ có chọn từ dòng 5 trở đi ạ. Bôi đen và chọn để e copy dán sáng sheet Tổng hợp. Vì file của em nó hơn 1Mb nên e ko gửi lên được để các thầy xem ạ!