האם קיים אופציה לסכום רק את המספרים שצבועים בצבע מסוים בטבלה

אנונימי

יש לי טבלה שיש בה מספרים , חלקם עם קרע כתום חלקם בלי רקע (לבן)

אני רוצה שיהיה לי סכימה דינמית של כל מה שצבוע בכתום והיא תעודכן בהתאם לתאים שאני צובע.

מכיר את זה שיש אופציה לפלטר ואז אבל לא רוצה את הפתרון הזה.

האם יש נוסחה שתסכום באופן דינמי ואוטומטי בהתאם לצביעה שלי

שאלה נעולה. השאלה הזו הועברה מקהילת התמיכה של Microsoft. באפשרותך להצביע אם היא שימושית, אך לא ניתן להוסיף הערות או תשובות או לעקוב אחר השאלה.

0 הערות

התשובה התקבלה על-ידי מחבר השאלה

אנונימי

תגובה זו תורגמה באופן אוטומטי. כתוצאה מכך, ייתכן שיש שגיאות דקדוק או מילים מוזרות.

היי, אמירו

כן, באפשרותך להקיש F9 כדי לרענן את הנוסחה.

עדכנתי את הקוד, הקוד הקודם היה קצת בעייתי:

סאב פרטי Worksheet_Change(ByVal Target As Range)

יישום.חישוב

משנה לקצה

Worksheet_SelectionChange משנה פרטית (ByVal Target As Range)

יישום.חישוב

משנה לקצה

לאחר מכן תוכל להוסיף (אנגלית) בנפרד כפי שמוצג:

מיטב הברכות

Aiden.C - MSFT |מומחה תמיכה קהילתית של Microsoft

0 הערות

15 תשובות נוספות

אנונימי

2024-08-12T11:17:58+00:00
תגובה זו תורגמה באופן אוטומטי. כתוצאה מכך, ייתכן שיש שגיאות דקדוק או מילים מוזרות.

אמירו

כדי להפוך את הפונקציה שלך לדינמית ולהתעדכן באופן אוטומטי, באפשרותך להשתמש במטפלים באירועים כדי להפעיל חישובים מחדש. כך תוכל להשיג זאת:

הוסף מטפל באירועים למודול גליון העבודה:

פתח את עורך VBA (הקש Alt + F11).

מצא את גליון העבודה שלך בסייר הפרוייקטים, לחץ באמצעות לחצן העכבר הימני ובחר "הצג קוד".

בחלון קוד, בחר גיליון ובחר את האירוע שנה.

הוסף את הקוד הבא:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.UsedRange) Is Nothing Then Application.Calculate End If End Sub

מטפל זה באירועים מפעיל חישוב מחדש עבור כל שינוי בגליון העבודה.

מיטב הברכות

Aiden.C - MSFT |מומחה תמיכה קהילתית של Microsoft
הוספתי את זה וזה לא שינה את זה לאוטומטי

השאיר את המצב כמו שהיה
האם התשובה הזו הייתה מועילה?

0 הערות אין הערות
אנונימי

2024-08-12T11:47:17+00:00
תגובה זו תורגמה באופן אוטומטי. כתוצאה מכך, ייתכן שיש שגיאות דקדוק או מילים מוזרות.

היי, אמירו

שנה את קוד גליון העבודה ל:
```
Private Sub Worksheet_Change(ByVal Target As Range) 

End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

End Sub 

Private Sub RecalculateSumByColor() 

End Sub 
```
לאחר מכן הקוד תחת המודול הסטנדרטי אינו זז

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

מיטב הברכות

Aiden.C - MSFT |מומחה תמיכה קהילתית של Microsoft
האם התשובה הזו הייתה מועילה?

0 הערות אין הערות
Micky Avidan *** מיקי אבידן 16,531 נקודות מוניטין MVP מנחה דיון מתנדב

2024-08-12T12:53:03+00:00

אם הבנתי נכון להוסיף את זה בסוף הנוסחה שאני רושם (....)SUMBTCOLORׂ=

אז רשמתי את זה בתוך הסוגריים וגם מחוץ ובשניהם היתה שגיאה

SumByColor(A1, B1:B10)+NOW()*0= ____________________________________________________________________________________________________

אם מצאת שתגובתי יעילה ופתרה את בעייתך – אנא סמן אותה כ'תשובה מועילה' על מנת לעזור לאחרים. מיכאל (מיקי) אבידן מחבר מאמרי ויקי, מנחה דיון בפורומים מרובים ב- TechNet ו-Answers של 'מיקרוסופט' ומנהל פורום 'אופיס' ב'תפוז'. Microsoft® Excel MVP - Most Valuable Professional (2009-2025)
האם התשובה הזו הייתה מועילה?

0 הערות אין הערות
אנונימי

2024-08-13T06:52:52+00:00

אם הבנתי נכון להוסיף את זה בסוף הנוסחה שאני רושם (....)SUMBTCOLORׂ=

אז רשמתי את זה בתוך הסוגריים וגם מחוץ ובשניהם היתה שגיאה

SumByColor(A1, B1:B10)+NOW()*0= ____________________________________________________________________________________________________

אם מצאת שתגובתי יעילה ופתרה את בעייתך – אנא סמן אותה כ'תשובה מועילה' על מנת לעזור לאחרים. מיכאל (מיקי) אבידן מחבר מאמרי ויקי, מנחה דיון בפורומים מרובים ב- TechNet ו-Answers של 'מיקרוסופט' ומנהל פורום 'אופיס' ב'תפוז'. Microsoft® Excel MVP - Most Valuable Professional (2009-2025)

הוספתי וזה לא נותן כלום

אני יודע שאפשר לעשות CTRL+ALT+F9 ואז הוא מעדכן את כל הנוסחאות. אני רוצה שזה יעשה באופן אוטומטי בדיוק כמו ש SUM עושה ומעדכן לבד ללא כל רענון
האם התשובה הזו הייתה מועילה?

0 הערות אין הערות