300 Ví Dụ

Lặp qua toàn bộ cột

Loop Through Entire Column

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.





Lặp qua toàn bộ cột trong Excel VBA

Lặp qua toàn bộ cột trong Excel VBA





Đặ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 = vbBlack

3. Thêm vòng lặp.

chọn một số từ 1 đến 8
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ịKhôngIsEmpty (Ô (i, 1) .Value)sau đó
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):

Lặp qua toàn bộ kết quả cột

Lặp qua toàn bộ kết quả cột

3/11 Hoàn thành! Tìm hiểu thêm về các vòng lặp>
Đi tới Chương tiếp theo: Lỗi macro



^