Aşağıda bir programa bakacağız Excel VBA'sı o sayıları renge göre toplar.
Durum:
İki on iki kişiye borç para verdin. Bazı insanlar onu geri verdi (siyah) ve bazıları hala size borçlu (kırmızı). Hala ne kadar para aldığınızı bilmek istiyorsunuz.
1. İlk olarak, Tamsayı türünde iki değişken tanımlıyoruz. Biri toReceive ve biri i. toReceive değişkenini 0 değeriyle başlatıyoruz.
Tamsayı, i Tamsayı Olarak Almak için Dim
Almak = 0
2. İkinci olarak, For Next döngüsüne başlıyoruz.
i = 1 ila 12 için
3. Şimdi her bir sayıyı kontrol ediyoruz ve yalnızca sayının rengi kırmızıysa sayıyı Almak için ekliyoruz.
Eğer Cells(i, 1).Font.Color = vbRed
toReceive = toReceive + Hücreler(i, 1).Value
Bitir
4. Döngüyü kapatmayı unutmayın.
sonraki ben
5. Son olarak, hala alınacak parayı gösteririz. İki diziyi birleştirmek (birleştirmek) için & operatörünü kullanırız. toReceive bir dize olmasa da burada çalışır.
MsgBox "Hala alınacak" & toReceive & " dolar"
6. Makronuzu bir komut düğmesine yerleştirin ve test edin.
Sonuç:
