Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA tạo một mẫu.

Tình huống:

Create a Pattern in 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, chúng ta khai báo hai biến kiểu Integer. Một người tên tôi và một người tên j.

Dim i As Integer, j As Integer

  1. Thứ hai, chúng tôi thêm hai vòng lặp For Next.

For i = 1 To 5 Step 2

For j = 1 To 5 Step 2

  1. Tiếp theo, chúng ta thêm dòng thay đổi màu nền của các ô thành màu xám nhạt.

Cells(i, j).Interior.ColorIndex = 15

Lưu ý: thay vì số ColorIndex 15 (màu xám nhạt), bạn có thể sử dụng bất kỳ số ColorIndex nào.

  1. Đóng hai vòng lặp For Next.

Next j

Next i

  1. Chạy thử chương trình.

Kết quả cho đến nay.

Crate a Pattern Result so Far

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

  1. Chạy thử chương trình.

Kết quả:

Create a Pattern Result