عبدالله المجرب

في المشاركة رقم 10

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

سبقتني في الرد يا بشمهندس ولكن الاجمل هو توحد ردنا بالترحيب بالعضو الجديد في اسرتنا المتحابة في الله

اولاً حياك الله بيننا ثانياً نرجو منك ان تضع عنوان للطلب يدل عليه (سيتم تعديل العنوان بعد معرفة نوع الطلب) ثالثاً اخي الشرح بهذ الطريقة لا يوضح المطلوب فنرجو ارفاق ملف

العفو ولا شكر على واجب ===== تمت الاجابة

السلام عليكم في ورقة details عدل المعادلات هكذا في الخلية C4 ضع هذه المعادلة =SUMPRODUCT((account!$C$5:$C$34=C$3)*(account!$G$5:$G$34<>"")) وفي الخلية C5 ضع هذه =SUMPRODUCT((account!$C$5:$C$34=C$3)*(account!$H$5:$H$34<>"")) وفي الخلية C6 ضع هذه =SUMPRODUCT((account!$C$5:$C$34=C$3)*(account!$I$5:$I$34<>"")) وفي الخلية C7 ضع هذه =SUMPRODUCT((account!$C$5:$C$34=C$3)*(account!$J$5:$J$34<>""))

من اين ياتي بعدد المعاملات

السلام عليكم اخي ابوعلام سيصبح الكود هكذا Sub Abu_Ahmed() Dim cl As Range Range("B8:D52,B56:D100,B104:D148,B152:D196,B200:D244").ClearContents Set MyRng = Sheets("البيانات").Range("D8:D1000") Application.ScreenUpdating = False For Each cl In MyRng If cl.Value = [B6].Value Then LR = Cells(52, 2).End(xlUp).Row + 1 Cells(LR, 2) = cl.Offset(0, -1) Cells(LR, 3) = cl.Offset(0, 1) Cells(LR, 4) = cl.Offset(0, 2) End If ' ===== If cl.Value = [B54].Value Then LR = Cells(100, 2).End(xlUp).Row + 1 Cells(LR, 2) = cl.Offset(0, -1) Cells(LR, 3) = cl.Offset(0, 1) Cells(LR, 4) = cl.Offset(0, 2) End If ' ===== If cl.Value = [B102].Value Then LR = Cells(148, 2).End(xlUp).Row + 1 Cells(LR, 2) = cl.Offset(0, -1) Cells(LR, 3) = cl.Offset(0, 1) Cells(LR, 4) = cl.Offset(0, 2) End If ' ===== If cl.Value = [B150].Value Then LR = Cells(196, 2).End(xlUp).Row + 1 Cells(LR, 2) = cl.Offset(0, -1) Cells(LR, 3) = cl.Offset(0, 1) Cells(LR, 4) = cl.Offset(0, 2) End If ' ===== If cl.Value = [B198].Value Then LR = Cells(244, 2).End(xlUp).Row + 1 Cells(LR, 2) = cl.Offset(0, -1) Cells(LR, 3) = cl.Offset(0, 1) Cells(LR, 4) = cl.Offset(0, 2) End If '===== Next End Sub

حياك الله عميدنا الفاضل دغيدي

اخي ابو الحسن الموضوع قديم وخيراً فعلت انك لم تفتح موضوع جديد واكتفيت بهذا اخي الافضل ان يتم ربط الادخال بالتاريخ حتى يسهل جمع الارقام التي ادخلت في نفس اليوم

السلام عليكم في ورقة details في الخلية C4 ضع هذه المعادلة =SUMPRODUCT((account!$C$5:$C$34=C$3)*(account!$G$5:$G$34)) وفي الخلية C5 ضع هذه =SUMPRODUCT((account!$C$5:$C$34=C$3)*(account!$H$5:$H$34)) وفي الخلية C6 ضع هذه =SUMPRODUCT((account!$C$5:$C$34=C$3)*(account!$I$5:$I$34)) وفي الخلية C7 ضع هذه =SUMPRODUCT((account!$C$5:$C$34=C$3)*(account!$J$5:$J$34)) ثم ضلل الاربع خلايا واسحب ناحية اليسار حتى اخر تاريخ

