עזרה בנוסחאות חישוב

[נעמישחר]

עזרה בנוסחאות חישוב

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

תודה מראש

 

[iyyi]

סכום התאים המסומנים בצהוב הוא 49 ולא 42. מה נכון?

 

[ziv98]

אם אני מבין נכון

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

 

[נעמישחר]

זה בדיוק מה שהתכוונתי, אבל...

החלק הבעייתי שבסוף מדובר על כמה עובדים ולא רק אחד
צרפתי קובץ נוסף עם מספר עובדים
איך יחושב לכל עובד בנפרד?

 

[ziv98]

חבל....

שפרט כ"כ חשוב לא הופיע בהודעה המקורית...
מצ"ב קובץ עם udf הבא:

Function find_date(ddate As Range, sum_range As Range, sum_range_over As Range, over_type_choose As Integer, target_no As Integer, base_date As Date)

tmp_sum = 0
tmp_date = 1

Dim dateArray, sumArray   As Variant
dateArray = ddate.Value
If over_type_choose = 1 Then
    sumArray = sum_range.Value
Else
    sumArray = sum_range_over.Value
End If

For i = 1 To UBound(dateArray)
If dateArray(i, 1) >= base_date Then
    tmp_sum = tmp_sum + sumArray(i, 1)
    End If
If tmp_sum > target_no Then
   tmp_date = dateArray(i, 1)
   Exit For
End If
Next

find_date = tmp_date

End Function

פונקציה מותאמת אישית (מקלידים בעורך VB = ALT+F11), מקבלת את הפרמטרים:
1. טווח התאריכים
2. טווח מספרים שעות רגילות
3. טווח שעות נוספות
4. באיזו עמודה לבחור: 1 = שעות רגילות, 2 = שעות נוספות
5. מספר היעד
6. תאריך התחלה

מחייב לאשר הרצת מאקרו.

 

[נעמישחר]

מעולה! +עוד משהו קטן

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

 

[ziv98]

סיכום בפועל

ברגע שיש את תאריך הסיום - מדובר ב - sumifs