Aşağıda bir programa bakacağız Excel VBA'sı 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 tanımlıyoruz. Birinin adı i, birinin adı j.
Dim i As Integer, j As Integer
2. İkinci olarak, iki For Next döngüsü ekliyoruz.
i = 1 ila 5 Adım 2 için
j = 1 ila 5 Adım 2 için
3. Ardından, hücrelerin arka plan rengini açık griye çeviren satırı ekliyoruz.
Cells(i, j).Interior.ColorIndex = 15
Not: ColorIndex numarası 15 (açık gri) yerine herhangi bir ColorIndex numarası kullanabilirsiniz.
4. İki For Next döngüsünü kapatın.
sonraki j
sonraki ben
5. Programı test edin.
Şimdiye kadar sonuç.
Örneğin, i = 1 ve j = 1 için Excel VBA renkleri Hücreler(1,1), i = 1 ve j = 3 için (Adım 2), Excel VBA renkleri Hücreler(1,3), i = 1 ve j = 5, Excel VBA renkleri Hücreler(1,5), i = 3 (Adım 2) ve j = 1 için, Excel VBA renkleri Hücreler(3,1), vb.
6. Neredeyse geldik. Yapmamız gereken tek şey, zaten renklendirilmiş olan hücrelerin 1 satır altına ve 1 sütun sağına kaydırılan hücreleri renklendirmek. Aşağıdaki kod satırını döngüye ekleyin.
Hücreler(i, j).Offset(1, 1).Interior.ColorIndex = 15
7. Programı test edin.
Sonuç: