תוכן העניינים
להלן נבחן תוכנית ב Excel VBA זֶה מסכם מספרים לפי צבע.
מַצָב:
שאלת כסף לשני שנים עשר אנשים. יש אנשים שהחזירו לו (בשחור) וחלקם עדיין חייבים לך כסף (אדום). אתה רוצה לדעת כמה כסף אתה עדיין מקבל.
1. ראשית, אנו מכריזים על שני משתנים מסוג מספר שלם. אחד בשם toReceive ואחד בשם i. אנו מאתחלים את המשתנה toReceive עם ערך 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. שנית, אנו מתחילים לולאה For Next.
עבור i = 1 עד 12
3. כעת אנו בודקים כל מספר ורק אם צבע המספר אדום נוסיף את המספר ל- toReceive.
אם תאים (i, 1). Font.Color = vbRed ואז
toReceive = toReceive + תאים (i, 1). ערך
סוף אם
4. אל תשכח לסגור את הלולאה.
הבא i
5. לבסוף, אנו מציגים את הכסף שטרם קיבל. אנו משתמשים באופרטור & כדי לחבר (לחבר) שתי מחרוזות. למרות ש- toReceive אינה מחרוזת היא פועלת כאן.
MsgBox "עדיין לקבל" & לקבל & "דולרים"
6. הצב את המאקרו שלך בלחצן פקודה ובדוק אותו.
תוֹצָאָה:
