عبدالله باقشير

السلام عليكم استخدم الكود التالي Sub kh_MinClear() Dim R As Integer, M As Integer For R = 2 To 200 If WorksheetFunction.Sum(Cells(R, "A").Resize(1, 6)) Then M = WorksheetFunction.Min(Cells(R, "A").Resize(1, 6)) M = WorksheetFunction.Match(M, Cells(R, "A").Resize(1, 6), 0) Cells(R, M).ClearContents End If Next End Sub

شاهد المرفق في المشاركة 2

السلام عليكم ضع المعادلة التالية في الخلية P5 واسحبها على باقي صفوف العمودP =IF(G5<>"";G5&$G$3;"")&IF(I5<>"";"+"&I5&$I$3;"")&IF(K5<>"";"+"&K5&$K$3;"") في امان الله المصنف1.rar

السلام عليكم اخي خالد القدس ------حفظكم الله سرني مروركم العطر جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري

السلام عليكم شاهد المرفق 2010 برنامج تحديد تاريخ انتهاء المشاريع 2 2013.rar

السلام عليكم اخي الفاضل جلال محمد-------------حفظكم الله جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

السلام عليكم اخي الحبيب عباد (ابوانصار)-------------حفظكم الله فعلا انت طالب علم مجتهد ومثابر جزاك الله خيرا وبارك فيك واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري

السلام عليكم الاخ سعيد بيرم -------حفظكم الله الاخ حمادة -------حفظكم الله جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم اخي العزيز ابو حنين ---------حفظكم الله جزاكم الله خيرا وبارك فيكم اسعدني مروركم العطر تقبلوا تحياتي وشكري

السلام عليكم احبائي في الله alyfahem حمادة عمر محمدي ابومحمد اشرف ناصر سعيد رجب جاويش اسعدني مروركم الطيب جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري

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

السلام عليكم ترتيب المراكز العشر الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود '================================================== ' من نطاق البيانات '================================================== '''''''' اسم النطاق او عنوانه مع اسم الورقة Private Const MyRng As String = "RangDate" '''''''' ارقام الاعمدة من نطاق البيانات '''''''' :حسب الترتيب التالي '''''''' رقم الجلوس,الاسم,تاريخ الميلاد,الفصل '''''''' SeatNum,Name,Bridate,MyClass Private Const MyColumn As String = "1,2,4,3" '================================================== ' من ورقة الاوائل '================================================== '''''''' اول خلية لوضع لست الاوائل Private Const MyRngPast As String = "C7" '''''''' (نطاق الاعدادات (اسماء الفصول والمواد Private Const kh_Stg As String = "MySeting" '''''''' تنسيق التاريخ Private Const DateFormat As String = "yyyy/mm/dd" '================================================== '================================================== وايضا في النطاق المسمى MySeting في ورقة الاوائل اعمل تنسيقاتك في الصف الاول من جدول الاوائل وهي تنسخ اتوماتيكيا الى باقي الصفوف مع العلم ان التسلسل ايضا تلقائي المرفق اكسل 2003-2010 ترتيب المراكز العشر الاوائل حسب المجموع والعمر.rar ======================================= هذا المرفق مع بعض التحسينات وجلب المادة المختارة والفصل المختار في الخلايا الاعلى للجدول ترتيب المراكز العشر الاوائل حسب المجموع والعمر.rar ================================================ السلام عليكم جعلت مخرجات الكود يالنسبة للمادة والفصل في الخلايا K2:K3 يعني خارجة عن نطاق الطباعة علشان الواحد يعمل عناوين الجدول حسب مايريد انا عملت معادلة حسب طلبك ممكن تحولها في اي موضع تريده المرفق 2003 ترتيب المراكز العشر الاوائل حسب المجموع والعمر1.rar ============================================== تفضل المرفق 2003 ترتيب العشرة الاوائل حسب المجموع والعمر2.rar

السلام عليكم راجع المرفق التالي هل هو المطلوب المرفق 2003-2010 ترتيب المراكز العشر الاوائل حسب المجموع والعمر.rar

السلام عليكم اخي الفاضل عباس ----حفظكم جزاك الله خيرا وبارك فيك واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري

السلام عليكم اخي الفاضل ناصر سعيد --حفظكم الله لقد راسلني اخي محمدي بشان هذا الطلب سنقوم بما يتناسب مع الطلب فقد بدأت المحاولة في التعديل ولكنه يحتاج تركيز واعادة دراسة الكود السابق علشان نعرف اين سيتم التعديل بالضبط او نعيد صياغة الكود من جديد تقبلوا تحياتي وشكري

السلام عليكم اخي الفاضل/ سعيد بيرم -------- حفظكم الله اسعدني مروركم الطيب جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم اخي نور جزاك ربي خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة اخي حمادة اسعدني مرورك جزاك الله خيرا اخي محمد الشاشتين بتاعك لا تتناسق في الزيادة جرب الحل التالي تعمل الفورم بمقاس 800*1150 بحيث انه يظهر في كل الشاشتين بكامل حجمه وتصمم ما بداخله بما يتناسب مع هذا المقاس في البداية :استخدم الكود خاصتي وشف النتيجة اذا ناسبتك كان بها والا استخدم الكود : Me.Height = Application.Height Me.Width = Application.Width الذي سيغطي المساحات المتبقية من الشاشة في امان الله

السلام عليكم الحمدلله رب العالمين اخي: جزاك الله خيرا واثابك بدعائك واعطاك بمثله اضعاف مضاعفة تقبل تحياتي وشكري

الاخ الفاضل/ مرسي__________حفظه الله الاخ الفاضل/ دغيدي__________حفظه الله الاخ الفاضل/ ابراهيم__________حفظه الله الاخ الفاضل/ halimnacer__________حفظه الله الاخ الفاضل/ رجب جاويش__________حفظه الله جزاكم الله خيراً تقبلوا تحياتي وشكري عبدالله باقشير

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

السلام عليكم اولا: استخدمنا الليست بوكس لسهولة الاضافة والحذف والتعديل ثانيا: تم تصحيح المعادلة للاسم المعرف asd لتعطينا النطاق بدون فراغات =OFFSET(Sheet1!$B$3;;;COUNTA(OFFSET(Sheet1!$B$3;;;10000;1));1) شاهد المرفق 2003 استدعاء بيانات بشكل افقي و التعديل عليها 2.rar

السلام عليكم جرب هذا الكود انا استخدمه في اعمالي يعمل على تناسب الزوم مع الطول او العرض ايهم الانسب Private Sub UserForm_Initialize() Dim Zo% Dim ZH#, ZW#, AL#, AT#, AH#, AW# Dim FH!, FW! '=========================================== AH = Application.Height: AW = Application.Width AL = Application.Left: AT = Application.Top FH = Me.Height: FW = Me.Width ZH = AH - FH: ZW = AW - FW: Zo = Me.Zoom If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW) '=========================================== With Me .Move AL, AT, AW, AH If Zo <> 100 Then .Zoom = Zo End With '=========================================== End Sub في امان الله

السلام عليكم اخي الحبيب ابوحنين جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

السلام عليكم استدراك ايضا يجب اختبار جميع الزرارات الموجوده في البرنامج لما تكون قواعد البيانات فارغة من البيانات يعني بداية استخدام البرنامج لتجنب ظهور رسائل خطا في امان الله

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