Aşağıda bir programa bakacağız Excel VBA'sı bu sayı sayar yıl olayları.
Durum:
Not: Tarihler ABD Formatındadır. Önce aylar, sonra Günler. Bu biçim türü, Windows bölgesel ayarlarınıza bağlıdır.
1. İlk olarak, Integer türünde üç değişken tanımlıyoruz. Bir değişkene yearCount, bir değişkene yearAsk ve bir değişkene i diyoruz.
Dim yearCount As Integer, YearAsk As Integer, i As Integer
2. YearCount'u 0 değeriyle ve yearAsk'i C4 hücresinin değeriyle başlatıyoruz.
yılSayısı = 0
yılAsk = Aralık("C4").Değer
3. For Next döngüsüne başlıyoruz.
i = 1 ila 16 için
4. Şimdi her tarihi kontrol ediyoruz ve sadece tarihin yılı C4 hücresine girilen yıla eşitse yearCount'u 1 artırıyoruz. Yıl fonksiyonunu bir tarihin yılını almak için kullanıyoruz.
Eğer yıl(Hücreler(i, 1).Value) = yılSor Sonra
yılSayısı = yılSayısı + 1
Bitir
5. Döngüyü kapatmayı unutmayın.
sonraki ben
6. Son olarak, toplam yıl oluşumlarını gösteririz. İki diziyi birleştirmek (birleştirmek) için & operatörünü kullanırız.
MsgBox yearCount & " yıl içindeki olaylar " & yearAsk
7. Makronuzu bir komut düğmesine yerleştirin ve test edin.
Sonuç:
Not: yearAsk değişkeni yaptığımız için, C4 hücresine başka bir yıl girerek ve tekrar komut düğmesine tıklayarak başka bir yılın yıl oluşum sayısını sayabilirsiniz.