السلام عليكم في مملكة البحرين يتكون الرقم الشخصي من 9 ارقام وفي الغالب يعتمد على اخر رقمين لتحديد العمر ومن هذا المنطلق قمت بعمل هذه الدالة المعرفة لحساب العمر وتندرج طريقة الحساب الى الاتي 1. اذا كان اخر رقمين اقل من 12 (اخر رقمين في السنة الحالية) يتم حساب سنة الميلاد بذلك الرقمين على اساس انها بعد 2000 مثال 011234567 يعتبر هذا من مواليد 2001 051234567 يعتبر هذا من مواليد 2005 2. اذا كان اخر رقمين اكبرمن 12 (اخر رقمين في السنة الحالية) يتم حساب سنة الميلاد بذلك الرقمين على اساس انها بعد قبل 2000 مثال 841234567 يعتبر من موليد 1984 331234567 يعتبر من موليد 1933 991234567 يعتبر من موليد 1999 وهكذا تتكون الدالة من متغير واحد هو خانة الرقم الشخصي Function Age(T As Variant) As String If T = "" Or Len(T) <> 9 Then Exit Function Select Case Mid(T, 1, 2) Case Is > Mid(Year(Now()), 3, 2): Abdulla = Int((Date - DateSerial("19" & Mid(T, 1, 2), Month(Now()), Day(Now()))) / 365) Age = Abdulla Case Is <= Mid(Year(Now()), 3, 2): Abdulla1 = Int((Date - DateSerial("20" & Mid(T, 1, 2), Month(Now()), Day(Now()))) / 365) Age = Abdulla1 Case Else: Age = "" End Select End Function شكل الدالة سيكون هكذا =Age(A1) بفرض ان A1 هي خلية الرقم الشخصي ارجو ان تكون الدالة فيها الفائدة لمن يستخدمها

السلام عليكم اشكركم اخواني الكرام على كل هذا التشجيع

شكراً لك استاذ محمد على هذا التشجيع وهذا بعض ما عندكم استاذي الفاضل

السلام عليكم تكرم عينك اخي ابن بنها وهذا شرح حسب الطلب

السلام عليكم ضع مرفق

تم تعديل بيانات المحافظات واستبدال المرفق في المشاركة الاولى

جرب هذه المعادلة =COUNTIFS(F4:F19;"<=30";F4:F19;">0")

السلام عليكم تفضل المرفق New Folder (2).rar

ان شاء الله ساعدل ارقام المحافظات واعيد رفع المرفق الى المشاركة الاولى

راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=31250

اخواني الكرام: عندما قمت بالاعداد لشرح موضوع Select Case توصلت الى عمل دالة جديدة تقوم باستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري قد لا تكون هذه الدالة جديدة عليكم فقد قام عدد من الاساتذة واذكر منهم الاستاذ خبور بعمل دوال احترافية بهذا الخصوص ولكني احببت ان اضعها هنا للاستفادة منها الدالة تحوي على بارو مترين هما 1. A_Rng ويمثل خلية الرقم القومي 2. T ويمثل الخيار الخاص بالعنصر المراد استخراجه =============================== وهنا المتغير T ينقسم الى التالي اي عندما T = 1 يتم استخراج اسم المحافظة T = 2 يتم استخراج تاريخ الميلاد T = 3 يتم استخراج النوع سوء ذكر او انثى ==== ويصبح الشكل النهائي للدالة =A_ID(A_Rng;T) ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة معرفة.rar

اخي ضع مرفق

هل تقصد كيف يتم تطبيقه على ملف عندك او على اي ملف اكسل؟

السلام عليكم ضع هذا الكود في زر أمر في ورقة 1 Sub Abu_Ahmed() Set MySh = Sheets("ورقة2") Select Case [D7].Value: Case Is <> 0 MySh.[e6] = [D7] MySh.[e11] = [D8] MySh.[e16] = [D9] MySh.[e21] = [D10] Case Else GoTo 1 End Select 1 End Sub