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/
hướng dẫn hay.Giọng dễ nghe.chuyên nghiệp
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
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!
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
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 ^_^
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?
.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ì ạ?
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?
Anh ơi em muốn khai báo biến giá trị theo tháng thì khai báo thế nào vậy
bạn hướng dẫn rất chuyên nghiệp!
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.
xin cảm ơn! Cương trình rất hay
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ỉ.
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
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
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. 🙂
anh học vba từ đâu đấy ạ
xin hoi minh muon subscribe cho tat ca Video thi lam the nao?
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
Chia sẻ series VBA #huongdanvbatrongexcel #huongdanvba #huongdanexcel #noixinchaovoivba