/ / Excel'de Programda Görevler VBA

Excel VBA'da Zamanlama Görevleri

Aşağıda bir programa bakacağız Excel VBA Bu arka plan rengini ayarlar programlanan görevler yeşile ve zamanlamanın arkasındaki görevlerin arka plan rengini kırmızıya ayarlar.

Durum:

Sheet1'de üç görevimiz var (X, Y, Z). Bir "1", bir görevin tamamlandığını gösterir. Her sütunda bugünün tarihine kadar ve dahil olmak üzere bir "1" varsa, bir görev zamanlanır. Bugün bu 6-jun. Görevler X ve Y zamanlanmış. Görev Z, programın gerisinde (E8 hücresinde "1" yok).

Excel VBA'da Zamanlama Görevleri

Bir Çalışma Sayfası Değiştirme Etkinliği oluşturun. Çalışma Sayfası Değiştirme Etkinliğine eklenen kod, çalışma sayfasındaki bir hücreyi değiştirdiğinizde Excel VBA tarafından yürütülecektir.

1. Visual Basic Düzenleyicisi'ni açın.

2. Proje Gezgini'nde Sayfa1 (Sayfa1) üzerine ç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.

Excel VBA'da Çalışma Sayfası Değiştirme Etkinliği

Çalışma Sayfası Değiştirme 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. Döngü Yaparken Ekle.

Do While Cells(6 + i, 1).Value <> ""


    i = i + 1
Loop

Açıklama: i = 0 için, Excel VBA görev X'i kontrol eder, i = 1, görev Y vb. İçin. Excel VBA, Hücreleri Ne Zaman Yapar (6 + i, 1) .Value olduğu boş (kontrol edilecek başka görev yok).

Aşağıdaki kod satırlarını (6, 7 ve 8'de) Do while Loop'a ekleyin.

6. j değişkenini 0 ile sıfırlayın.

j = 0

7. Görevin arka plan rengini, bir görevin programa uygun olduğunu varsaymak için yeşil olarak ayarlayın (bu elbette elbette doğru değildir).

Cells(6 + i, 1).Interior.ColorIndex = 4

8. Başka Bir Do Döngü Ekle.

Do While Cells(4, 2 + j).Value <= Date
    If Cells(6 + i, 2 + j).Value = 0 Then Cells(6 + i, 1).Interior.ColorIndex = 3
    j = j + 1
Loop

Not: Tarih işlevi bugünün tarihini döndürür.

Açıklama: İ = 0 için j = 0, Excel VBA, B6 hücresini denetler. İ = 0 için, j = 1, Excel VBA, C6 hücresini kontrol eder. Bir tarih, her bir sütunda bir "1" varsa, bugünün tarihine kadar ve dahil olmak üzere. Excel VBA bir "0" bulursa, Görevin arka plan rengini kırmızıya ayarlar.

9. Programı test edin. Örneğin, 6-jun'daki Z görevinin tamamlandığını belirtin. Sonuç olarak, Z görevi otomatik olarak yeşile döner.

Zamanlama Sonuçlarındaki Görevler

Ayrıca oku: