/ / Összeg a színnel az Excel VBA-ban

Összegezve a színnel az Excel VBA-ban

Az alábbiakban egy programot nézünk be Excel VBA hogy összeadja a számokat színenként.

Helyzet:

A pénzt kölcsönadott két tizenkét embernek. Néhányan visszaadták (fekete színben), és néhány még mindig neked tartozik (piros). Tudni akarod, mennyi pénzt kap még.

Összegezve a színnel az Excel VBA-ban

1. Először kétféle változót deklarálunk az Integer. Az egyik, amit a "Receive" és az "i. A 0 értékhez inReceive változót inicializáljuk.

Dim toReceive As Integer, i As Integer
toReceive = 0

Másodszor, elindítunk egy For Next hurkot.

For i = 1 To 12

3. Most ellenõrizzük az egyes számokat, és csak akkor, ha a piros színek száma hozzáadjuk a számot a ToReivehez.

If Cells(i, 1).Font.Color = vbRed Then
    toReceive = toReceive + Cells(i, 1).Value
End If

4. Ne felejtse el bezárni a hurkot.

Next i

5. Végül megjelenítjük a még befogadandó pénzt. A & kezelőt két karakterlánc összekapcsolására (csatlakozásra) használjuk. Bár a ToReceive nem egy string, itt működik.

MsgBox "Still to receive " & toReceive & " dollars"

6. Helyezze a makrót egy parancsgombra és tesztelje.

Eredmény:

Összegzi a színeredményt

Szintén olvasható: