סכום לפי צבע ב - VBA של

להלן נבחן תוכנית ב Excel VBA כי סכומים מספרים לפי צבע - -.

מצב:

יש לך הלוואה לשני אנשים. כמה אנשים נתנו אותו בחזרה (בשחור) וחלק עדיין חייב לך כסף (אדום). אתה רוצה לדעת כמה כסף אתה עדיין מקבל.

1. ראשית, אנו מכריזים על שני משתנים של מספר שלם. אחד בשם Rceive ואחד בשם i. אנחנו לאתחל את המשתנה toReceive עם ערך 0.

Dim toReceive As Integer, i As Integer
toReceive = 0

2. שנית, אנחנו מתחילים לולאה הבאה.

For i = 1 To 12

3. עכשיו אנחנו בודקים כל מספר ורק אם הצבע של המספר הוא אדום אנו מוסיפים את המספר כדי להחזירו.

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

4. אל תשכח לסגור את הלולאה.

Next i

5. לבסוף, אנו מציגים את הכסף עדיין לקבל. אנו משתמשים במפעיל & כדי לשרשר (להצטרף) שתי מחרוזות. למרות toReceive הוא לא מחרוזת זה עובד כאן.

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

6. מקם את המקרו בלחצן פקודה ובדוק אותו.

תוצאה: