Excel VBA'da bir Kalıp Oluştur

Aşağıda bir programa bakacağız Excel VBA o bir desen oluşturur.

Durum:

Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:

1. İlk olarak, Tamsayı türünde iki değişken açıklıyoruz. Biri i ve bir adın adı j.

Dim i As Integer, j As Integer

2. İkincisi, Sonraki Döngü için iki tane ekliyoruz.

For i = 1 To 5 Step 2
For j = 1 To 5 Step 2

3. Ardından, hücrelerin arka plan rengini açık griye dönüştüren çizgiyi ekliyoruz.

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

Not: ColorIndex numarası 15 (açık gri) yerine, herhangi bir ColorIndex numarasını kullanabilirsiniz.

4. İki Sonraki döngü için kapatın.

Next j
Next i

5. Programı test edin.

Şimdiye kadar sonuç.

Örneğin, i = 1 ve j = 1 için, Excel VBArenkler Hücreler (1,1), i = 1 ve j = 3 (Adım 2), Excel VBA renk Hücreleri (1,3), i = 1 ve j = 5 için, Excel VBA renk Hücreleri (1,5), i = 3 (Adım 2) ve j = 1 için, Excel VBA renk hücreleri (3,1) vb.

6. Neredeyse varız. Yapmamız gereken tek şey, aşağıda sıralanan 1 satır ve önceden renklendirilmiş hücrelerin sağında 1 sütun ile dengelenen hücrelerdir. Döngü için aşağıdaki kod satırını ekleyin.

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

7. Programı test edin.

Sonuç: