سليم حاصبيا

ألف مبروك الترقية ونتمنى لك مزيد من النجاح والتوفيق.

اذا كنت قذ فهمت قصدك فهذه المعادلة تلبي الطلب اكتبها في الخلية F1 واسحب نزولاً =IF(OR(B1<>"",D1<>""),B1+D1-50,"")

انسخ هذه المعادلة في الخلية F4 =SUMIFS($C$2:$C$17,$A$2:$A$17,">="&$F$2,$A$2:$A$17,"<="&$F$3,$B$2:$B$17,$F$4)/SUMPRODUCT(--($A$2:$A$17>=$F$2),--($A$2:$A$17<=$F$3),--($B$2:$B$17=$F$4)) بواسطة الماكرو انظر الى هذا الملف حساب المتوسط الحسابي بناء على شروط Salim.zip

جرب الملف التالي تستطيع ان تحسب المتوسط بواسطة الماكرو (يحسب لك كل العامود ) او بواسطة المعادلة (نختار ما يناسبك من العامود) الخلايا غير الرقمية لا تحتسب في الحالتين يمكنك تعديل الماكرو كي يعمل مع العامود B اما المعادلة فلا حاجة لذلك فقط حدد ما تريد My_Average.zip

دالة معرفة اخرى (يمكن استعمالها كود ( مع بعض التعديلات Function Ext_Num(myval As Range) t = Application.Trim(myval) x = Split(t, " ") Mytext = "" For i = 0 To UBound(x) If IsNumeric(x(i)) Then Mytext = x(i) & Mytext End If Next If Mytext = "" Then Ext_Num = "No Numbers" Else Ext_Num = Mytext / 100 End If End Function

اخي ياسر اظن ان الخطأ هو في طريقة تعامل الاكسل مع اللغات (العربية الاجنبية) لكن وجدت لك معادلة تفي بالغرض و تعطينا نتائج رقمية =TEXT(RIGHT(SUBSTITUTE(A1,"المبلغ النهائي",""),9)&"."&TRIM(LEFT(SUBSTITUTE(A1,"المبلغ النهائي",""),6))*1,"#.#0")*1

اثراء للموضوع جرب هذا الكود Sub extract_number() Dim mytext As String Dim lr, x As Integer Dim y As String Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(3).Row For i = 1 To lr x = Len(Range("a" & i)) For t = 1 To x y = Mid(Range("a" & i), t, 1) Select Case y Case 0 To 9 mytext = mytext & y End Select Next Cells(i, 3) = mytext mytext = "" Next Application.ScreenUpdating = True End Sub تستطيع ايضاً استعما هذه المعادلة =RIGHT(TRIM(A1),FIND(CHAR(237),SUBSTITUTE(SUBSTITUTE(TRIM(A1)," ",""),"0","")))

تم معالجة الامر Book2 salim.zip

تم معالجة الامر Book1 salim.zip

اخي وليد لقد جهزت لك الملف للرفع الورقة محمية لذا لم استطع اضافة زر للماكرو اليك الكزد لهذاالغرض يمكنك نسخه في موديل جديد و تعيين زر له او تشغيل الماكرومن الملف المرفق Sub split_in_tow_columns1() Dim ws1, ws2 As Worksheet Dim Myrange As Range Dim lr, My_nb_rows As Integer Dim c, k As Integer k = 5 c = 3 Set ws1 = Sheets("ATTENDANCE"): Set ws2 = Sheets("Number trades in the project") lr = ws1.Cells(Rows.Count, "f").End(3).Row Set Myrange = ws1.Range("f9:f" & lr) ws2.Range("c5:c26").ClearContents ws2.Range("f5:f26").ClearContents For i = 9 To lr t = Application.CountIf(ws1.Range("f5:f" & i), Range("f" & i)) If t = 1 Then Cells(i, 6).Copy ws2.Cells(k, c) k = k + 1 If k > 26 Then k = 5: c = 6 End If Next End Sub برنامج حظور وانصراف salim.zip

جرب هذا الشيء Unique List.zip

معاك الحق اخي ياسر

حاضر اخي ياسر sans repetition salim.zip

مش هنا الاعجاب بل في مشاركة المعادلة

هو الدوس على زر اعجاب حاجة صعبة أوي

اكتب هذه المعادلة في الخلية AF5 واسحب نزولاً (اذا لم تعكل معك استبدل الفاصلة ب فاصلة منقوطة في المعادلة) =IF(Z5<>0,MAX($Af$4:Af4)+1,"")

جرب هذا الشيء في المشاركة التالية (حيث لم يتم التحميل جيداً

تفضل الحل مع بعض التنسيقات القائمة المنسدلة مطاطة (تستجيب لأي تعديل أو زيادة في الاسماء و لا تطهر الاسم المكرر الا مرة واحدة) تستطيع زيادة البيانات مع اسماء محتلفة report.zip

الكود يعمل بطريقة ممتازة انتبه الا تضع اي مسافة فارغة قبل الاسم انظر المرفق talween 1.zip

جرب هذا الملف talween.zip

جرب هذا الملف بعد ان تصل الى الحرف z يضيف لك اكسل نجمة و يعيد الحساب من جديدد ثم نجمتين ثم ثلاثة اي ان الرقم 10 هو A والرقم 36 هو *A وهكذا Book1- SALIM.zip

اخي ياسر اثراء للموضوغ اليك هذا الكود تستطيع ان تحدد اكثر من صف و اكثر من عامود للنكرار Sub repet() Dim myrg As Range Dim t As Integer Set myrg = Application.InputBox("Enter your data", Type:=8) t = Application.InputBox("Enter your number", Type:=1) myrg.Copy ActiveCell.Resize(t * myrg.Rows.Count, myrg.Columns.Count) End Sub

جرب هذا الشيء notes.zip

اخي لكريم اكتب هذا المعادلة واسحبها نزولاً على قدر ما تريد من اي عامود ,وفي اي مكان من الصغحة و عندما تغيّر قيمة اي من الخليتين تنفذ المعادلة مباشرة =IF(AND(ROWS($A$1:A1)<=$B$1,$A$1<>"",$B$1<>""),$A$1,"")

بارك الله فيك احي ياسر كنت محضر نفس الكود ولكن ظهرت مشكلة ماذا لو كان عدد الدقائق اصغر من عشرة ولا اريد كتابة 170325 بل (17325) او 7:18:25 مثلاً