خالد_محمد

السلام عليكم استاذ عماد بعد استخدامي للبرنامج واجهتني بعض الملاحظات لم اذكرها من قبل . اذا كان الطالب امام تاريخ غيابه رقم ( ا ) يعتبر غياب بعذر هل بالامكان ان يكون فيه خيارات في الترحيل عن طريق قائمة منسدلة بحيث اختار طريقة الترحيل المناسبة كتالي :- 1- غياب بعذر 2- غياب بدون عذر 3-غياب بعذر أوبدون عذر ( الكود الحالي يعمل عى نفس الشرط الموجود بالمرفقات) او اي طريقة تراها مناسبة لترحيل في الخيارات السابقة يوجد مرفق لتوضيح وشكراً لك ترحيل تاريخ محدد.rar

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

وعليكم السلام شكراً لك اخي عماد خالد هذا هو المطلوب بس فيه ملاحظة بسيطة اذا تكرر نفس التاريخ امام الطالب بالخطاء هل يوجد رسالة لتنبيه عند الترحيل ان الطالب هذا اسمه مكررفي الصفحة المرحل اليها وكذلك هل يمكن ترحيل رقم الجوال مع الاسم ارجوا التعديل على المرفق تحياتي لك kkhh12.rar

المرفق kkhh.rar

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

السلام عليكم تم التحميل..... البرنامج اكثر من رائع والى الامام تحياتي

السلام عليكم أخي mas123 الرابط لا يعمل وقد حاولت عن طرق جهازين كمبيوتر ونفس المشكلة الرابط لا يستجيب نهائياً لا يفتح صفحه أخي mas123 اذا امكن وضع الرابط من جديد أو ارفق الملف مباشرة بالمنتدى وشكراً لك

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

السلام عليكم الاخ ابو أسامة شكراً لك على الكود الرائع بس فيه مشكلة بسيطه وهيا عند حذف الصفوف يعطي خطأ بالكود وكذلك عند مسح مجموعة خلايا بنفس العامود المعني يعطي خطأ. الكود عدلت عليه تعديل بسيطه ليتناسب مع طلبي Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("G4:G150")) Is Nothing Then Exit Sub Select Case Len(Target) Case Is > 10 Target.Interior.ColorIndex = 44 Target.Offset(0, 1) = Len(Target) Case 1 To 9 Target.Interior.ColorIndex = 44 Target.Offset(0, 1) = Len(Target) Case 10 Target.Interior.ColorIndex = xlNone Target.Offset(0, 1) = Len(Target) Case 0 Target.Interior.ColorIndex = xlNone Target.Offset(0, 1) = "" End Select End Sub تحياتي لك

السلام عليكم اخي aah_aah2008 شكرا لاهتمامك بالموضوع المطلوب اخي بالضبط اذا كانت الخلية فيها 10 ارقام او صفر او خليه فارغة ان تكون الخليه بدون لون واذا كانت الخليه اكبر او اصغر من 10 ارقام داخل الخلية ان يكون لون الخليه احمر المد المطلوب التطبيق عليه في العامود G من 8 إلى 150 ملاحظات الكود السابق 1- اهتزاز ملحوظ بالورقة 2- الكود مربوط بصفحة رقم2 وهذا مشكله عندي بسبب كثرة الاوراق داخل البرنامج الذي اعمل عليه وانا اريد التقليل من الاوراق داخل البرنامج الذي اعمل عليه لكي يقل حجمه وعدد اوراقه . 3- هل بالامكان أن يكون الكود مربوط بالعامود G فقط والغاء العامود H والغاءربطه بالورقة2 اذا امكن ملاحظة اكملت الموضوع مع اخي ابو اسامه بما انها تتعلق بالتنسيق الشرطي وانا يهمني الوصول الى النتيجة المطلوب عن طريق التنسيق الشرطي او الكود واي ملحظات ان مستعد واكرر شكري وتقديري لك واهتمامك بالموضوع

السلام عليكم الاخ ابو اسامة العينبوسي عندما رئيت التنسيق الشرطي تبادر بذهني مباشرة انك لم تفهم ماطلبته بالضبط لاني حاط في بالي التنسيق الشرطي لن يفي بالمطلوب وبنفس الوقت لم انتبه الداله LEN التي تحسب مابداخل الخليه فأسف على سرعة الرد السابق قبل التحقق من الحل . المطلوب اذا كانت الخلية فيها 10 ارقام او صفر او خليه فارغة ان تكون الخليه بدون لون وممكن ان تتجاهل الصفر اذا كان ليس له مكان بالتنسيق الشرطي واذا كانت الخليه اكبر او اصغر من 10 ارقام داخل الخلية ان يكون لون الخليه احمر . شكراً لك اخي ابو اسامه ولسعة صدرك

السلام عليكم الاخ ابو اسامة العينبوسي الاخ israabbasi شكراً لكم ولكن ليس هذا المطلوب ذكرت بالمرفق السابق عدد الارقام داخل الخلية وليس قيمة الارقام داخل الخلية اخواني الكرام عندما اضع مثلاً 7 أرقام داخل خليه بغض النضر كم تساوي هذه الارقام السبعة وانما المقصود كم رقم موجود داخل الخلية شاهد الصوره تحياتي وتقديري لكم اخواني الكرام

