Žemiau apžvelgsime programą Excel VBA kad sumuoja skaičius pagal spalvą.
Situacija:
Jūs paskolinote pinigų dvylika žmonių. Kai kurie žmonės jį grąžino (juodai), o kai kurie vis dar yra skolingi jums (raudonai). Norite sužinoti, kiek pinigų vis dar gaunate.
1. Pirmiausia deklaruojame du kintamuosius, kurių tipas yra Integer. Vienas pavadintas toRecept ir vienas pavadintas i. Mes inicijuojame kintamąjį toRecept su reikšme 0.
Dim toRecept As Integer, i As Integer
gauti = 0
2. Antra, pradedame „For Next“ ciklą.
Jei i = nuo 1 iki 12
3. Dabar tikriname kiekvieną skaičių ir tik tada, jei skaičiaus spalva yra raudona, pridedame numerį prie toRecept.
Jei ląstelės (i, 1). Šriftas.Spalva = vbRed Tada
toRecept = toRecept + Cells (i, 1). Vertė
Pabaiga Jei
4. Nepamirškite uždaryti kilpos.
Kitas I.
5. Galiausiai parodome dar gautus pinigus. Mes naudojame & operatorių, kad sujungtume (sujungtume) dvi eilutes. Nors „toRecept“ nėra eilutė, ji čia veikia.
„MsgBox“ „Dar reikia gauti“ ir gauti ir „doleriai“
6. Įdėkite makrokomandą į komandų mygtuką ir išbandykite.
Rezultatas:
