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

Liên hệ QC

hcl_pt

Thành viên hoạt động
Tham gia
21/10/10
Bài viết
174
Được thích
7
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

==(^o^)==
Tham gia
12/3/07
Bài viết
5,614
Được thích
5,792
Donate (Momo)
Donate
Giới tính
Nam
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.
Mã:
Public Sub Chon()
    Dim aRow
    aRow = Sheet1.UsedRange.Row
    Rows("1:" & aRow).Select
End Sub
 

hcl_pt

Thành viên hoạt động
Tham gia
21/10/10
Bài viết
174
Được thích
7
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!boiden.png
 

File đính kèm

  • boidendong.xlsx
    7.6 KB · Đọc: 2
Lần chỉnh sửa cuối:

VetMini

Ăn cùng góc phố
Tham gia
21/12/12
Bài viết
14,284
Được thích
18,894
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

Thành viên hoạt động
Tham gia
21/10/10
Bài viết
174
Được thích
7
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

Thành viên gắn bó
Tham gia
24/7/18
Bài viết
3,177
Được thích
3,190
Donate (Momo)
Donate
Giới tính
Nam
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

Ăn cùng góc phố
Tham gia
21/12/12
Bài viết
14,284
Được thích
18,894
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

Thành viên hoạt động
Tham gia
21/10/10
Bài viết
174
Được thích
7
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

Thành viên hoạt động
Tham gia
5/7/16
Bài viết
121
Được thích
87
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

Thành viên gắn bó
Tham gia
24/7/18
Bài viết
3,177
Được thích
3,190
Donate (Momo)
Donate
Giới tính
Nam
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

/(hông là gì!
Thành viên danh dự
Tham gia
8/6/06
Bài viết
13,271
Được thích
20,451
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

Thành viên hoạt động
Tham gia
21/10/10
Bài viết
174
Được thích
7
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 ạ!
 
Web KT

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL
Top Bottom