احمدزمان

السلام عليكم فراق اخوتي - كالصبر مراواشعل فراقهم - في القلب جمرا حمدا لله على السلامة وجاي بقلوب حمراء و حركات - ايش الحب و الهيام ده كله منورنا ياباشا

السلام عليكم mohamed.rar

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

السلام عليكم و رحمة الله وبركاته اخواني واساتذتي الأفاضل مش عارف منذ اكثر من اسبوع وانا حاسس ان الإكسل و الأكواد فلتت مني و مش قادر اجمع المعلومات تاني الظاهر حصلت لخبطة في خلايا المخ و دخل كله على بعضة = = = = = = السؤال = = = = = اذا كان عندي متغير ثابت اريد ان استخدمة في اكثر من كود Vb داخل ملف اكسل مثلا الكود التالي Dim RR Dim LL RR = ActiveSheet.UsedRange.Rows.Count LL = ActiveSheet.UsedRange.Columns.Count فبدلا من ان اقوم بكتابة هذه الأسطر في كل موديل اريد طريقة اعرفة بها مرة واحدة ثم استخدم RR او LL داخل الأكواد الأخرى طبعا هو الموضوع مش جديد ولكن المسألة تاهت معي مع شكري و تقديري للجميع

و عليكم السلام الحل من اعداد اخونا زياد على الرابط التالي حذف المكررات officena.net/ib/index.php?s آمل ان تطلع عليه

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

اخي زياد السلام عليكم عمل جميل بارك الله فيك

السلام عليكم و رحمة الله تفضل اخي الكريم DVB.rar

اخي الفاضل ابو العقاب كلامك صحيح كان في خطاء في رقم في الكود تم التعديل في المرفق آمل التجربة واطلاعي على النتائج ImpressionCertificat.rar

شكرا لك اخي سالم تم التعديل جزاك الله كل خير

السلام عليكم اكرر شكري للأخ HPENعلى مجهوده الطيب في الموضوع = = في المرفق تم تغيير الدالات لإستخراج النتائج في الشهادة الى الدالات MATCH - -INDEX بحيث تقوم هذه الدالات بالإضافة عن البحث لإسم الطالب في ايضا تقوم بالبحث عن مسمى المادة و تضع علاماته في الخلايا المقابله له تم استخدام فورم للطباعة يفتح بالضغط على زر طباعة كل الشهادات تدخل في الفورم ارقام الطلاب من رقم الى رقم اماك خيارين اما ارسال الى الطابعة مباشرة لكل الطلبة الذين حددت ارقامهم او معاينة قبل الطباعة بحيث تشاهد المعاينة و تختار طباعة او لا في حال وجد اي اسم من اسماء الطلاب اعطى رمز خطأ - N/A# يتم ايقاف الطباعة و الخروج من عملية الطباعة الورقة يمكن تنسيقها بشكل افضل ودمج كل الدوال داخل جدول الشهادة ولكن فضلت وضع كل دالة في عمود مستقل ليسهل فهمها وتطبيقها على ملفات اخرى ولكم تحياتي ImpressionCertificat.rar

السلام عليكم و رحمة الله وبركاته تسلم الأيادي اخي HPEN عمل رائع وجميل وايضا متقن ارجو ان تسمح لي عندي فكرة اخرى حول الموضوع وارغب في ارفاقها اليوم ان شاء الله

السلام عليكم اخي الفاضل تم عمل الحل بالدوال مع امكانية تغيير مسمى العمود كماتريد جرب ضع مسمى العقوبة محل مسمى نوع التهمة سوف تظهر النتائج كلا في مكانها يمكنك اخفاء الصف الأصفرو العمود الأصفر مع التحية DVBSOFTW.rar

اخي الكريم الفاضل BOSH ممكن تعمل ملف وتحط الفورم وتصممه كما تريد جزاك الله كل خير

السلام عليكم اخي تامر جمال شكرا لك اخي M127899 لا يوجد شيء مخفي يوجد الكود التالي في THES WOORKBOK Private Sub Workbook_BeforeClose(Cancel As Boolean) QQ = MsgBox("هل تريد تثبيت قيم الغياب للتاريخ المحدد", vbYesNo, "سوف يتم اغلاق الملف") If QQ = vbYes Then Application.Run "ayay" End If ActiveWorkbook.Save Application.Quit End Sub مع التحية و اتقدير

والله الموضوع ده دوخني من كثرة التنقل منورقة الى اخرى لذلك بدو صبر شوي اذا تكرمت

الأخ زياد جزاك الله كل خير وبارك فيك على اخلاقك الكريمة ((كل ابن آدم خطاء و خير الخطائين التوابين)) ((لا يحق لمسلم ان يهجر اخاه فوق ثلاث)) اكرر جزاك الله كل خير وانته عملت الي عليك - وبعد كده عداك العيب

السلام عليكم سبحان الذي علمنا سبحان الذي فهمنا ______________________________________.rar

السلام عليكم اخي الكريم يوسف راجع اي معادلة يجب ان يتساوا عدد الأقواس المفتوحة و المقفولة ولكن لا يشترط ان يكون كل الإقفال في آخر الدالة في المثال السابق دالة and اغلقت في منتصف الدالة عند نهاية عملها تحياتي وتقديري

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

السلام عليكم اخي الكريم هذه سوف تكون الخطوة التالية ولكن سوف تكون العملية بواسطة كوود VB و فكرتها كالتالي عند اغلاف الملف سوف يطلب منك هل تريد تثبيت قيم اليوم الحالي اذاكانت الإجابة لا سوف يتم حفظ الملف كماهو و اذاكانت الإجابة نعم سوف يبحث الكود عن التاريخ المطابق للتاريخ المسجل في صفحة 1 ويأخذ هذا السطر وينسخة نسخ خاص بالقيم فقط وبذلك تختفي الدوال لهذا اليوم وتبقى الحروف فقط اذا كان هذا ماتريد آمل الإجابة لكي يتم العمل على ذلك

السلام عليكم =IF(AND(A1="غ";B1="غ");"غ";SUM(A1:B1))

اخي الفاضل السلام عليكم شاهد المرفق هل هذا المطلوب __________.rar

اللهم آمين

اخي HPEN الله يجزاك بالخير - الله يجزاك بالخير - الله يجزاك بالخير والله فعلا تعبتك معي الله يزيدك من علمه ومن كل خير ويجزاك الجنه