Aşağıda bir programa bakacağız Excel VBA'sı o Aktif Hücrenin satırını ve sütununu vurgular (seçilen hücre). Bu program patronunuzu şaşırtacak ve etkileyecek.
Durum:
Sayfa1'deki Etkin Hücreyi her değiştirdiğimizde bir makronun yürütülmesi gerekir. Bunu bir Worksheet SelectionChange Etkinliği oluşturarak başarabilirsiniz.
1. Visual Basic Düzenleyicisini açın.
2. Proje Gezgini'nde Sayfa1'e (Sayfa1) çift tıklayın.
3. Soldaki açılır listeden Çalışma Sayfası'nı seçin. Sağdaki açılır listeden SelectionChange'i seçin.
Worksheet SelectionChange Etkinliğine aşağıdaki kod satırlarını ekleyin:
4. Tamsayı türünde dört değişken tanımlıyoruz. Biri rowNumberValue, biri columnNumberValue, biri i ve diğeri j adında.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. İlk olarak, tüm hücrelerin arka plan rengini 'Dolgu Yok' olarak değiştiren satırı ekliyoruz.
Cells.Interior.ColorIndex = 0
6. RowNumberValue değişkenini Active Cell satır numarası ile, columnNumberValue değişkenini Active Cell sütun numarası ile başlatıyoruz.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Sütunu mavi olarak vurgularız. Yani: satır numarası rowNumberValue'dan küçük veya eşit ve sütun numarası columnNumberValue'dan küçük olan tüm hücreler
i = 1 için rowNumberValue
Cells(i, columnNumberValue).Interior.ColorIndex = 37
sonraki ben
Açıklama: bu örnek için (yukarıdaki resme bakın), rowNumberValue 12'ye ve columnNumberValue 8'e eşittir. For ve Next arasındaki kod satırları on iki kez yürütülecektir. i = 1 için, Excel VBA, hücreyi satır 1 ve sütun 8'in kesişim noktasında renklendirir. i = 2 için, Excel VBA, hücreyi satır 2 ve sütun 8'in kesiştiği yerde renklendirir.
Not: ColorIndex numarası 37 (mavi) yerine herhangi bir ColorIndex numarası kullanabilirsiniz.
8. Benzer şekilde mavi satırı vurgularız. Yani: satır numarası rowNumberValue'ye eşit ve sütun numarası columnNumberValue'dan küçük veya eşit olan tüm hücreler.
j = 1 için columnNumberValue'ye
Cells(rowNumberValue, j).Interior.ColorIndex = 37
sonraki j
9. Şimdi programı test etme zamanı. Excel dosyasını indirin ve Aktif Hücreyi her değiştirdiğinizde Aktif Hücrenin satır ve sütununun nasıl vurgulandığını görün.