السلام عليكم الفزعه يالغالين يوجد شرح داخل المرفقات تحياتي الى مشرفي واعضاء منتدانا الغالي Book1.rar

للرفع

السلام عليكم شرح بالصوت والصورة لبرنامج اكسيل 2003 و 2007 لتعلم برنامج الاكسل 2003 إضغط هنا و إضغط هنا وكذلك لتعلم برنامج الاكسل 2007 ثلاثة مستويات إضغط هنا وكذلك هنا و هنا تحياتي وتقديري

السلام عليكم ممكن التعديل على الكود الموجود بالمرفقات بحيث تكون الإجابة اللجزء الأول من طلبي السابق __________.rar

السلام عليكم اريد عن طريق الكود مجرد ان احدد خلية معينه واضغط على زر امر يعطيني مباشرة خيار فتح . لتحديد مسار الصورة المراد ادراجها بالتعليق مع مراعاة تناسب حجم الصورة مع حجم التعليق . وشكراً لكم

السلام عليكم اخى ابو يعقوب الله يسعدك في الدارين ويزيدك علماً الكود يعمل بكفائة وهذا المطلوب بل اكثر شكراً لك . مع تحياتي وتقديري

السلام عليكم أخي احمد نسامحك على ايش ؟ الخطأ وارد في كُل شي بس انت اتحملنا شوي على كثرة الأسئلة . الكود يعمل بنجاح ولكن فيه ملاحظة بسيطة وهي عند اختيار طالب او اكثر فأنه يعرض جميع ارقام الطلاب بالخلية [AP1] هل بالإمكان ان يعرض الأرقام المطلوب طباعتها فقط بالخلية [AP1] ويتجاوز باقي الارقام لتي لم نحددها لطباعة مثل طريقة عمل الكود الذي كان مع البرنامج أخي احمد جزأك الله ألف خير ونفع بعلمك الجميع وجعله الله في موازين حسناتك

السلام عليكم اخي احمد يعقوب شكراًً للمساعدة واسف على التاخير الجهاز هنق معاي اخي بعد التجربة لم ينجح الكود . اذا اخترت طلاب غير مرتبين مثلاً اخترت الطالب رقم 6 و 12 و 14 مثلا يطبعلي الطالب رقم 1 و الطالب رقم 2 والطالب رقم 3 وهاكذا وشكراً لك

السلام عليكم هل يوجد اختصار لهاذا الكود الذي بالاسفل ليسهل التعامل معه عند ما يكون عدد الطلاب كبير جداً مثلاً لو وصل عدد الطلاب 300 طالب Sub طباعة_السجلات_التدريبي_المحددة() 'تابع لسجل التدريبي If Range("DD73") = 0 Then MsgBox "أختر الطالب أو مجموعة الطلاب الذين تريد طباعة سجلات التدريب لهم وأضغط على الزر مرة أخرى " Exit Sub End If If Range("DG80") = True Then Range("AP1").Value = 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG81") = True Then Range("AP1").Value = 2 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG82") = True Then Range("AP1").Value = 3 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG83") = True Then Range("AP1").Value = 4 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG84") = True Then Range("AP1").Value = 5 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG85") = True Then Range("AP1").Value = 6 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG86") = True Then Range("AP1").Value = 7 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG87") = True Then Range("AP1").Value = 8 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG88") = True Then Range("AP1").Value = 9 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG89") = True Then Range("AP1").Value = 10 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG90") = True Then Range("AP1").Value = 11 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG91") = True Then Range("AP1").Value = 12 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG92") = True Then Range("AP1").Value = 13 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG93") = True Then Range("AP1").Value = 14 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG94") = True Then Range("AP1").Value = 15 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG95") = True Then Range("AP1").Value = 16 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG96") = True Then Range("AP1").Value = 17 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG97") = True Then Range("AP1").Value = 18 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG98") = True Then Range("AP1").Value = 19 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG99") = True Then Range("AP1").Value = 20 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG100") = True Then Range("AP1").Value = 21 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG101") = True Then Range("AP1").Value = 22 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG102") = True Then Range("AP1").Value = 23 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG103") = True Then Range("AP1").Value = 24 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG104") = True Then Range("AP1").Value = 25 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG105") = True Then Range("AP1").Value = 26 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG106") = True Then Range("AP1").Value = 27 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG107") = True Then Range("AP1").Value = 28 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG108") = True Then Range("AP1").Value = 29 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Range("DG109") = True Then Range("AP1").Value = 30 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Range("A1").Select End Sub وشكراً جزيلاً مقدماً KH_MH.rar

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

السلام عليكم اريد عن طريق الكود بدون زر امر ترقيم تلقائي للعامود B بشرط تجاهل الصفوف المخفية من 20 الى 39 تسلسلي ملاحظة احياناً يكون صف واحد او ثلاثة صفوف او اكثر مخفيه وغير متجاورة وشكراً لكم KH_MH.rar

السلام عليكم الأخ الفاضل aah_aah2008 جزاك الله الف خيييييييير وجعله الله في موازين حسناتك امين يارب العالمين تحياتي وتقديري لك

السلام عليكم