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/

Subscribe
Notify of
guest
20 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Viet Hoang

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

Tuấn Thành Lê

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

Thanh Tuan Nguyen Van

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!

bao anh nguyen khac

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

Giang Pham

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 ^_^

Trung Hiếu Mai

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?

Nhat Quynh Huynh

.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ì ạ?

Ha Nguyen

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?

Siêu Thị Gà Đòn 4

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

Tr. Sau

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

Siêu Thị Gà Đòn 4

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.

Nguyễn Tuấn Hùng

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

Dung Nguyen Thi Kim

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ỉ.

Van Tai

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

Hai Pham

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

Huy Tran

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. 🙂

Trương Minh Thắng

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

Tam Nguyen

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

Roku Vo

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

ĐT Nguyễn [Học Excel Online]