Níže se podíváme na program v Excel VBA že součty čísel podle barev.
Situace:
Půjčili jste peníze dvěma dvanácti lidem. Někteří lidé to vrátili (černě) a někteří vám stále dluží peníze (červeně). Chcete vědět, kolik peněz stále dostáváte.
1. Nejprve deklarujeme dvě proměnné typu Integer. Jeden s názvem toReceive a jeden s názvem i. Inicializujeme proměnnou toReceive s hodnotou 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. Za druhé začneme smyčku For Next.
Pro i = 1 až 12
3. Nyní zkontrolujeme každé číslo a pouze pokud je barva čísla červená, přidáme číslo do složky Přijmout.
If Cells (i, 1) .Font.Color = vbRed Then
toReceive = toReceive + Cells (i, 1) .Hodnota
Konec If
4. Nezapomeňte uzavřít smyčku.
Příště já
5. Nakonec zobrazíme peníze, které ještě máme obdržet. Ke zřetězení (spojení) dvou řetězců používáme operátor &. Ačkoli toReceive není řetězec, funguje zde.
MsgBox „Stále přijímat“ & přijímat & „dolary“
6. Umístěte makro do příkazového tlačítka a otestujte ho.
Výsledek: