Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA điều đó lặp qua toàn bộ cột đầu tiên và tô màu tất cả các giá trị thấp hơn một giá trị nhất định.
Đặt một nút lệnh trên trang tính của bạn và thêm các dòng mã sau:
1. Đầu tiên, khai báo một biến có tên là i kiểu Long. Chúng ta sử dụng một biến kiểu Long ở đây vì biến Long có dung lượng lớn hơn biến Integer.
Không cótôiNhư Dài
2. Tiếp theo, thêm dòng mã thay đổi màu phông chữ của tất cả các ô trong cột A thành màu đen.
Cột (1) .Font.Color = vbBlack3. Thêm vòng lặp.
chọn một số từ 1 đến 8Vìi = 1ĐếnRows.Count
Kế tiếptôi
Lưu ý: trang tính có thể có tối đa 1.048.576 hàng trong Excel 2007 trở lên. Bất kể bạn đang sử dụng phiên bản nào, dòng mã trên sẽ lặp lại qua tất cả các hàng.
4. Tiếp theo, chúng tôi tô màu tất cả các giá trị thấp hơn giá trị được nhập vào ô D2. Các ô trống được bỏ qua. Thêm các dòng mã sau vào vòng lặp.
Nếu nhưÔ (i, 1). Giá trịCác ô (i, 1) .Font.Color = vbRed
Kết thúc Nếu như
Kết quả khi bạn nhấp vào nút lệnh trên trang tính (quá trình này có thể mất một lúc):
Đi tới Chương tiếp theo: Lỗi macro