ياسر خليل أبو البراء

وهذا حل ثالث بدالة معرفة أيضاً Function MySplitFunction(myStr As String, ref As Long) '=IFERROR(MySplitFunction($A1,COLUMN(A1)),"") MySplitFunction = Split(Application.Trim(myStr), ",")(ref - 1) End Function ويا ريت بالحلول المقدمة يكون الموضوع انتهى ومكونش قصرت معاااااااااااااك وبكدا يكون الأخ صلاح قدم لك حل بالمعادلات ، والعبد لله قدم لك حل بالكود ، وحلين بالدوال المعرفة ..(نقي واختار .. وسلم لي على مختار) Split Data UDF Function YasserKhalil V2.rar

وهذا حل آخر بدالة معرفة Function GetElement(Text As Variant, N As Integer, Delimiter As String) As String 'تقوم الدالة المعرفة بفصل البيانات بناءً على فاصلة تحددها 'يمثل البارامتر الأول النص أو البيان المراد فصل بياناته 'يمثل البارامتر الثاني رقم البيان المراد فصله أي موقع البيان المراد فصله 'يمثل البارامتر الثالث نوع الفاصل بين الكلمات أو البيانات '=GetElement($B5,COLUMN(A1),",") '-------------------------------------------------------------------------------- Dim Txt, Str As String Dim Count, I As Integer Txt = Text If Delimiter = Chr(32) Then Txt = Application.Trim(Txt) If Right(Txt, 1) <> Delimiter Then Txt = Txt & Delimiter End If Count = 0 Str = "" For I = 1 To Len(Txt) If Mid(Txt, I, 1) = Delimiter Then Count = Count + 1 If Count = N Then GetElement = Str Exit Function Else Str = "" End If Else Str = Str & Mid(Txt, I, 1) End If Next I GetElement = "" End Function عشان متقولش إني حارمك من حاجة يا أبو سليمان Split Data UDF Function YasserKhalil.rar

عموماً يا مستر صلاح مش هسيبك تطلع الطلعة دي لوحدك بناءً على ملفك وليس ملف الأخ أبو سليمان ..إليك الكود التالي .. Sub SplitData() Dim I As Long, J As Long, SP Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For I = 5 To Cells(Rows.Count, 2).End(xlUp).Row SP = Split(Cells(I, "B"), ",") For J = LBound(SP) To UBound(SP) Cells(I, J + 3) = SP(J) Next J Next I Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub تقبلوا تحياتي وأستودعكم الله Split Data YasserKhalil.rar

مشكور يا اخي الحبيب صلاح بس أستحلفك بالله الملف المرفق في المشاركة الأولى فيه العمود اللي إنت اشتغلت عليه ده ..........!! :Rules:

وهو فين العمود الأصلي المجمع بقا ... هو دا اللي بدور عليه

وجزيت خيراً بمثل ما دعوت أختي الفاضلة وإن شاء الله بعد التخرج تفيدي إخوانك بالمنتدى

إنت سببت لي جنااااااااااان .. الملفين .. البيانات في الملفين كل بيان في عمود مستقل مش زي ما إنت بتقول ... يا ريت أحد الأخوة يتدخل ويأكد رأيي أو يفهمني لو كنت فاهم غلط أو مش شايف !!!!! :wallbash: وصلنا لـ 20 مشاركة في الموضوع (ومفيش تقدم ولا خطوة) الحمد لله الذي بنعمته تتم الصالحات

طيب آخر طلب هطلبه منك ..ممكن تعطيني شكل المخرجات (نماذج للمطلوب) .. المرفقات في المشاركة الأولى عبارة عن أعمدة مستقلة وهو دا المطلوب .. اللي إنت بتسعى إليه على حسب فهمي

جرب المعادلة بهذا الشكل =IF(OR(A20=112,A20=113,A20=114),SUM($B$2:$B$17)-SUM($C$2:$C$17),"") تقبل تحياتي

الكود يؤدي ما تقول أخي الحبيب خليل إذا لم يكن الكود يؤدي المطلوب يرجى إرفاق النتائج المتوقعة

طيب ارفق الملف الأصلي ونحاول نعمل كود ..

الأخ الفاضل أمين عمرو يرجى تغيير اسم الظهور للغة العربية إليك الملف التالي غيابات.rar

الأخت الكريمة دلال إليكي الملف التالي dalal_m.rar

اللي موجود السمك الصغير الموجود هنا يقدم المساعدة كل على قدر استطاعته تقبل تحياتي

بسم الله ما شاء الله مبدع كعادتك يا أخي الحبيب محمد الريفي بارك الله فيك وجزيت خير الجزاء

بدون دالة Sumif جرب المعادلة التالية =IF(A12=112,SUM(B2:B10)-SUM(C2:C10),"")

الملف يعمل معي بدون مشاكل وجربته مرة أخرى ويعمل بدون مشاكل وقمت بالحفظ ولم تظهر المشكلة

الأخت الفاضلة نوران يرجى تغيير اسم الظهور للغة العربية يرجى الإطلاع على رابط التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 والأفضل أن تقومي بطرح موضوع جديد توضحي فيه مشكلتك مع إرفاق ملفك بعد ضغطه

إليك الملف التالي =OFFSET(INDEX(الاصناف,MATCH("*"&$B20&"*",الاصناف,0),1),0,0,COUNTIF(الاصناف,"*"&$B20&"*"),1) لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب New Microsoft Excel Worksheet.rar

فقط صحح المعادلة ..غير رقم 21 إلى 20 =OFFSET(INDEX(الاصناف,MATCH($B20&"*",الاصناف,0),1),0,0,COUNTIF(الاصناف,$B20&"*"),1) New Microsoft Excel Worksheet.rar

جزاكم الله خير الجزاء أخي الحبيب علي الشيخ روعة بارك الله فيك

أخي الكريم محمود أهلا بك في المنتدى يرجى تغيير اسم الظهور للغة العربية يرجى الاطلاع على رابط التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 شوف الفيديو التالي عله يفيدك في حل المشكلة

أخي الفاضل يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي

ارفقي الملف الأصلي وليس الملف التنفيذي للعمل عليه ضعي هذا الكود في حدث المصنف Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub ليتختفي تطبيق الإكسيل ويظهر الفورم

أخي الفاضل أبو بهاء أنا معك إن شاء الله طالما أن الوقت قد أوشك بس تابع باستمرار معي .. حملت الملف ..طبعا مفيش بيانات .. انسخ ورقة العمل التي بها بيانات الدرجات المرصودة للملف ثم أرفقه مرة أخرى لمحاولة المساعدة