Aşağıda bir programa bakacağız Excel VBA'sı bu bir oluşturur yuvarlanan ortalama tablo. Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırını ekleyin:
Range("B3").Value = WorksheetFunction.RandBetween(0, 100)
Bu kod satırı, B3 hücresine 0 ile 100 arasında rastgele bir sayı girer. Excel VBA'nın yeni stok değerini almasını ve dönen ortalama tablosunun ilk konumuna yerleştirmesini istiyoruz. Diğer tüm değerler bir basamak aşağı inmeli ve son değer silinmelidir.
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 ve iki aralıkta (ilk dört değer ve son dört değer) yeni değer adında bir değişken bildirin.
Yeni değer Tamsayı olarak, ilk dört değer Aralık olarak, son dört değer Aralık olarak karart
5. Çalışma Sayfası Değişikliği Olayı, Sayfa1'deki tüm değişiklikleri dinler. Excel VBA'nın yalnızca B3 hücresinde bir şey değişirse bir şeyler yapmasını istiyoruz. Bunu başarmak için aşağıdaki kod satırını ekleyin:
Target.Address = "$B$3" ise
6. Yeni değeri B3 hücresinin değeriyle, ilk dört değeri Aralık("D3:D6") ve son dört değeri Aralık("D4:D7") ile başlatıyoruz.
yenideğer = Aralık("B3").Değer
İlk dörtdeğeri ayarla = Aralık("D3:D6")
Lastfourvalues = Aralık ("D4:D7") ayarla
7. Şimdi basit numara geliyor. Dönen ortalama tablosunu güncellemek istiyoruz. Bunu, son dört değeri tablonun ilk dört değeriyle değiştirerek ve yeni stok değerini ilk pozisyona yerleştirerek yapabilirsiniz.
lastfourvalues.Value = firstfourvalues.Value
Aralık("D3").Değer = yenideğer
8. if deyimini kapatmayı unutmayınız.
Eğer son
9. Son olarak, =ORTALAMA(D3:D7) formülünü D8 hücresine girin.
10. Komut düğmesine tıklayarak programı test edin.
