Phân loại dữ liệu bằng màu, mô phỏng chức năng của conditional formatting – Học VBA trong Excel 09



Học Excel cùng ĐT Nguyễn:
▷ Khoá học “Học Excel, Có Việc Ngay”: ​
▷ Xem ngay “Tự động hoá Excel và báo cáo với VBA”:

▷ Theo dõi Facebook cá nhân:
▷ Blog cá nhân:
▷ Video được cung cấp miễn phí bởi
▷ Facebook Group:

Khám phá thêm thật nhiều kiến thức với Học Excel Online:
🔑 Học Excel, Có Việc Ngay: ​
🔑 Hãy để VBA giúp bạn:
🔑 Hiểu và phân tích dữ liệu với Excel: ​

Hướng dẫn Excel VBA 09 Phân loại dữ liệu bằng màu, mô phỏng chức năng của conditional formatting
Link Download:
Blog:
Youtube:
FB:

Trong bài này, chúng ta sẽ sử dụng 1 đoạn VBA nhỏ để có thể highlight được dữ liệu theo quy luật: từ giá trị nhỏ nhất của dữ liệu đến giá trị lớn nhất của dữ liệu, mỗi thay đổi ứng với 1000 đơn vị sẽ được tô màu. Màu được tô theo 1 tông, màu càng đậm ứng với giá trị càng lớn, màu càng nhạt sẽ ứng với giá trị càng nhỏ.

Chúng ta sẽ sử dụng đến Macro Recorder đã được giới thiệu trong bài số 8, cùng với 1 số câu lệnh trong VBA như sau:
– Câu lệnh để tìm dòng cuối cùng của cột 1 có chứa dữ liệu trên bảng tính:
Cells(Rows.Count,1).End(xlUp).Row
Trong câu lệnh này, Rows.Count sẽ cho chúng ta biết số lượng dòng mà phiên bản excel hiện thời hỗ trợ, với Excel từ phiên bản 2007 trở về sau sẽ là hơn 1 triệu dòng; với Excel từ phiên bản 2003 trở về trước sẽ là 65384 dòng.

#Conditional Formatting #VBA #highlight data

Xem thêm video học và các thủ thuật excel: https://mindovermetal.org/thu-thuat-excel/

20 Comement tại “Phân loại dữ liệu bằng màu, mô phỏng chức năng của conditional formatting – Học VBA trong Excel 09”

  1. hướng dẫn hay.Giọng dễ nghe.chuyên nghiệp

  2. Sao làm như bạn xong toàn bị một màu à nó không có ra nhạt và màu đậm theo giá trị bạn ơi

  3. Thanh Tuan Nguyen Van October 20, 2020 at 3:56 am

    Anh ơi! Em vẫn dùng y như công thức anh! nhưng sao cho ra cột màu từ A1:D1 chứ không ra cả For i =6 to dong_cuoi anh!

  4. Chao ban, dong nay minh danh tay: Cells(Rows.Count, 1).End(xlUp).Row
    Roi minh cho chay o 'immediate' no ko chay, no bao ko co ung dung de chay, nhung luc minh copy nguyen dong nay o file excel cua ban ni no lai chay, minh ko hieu vi sao, xin ban giai thich dum minh vs nhe. thanks

  5. Anh ơi, em đang có 1 vấn đề liên quan đến sử dụng VBA tạo conditional formatting. Anh cho em xin mail của anh em gửi file với yêu cầu anh xử lý giúp  em với.
    Thank anh nhìu ^_^

  6. Bạn cho mình hỏi khi quét chọn 1 vùng dữ liệu bất kì trong bảng tính thì mình dùng code như thế nào để lấy được địa chỉ ô đầu tiên và ô cuối cùng của cột thứ nhất vậy?

  7. .TintAndShade = -gia_tri / 10 + 0.4 
    Đoạn này em không hiểu ạ, giải thích dùm em với ạ.
    – Tintandshade là gì?
    – Anh có nói là tintandshade chạy từ 0-1, phần +0.4 là gì ạ?

  8. anh oi em học và lập theo nhưng cứ bị hiện lỗi không thực hiện được, e muốn hỏi trường hop em dùng kết quả chỉ từ 1-100 thì sao ah?

  9. Siêu Thị Gà Đòn 4 October 20, 2020 at 3:56 am

    Anh ơi em muốn khai báo biến giá trị theo tháng thì khai báo thế nào vậy

  10. bạn hướng dẫn rất chuyên nghiệp!

  11. Siêu Thị Gà Đòn 4 October 20, 2020 at 3:56 am

    Có cách nào tô màu theo text (Tên trùng nhau thì tô 1 màu) được ko vậy anh.

  12. Nguyễn Tuấn Hùng October 20, 2020 at 3:56 am

    xin cảm ơn! Cương trình rất hay

  13. Rất cảm ơn bạn về các bài học hay và bổ ích. Mình không biết cách subscribe để tải file mục lục đầy đủ các bài giảng như bạn đã hướng dẫn. Hay vì mình đang dùng bằng điện thoại? Chắc phải dùng máy tính thì mới tải được nhỉ.

  14. Mình muốn có 1 form sẵn, vd tên, địa chỉ, ngày sinh v.v, sau đó lấy thông tin từ 1 bảng khác, lưu cùng foder sang bảng chính, chỉ cần ấn nut thôi. giúp mình với

  15. rất dễ học. Song hiện tại đang dừng lại ở bài 9. bạn update thêm nhé. Thanks

  16. Lâu rồi ko thấy bài mới, bạn có thể làm video giới thiệu thuộc tính hay sử dụng của các đối tượng được ko. Many thanks. 🙂

  17. Trương Minh Thắng October 20, 2020 at 3:56 am

    anh học vba từ đâu đấy ạ

  18. xin hoi minh muon subscribe cho tat ca Video thi lam the nao?

  19. Anh ơi đề là tô màu những ô có giá trị âm trong 1 bảng nhưng em làm hoài cái Worksheets("Sheet1").Range("Chr(j)" & "i").Value < 0 vẫn cứ báo lỗi, em đã thay đổi nhìu cách nhưng ko hiểu sao vẫn ko đc, làm cells thì nó chạy xuống rất êm nhưng tới khi chạy ngang lại lỗi hoài! huhu :(( 
    ———————————-
    Sub tomau()
    Dim i, j As Byte
    For i = 7 To 12
        For j = 70 To 75
         If Worksheets("Sheet1").Range("Chr(j)" & "i").Value < 0 Then
          With Range("Chr(j)" & "i").Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 5296274
            .TintAndShade = 0
            .PatternTintAndShade = 0
          End With
         End If
        Next j
    Next i
    End Sub

  20. ĐT Nguyễn [Học Excel Online] October 20, 2020 at 3:56 am

Để lại ý kiến của bạn:

Your email address will not be published. Required fields are marked *