المعادلة المناسبة لهذا الامر
=SUMIFS($B$3:$B$6,$A$3:$A$6,">"&$D$9,$A$3:$A$6,"<"&$E$9)
اذا لم تعمل معك استبدل الفاصلة "," بفاصلة منقوطة ";"
لا تنس ان المعطيات عندك في الخلايا D9 & E9
بارك الله فيك اخي مختار
لكن انت ظلمت الاكسل (حيث انه يمكنه فعل ذلك من خلال هذه المعادلة)
=SUMPRODUCT((LEN($B$4:$I$10)-LEN(SUBSTITUTE($B$4:$I$10,$M$4,"")))/LEN($M$4))
أو هذه( لا تحسب تكرار الاسم في نفس الخلية الا مرة واحدة)
=COUNTIF($B$4:$I$10,"*"&$M$4&"*")
استبدل المعادلة بهذه:
="مدة هذا العقد سنتان ميلاديتان تبــدأ مــــن تــاريــخ"&" "&TEXT(VLOOKUP($O$5,dat!A:R,18,1),"dd/mm/yy")
اذا لم تعمل
يجب اشتبدال الفاصلة "," بفاصلة منقوطة ";" في كامل المعادلة
جرب هذا الماكرو
Sub InsertPageBreaks()
Dim Lastrow As Long
Dim Ws As Worksheet
Dim xRow As Integer
xRow = 50
Set Ws = ActiveSheet
Ws.ResetAllPageBreaks
Lastrow = Ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To Lastrow Step xRow
Ws.HPageBreaks.Add Before:=Ws.Cells(i, 1)
Next
End Sub
بعد اذن اخي ياسر
ربما يكون المطلوب في هذا الملف (مرفق للتجربة)
الكود :
Function No_Repet(inputString As String, Optional delemiter As String = " ") As String
Dim inArray() As String
Dim xVal As Variant
inArray = Split(inputString, delemiter)
For Each xVal In inArray
If InStr(No_Repet, Trim(xVal)) = 0 Then _
No_Repet = No_Repet & Trim(xVal) & " "
Next xVal
End Function
No_Rrepete.rar
زيادة اكثر في اثراء الموضوع هذا UDF لاستخراج اسم العامود من رقمه
Function get_col(n As Integer)
If n > 16364 Or n < 1 Then get_col = "N/A": Exit Function
get_col = Replace(Cells(1, n).Address(0, 0), 1, "")
End Function
اكتب هذه المعادلة في الخلية B6 واسحب نزولاً
=IFERROR(INDEX(Analysis!$A$4:$AD$36,MATCH('Daily sales '!$A6,Analysis!$A$4:$A$36,0),'Daily sales '!$A$1+1),"Not Found")