Aşağıda bir programa bakacağız Excel VBA'sı arka plan rengini belirleyen programa uygun görevler yeşile ve zamanlamanın gerisindeki görevlerin arka plan rengini kırmızıya ayarlar.
Durum:
Sayfa1'de üç görevimiz var (X, Y, Z). "1", bir görevin tamamlandığını gösterir. Bugünün tarihi de dahil olmak üzere her sütunda bir "1" varsa, bir görev programlanmıştır. Bugün 6-Haziran. X ve Y görevleri programa uygun. Görev Z, programın gerisinde (E8 hücresinde "1" yok).
Bir Çalışma Sayfası Değişikliği Etkinliği oluşturun. Çalışma Sayfası Değişikliği Etkinliğine eklenen kod, bir çalışma sayfasındaki bir hücreyi değiştirdiğinizde Excel VBA tarafından yürütülecektir.
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 Değiştir'i seçin.
Çalışma Sayfası Değişikliği Etkinliğine aşağıdaki kod satırlarını ekleyin:
4. Tamsayı türünde iki değişken bildirin.
Dim i As Integer, j As Integer
5. Do while Döngüsü ekleyin.
Hücreler Yaparken (6 + i, 1).Value ""
ben = ben + 1
Döngü
Açıklama: i = 0 için Excel VBA, X görevini, i = 1 için Y görevini vb. denetler. Excel VBA, Hücreler (6 + i, 1) olduğunda Do while döngüsünden çıkar. Değer boş (kontrol edilecek başka görev yok) .
Do while Döngüsüne aşağıdaki kod satırlarını (6, 7 ve 8'de) ekleyin.
6. j değişkenini 0 değeriyle başlatın.
j = 0
7. Bir görevin programa uygun olduğunu varsayarak bir görevin arka plan rengini yeşile ayarlayın (bu elbette doğru değildir).
Hücreler(6 + i, 1).Interior.ColorIndex = 4
8. Başka bir Do while Döngüsü ekleyin.
Hücreler (4, 2 + j).Value <= Tarih Yaparken Yap
Cells(6 + i, 2 + j).Value = 0 ise Cells(6 + i, 1).Interior.ColorIndex = 3
j = j + 1
Döngü
Not: Tarih işlevi bugünün tarihini döndürür.
Açıklama: i = 0, j = 0 için Excel VBA, B6 hücresini kontrol eder. i = 0, j = 1 için Excel VBA, C6 hücresini vb. denetler. Bugünün tarihine kadar (bu tarih dahil) her sütunda bir "1" varsa, bir görev programa uygundur. Excel VBA bir "0" bulursa, görevin arka plan rengini kırmızıya ayarlar.
9. Programı test edin. Örneğin, 6-Haziran'daki Z görevinin tamamlandığını belirtin. Sonuç olarak, Z görevi otomatik olarak yeşile döner.
