نجوم المشاركات

من هنا Microsoft Virtual Academy دورات مجانية What is MVA? Successful technologists never stop learning and great technology never stops evolving. Microsoft Virtual Academy (MVA) offers online Microsoft training delivered by experts to help technologists continually learn, with hundreds of courses, in 11 different languages. Our mission is to help developers, knowledgeable IT professionals and advanced students learn the latest technology, build their skills, and advance their careers. MVA is free of charge, and the entire service is hosted on Windows Azure. Microsoft Virtual Academy تم ترقية هذه المشاركة الى مقالة

أليك أخى ماطلبت فصل أسم على عدد من الأعمدة.rar

السلام عليكم الاخ الكريم / 838383mohamed بارك الله فيك هل جربت الكود علي المرفق المرفق مني ام قمت بنسخ الكود وتنفيذه علي ملف آخر تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / 838383mohamed بارك الله فيك بعد اذن استاذي القدير / احمد زمان ... جزاه الله خيرا جرب الكود التالي لتنفيذ المطلوب ( ان شاء الله ) ** ولكن يجب ملاحظة ان يكون تنسيق التاريخ في كل اعمدة التواريخ في كل الشيتات بتنسيق واحد للجميع Sub sama() Dim LastR, LastR1, LastR2, LastR3 As Long Dim StDate, xx As Date Application.ScreenUpdating = False '**************************************************** LastR = Sheet1.Cells(Rows.Count, 2).End(xlUp).Select xx = ActiveCell.Value [c1].Value = xx SText = Sheet1.Range("c1") '==== شيت توصيلات LastR1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row Sheet2.Range("b3:q" & LastR1).AutoFilter Field:=2, Criteria1:=SText '==== شيت خطوط LastR2 = Sheet4.Cells(Rows.Count, 2).End(xlUp).Row Sheet4.Range("b3:q" & LastR2).AutoFilter Field:=2, Criteria1:=SText '==== شيت خطوط مياه LastR3 = Sheet10.Cells(Rows.Count, 2).End(xlUp).Row Sheet10.Range("b3:q" & LastR3).AutoFilter Field:=2, Criteria1:=SText '**************************************************** Application.ScreenUpdating = True End Sub تقبلوا خالص تحياتي اوفسنا.rar

ألي أخى ماطلبت Book10.rar

إستخدم دالة ( int ) أخى =INT(5.4) ستعطيك ماتريد لأنها تعطى الرقم الصحيح

السلام عليكم الاستاذ القدير العلامة الخبير / عبدالله باقشير لك مني اغلي وافضل تحية وشكر وعرفان بالجميل فأنت استاذ الجميع بلا استثناء انت كبير جدا عندي ... وفقك الله لما تحبه وترضاه ... والله اني احبك في الله كنت انتظر ردك بفارغ الصبر لعلمي بأنك اطلعت علي الموضوع امس !!! وظننت انه لم يعجبك ولكن الآن سعادتي كبيرة بشهاتكم لي ويارب ان اكون عند حسن ظن حضرتك .... فلك افضال كثيرة علي وعلي سائر اعضاء المنتدي جعله الله في ميزان حسناتك استاذنا جزاك الله خيرا

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

السلام عليكم الاستاذ القدير الحبيب / أبو حنين الاستاذ الحبيب التميز الموجود بالعمل لم يأتي الا بك وبخبراتك فأنت أحد الخبراء الذي شكل هذا العمل علي وجه التحديد ومعظم ملفاتي عامة وانت واحد من الخبراء الذي كنت انتظر رؤيته ورأيه في هذا العمل حيث انه يهمني جداً فلقد تعلمت منك استاذي الحبيب كثيرا وانت لا تبخل علي اي شخص بعلمك زادك الله من علمه ... ووفقك الله لما تحبه وترضاه ومرور حضرتك استاذي شرف لي جزاك الله خيرا

السلام عليكم الاستاذ القدير الكبير / عباد ( أبو نصار ) اتمني من الله ان يصلك احساسي بعد مشاركتك فوالله ملكتني سعادة لا تتخيلها فشهادة استاذ عبقري مثلك ... لدي شئ كبير جدا جدا واعلم استاذي القدير ان لك عندي دين ولا اعرف كيف ارده وذلك بالتعلم كل يوم منكم شيئاً جديداً فكم انت رائع وعبقري استاذي ومرورك في موضوع لي شرف لي جزاك الله خيرا ... وجعل كل اعمالك في ميزان حسناتك يوم القيامة جعل الله كلامي بعيداً عن النفاق والرياء

السلام عليكم الاستاذ الكبير العبقري / عبدالله المجرب شهادة كبيرة جدا علي من استاذ قدير مثلك وبارك الله فيك استاذي القدير وما كان ذلك الا بكم انتم وبخبراتكم وعلمكم الذي لا تبخلون به علينا استاذي القدير جزاك الله خيرا ... وجعلكم منارة لنا دائما وملجأ في اي وقت

السلام عليكم الاستاذ الفاضل القدير / رجب جاويش اجمل ما في الفكرة ان استاذ مثلك اعجب بها شكرا لك استاذي علي تشجعيك لي جزاك الله خيرا

السلام عليكم الاستاذ / مجدى يونس الف الف شكر لمرورك وشكرا للتعديل فهذه عادتكم لافادة الآخرين دائما واعطاك الله ثواب مجهوداتك استاذي جزاك الله خيرا

السلام عليكم الاخ الحبيب / مودى محمد جزاك الله خيرا ...وهل ظهر لك السؤال بعد التعديل الذي تم م قبل الاستاذ الحبيب / مجدي يونس ام لا وعسي الله ان ينفع بها جزاك الله خيرا

الشكل النهائي ( لبرنامج قوائم الفصول) قوائم الفصول.rar

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

هدية العام الهجري الجديد ******************************************* كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت **************************************************************************** السلام عليكم هذا الموضوع مقدم هدية لاساتذة وقادة هذا الصرح العملاق وهو هدية خاصة ( بسيطة جدا جدا ) بمناسبة العام الهجري الجديد للاستاذ القدير العلامة الخبير عبد الله باقشير لأقدم له عرفانا بالجميل لبعض ما تعلمناه منه ونتعلمه دائما بارك الله فيه ... وجزاه الله عنا خيرا وارجو ان ينال الملف اعجابكم تقبلوا خالص تحياتي وكل عام وانتم بخير وسلام وعلي طاعة الله دائما اضافة ازرار باسماء الشيتات وزر للرئيسية في كل شيت.rar

الكل يعتقد أن المعادلة يمكن أن تكون أقل من الكود فى الإمكانيات ولكن لى وجهة نظر محتلفة وهذا هو الدليل من عجائب المعادلات.rar

قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر في القائمة هو موضوع وجدته في منتدي صديق ( منتدي القدير / يحيي حسين ) للعلامة القدير / Jaafar Tribak المغربي واردت ان اضعه بين ايديكم كما هو وكما هو وضعه بالضبط وبالطبع استئذنه في ذلك ولعلمي انه شديد الحرص علي اعطاء كل معلومه لديه للآخرين فلم اتردد لحظة في نقل الموضوع الي منتدانا العملاق ليستفيد منه الجميع وسأضع الموضوع كما وضعه هو حرفيا جعله الله في ميزان حسناته ==================================================== المــــــــــــــــــوضـــــــــــــــوع ( كما هو ) ==================================================== طلب نجده كثيرا عند مستخدمي الاكسل لكن لا يوجد حل - الحمد لله هذا ما توصلت اليه مؤخرا فأرجو أن يكون مفيدا. من أراد استفسارا لكيفية عمل الكود أو وجد أي مشكلة في تشغيله فأنا ان شاء الله أكون رهن الاشارة Multicolor_Combobox.rar

( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فعذرا علي الاطالة عليكم بداية او ان اشكر كل خبراء واساتذة واعضاء ورواد هذا الصرح الكبير لما قدمه لي من علم ومساعدة ولجميع اعضاء هذا الصرح الكبير شكر خاص للاستاذ الحبيب / ابو حنين --- له فضل كبير في هذا العمل المتواضع شكر خاص للاستاذ القدير / طارق محمود --- له فضل ايضا هنا والشكر موصول لكل الخبراء امثال ( العلامة / عبد الله باقشير - الاستاذ / عباد - الاستاذ الغالي / احمد فضيله الاستاذ / عبد الله المجرب - الاستاذ / رجب جاويش - الاستاذ / محمود لي - الاستاذ / يحيي حسين - الاستاذ / عماد الحسامي - الاستاذ / دغيدي والاستاذ الكبير / محمد طاهر ...... وكل الاعضاء واساتذة هذا الصرح الحاضر والغائب لكم مني اجمل تحيه وتقدير .... وارفع القبعة لكم ارجو من كل خبراء واساتذة هذا الصرح ابداء الرأي في هذا العمل ... واخباري بجوانب القصور فيه فهي لعبة تصلح لالعاب المسابقات ( عسي الله ان ينفع بها احداً ) وجزاكم الله خيرا لعبة مسابقات اوفيسنا.rar

أستمرارا لعبقرية المعادلة هذه المعادلة تقوم بفصل ماتريد من الموضع الذى تريدة عن طريق رقم الكلمة فى العبارة ( الرقم الموجود فى نهاية المعادلة ) جرب وأبتعد عن الأكواد قليلا حدد ماتريد فصلة عن طريق رقم.rar

جرب هذا الكود Sub PDF_ALL() MyName = "D:\MR_" & Format(Date, "dd-mm-yyyy") & ".pdf" Range("C45").Select Sheets(Array("A", "B", "C", "D")).Select Sheets("A").Activate MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "تم الحفظ" Else MsgBox "لم يتم الحفظ" End If End Sub

الأبنة العزيزة / كفاح السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الدعاء الرائع ولك بمثله . إليك الملف به طلبك . Book11.rar

بارك الله فيك تقبل خالص تحياتي

السلام عليكم اذا كنت تريد تفعيل المسطرة فكل ماعليك هو ترك فراغ بين الحرف الأول المطة مثال If ChrW(KeyAscii) Like "[!A -Z]" Then KeyAscii = 0 مثال اخر هذا الكود لايقبل الا الحروف الانجليزة الكبيرة والمسافة وهته الاشارات =:;/. If ChrW(KeyAscii) Like "[!A .-Z]" Then KeyAscii = 0 ارجو ان تكون قد وصلت الفكرة تحياتي

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

أستاذى العبقرى ملك المعادلات وكل مايتعلق بالأكسيل ( جمال عبد السميع ) يسعدنى دائما أن أرى لك عمل جديد لأنى متأكد أنه سيكون متميز وسيحمل إضافة جديدة لكل تلاميذك ومحبيك بجد أنت رائع بارك الله فيك وزادك الله علما وعبقرية معجب بعبقريتك ومجنون بأعمالك

السلام عليكم و رحمة الله وبركاته بعد اذن اخي الكريم حمادة عمر جزاه الله خيرا على الكود الجميل الذي ارفقه ========================= اخي محمد لاحظ : - ان الكود يأخذ التاريخ من قيمة الخلية الحالية اذا يجب عند تنفيذ الكود ان يكون المؤشر على خلية بها تاريخ يعني خلية من العمود B - و كما ذكر الأستاذ حمادة {** ولكن يجب ملاحظة ان يكون تنسيق التاريخ في كل اعمدة التواريخ في كل الشيتات بتنسيق واحد للجميع} تحياتي وتقديري

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

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

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

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

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

السلام عليكم الاستاذ الفاضل العميد / دغيدى النظام لدي 32Bit ويعمل بشكل جيد جدا وسوف اقوم بتجربته علي جهاز 64 او يخبرنا احد الاعضاء ممن لديه نظام 64 جزاك الله خيرا

الاخت الفاضلة / سما محمد جزاكي الله خيرا

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

السلام عليكم الاخ الكريم / khhanna بارك الله فيك ارجو ان ينال اعجابك هذا العمل البسيط مرورك مرور كريم جزاك الله خيرا

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

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

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

أخى ( إبراهيم ) فعلا كما قلت أنت وأخى ( أحمد ) ناتج المعادلة يعطى صفر وقد جربتها بمعادلة الصفيف التالية ( =SUM(IF($L$8:$L$3697=$D$6;IF($D$35:$D$3697=$G$35:$G$3697;$G$3701))) وفعلا أعطت صفر حاول تراجع القيم والشروط وربنا الموفق

بعد كود أستاذى ومعلمى ( رجب جاويش ) إليك الحل بالمعادلات ترحيل فى اماكن محدده.rar ترحيل فى اماكن محدده 2.rar

لاتأسف على فعل الخير أخى العزيز ( هانى ) فالهدف واحد وهذا أجمل مافى هذه الجامعة

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

أخي ( office 2003 ) إليك ماطلبت تم تعديل الرابط بسبب شرط المعادلة =AND(COUNTIF($B$2:$B28;$B3)=1;LEN(B3)<=7;ISNUMBER(B3)) حيث تم تغيير شرط (LEN(B3)<=7 )بدل (LEN(B3)=7 ) حيث يقوم بقبول القيم الأقل من عدد الأحرف الأقل من ال7 أحرف أما عن شرح المعادلة: تشمل المعادلة ( 3 ) شروط هي : 1- (COUNTIF($B$2:$B28;$B3)=1 ) وبالطبع هذه المعادلة قتلت بحثا وسبق وزملائي الأعزاء بشرحها وهي خاصة بعدم تكرار الرقم 2- ( LEN(B3)<=7 ) وهي دالة تقوم بالموافقة علي القيم التي لايزيد عدد أحرفها عن سبع أرقام 3- ( ISNUMBER(B3 ) وهي الأهم حيث تحدد هذه الدالة أن القيم الموجودة في الخلية والغير مكررة وعددها لايزيد عن ( 7 ) أرقام لابد وأن تكون رقم وليست نص أي أن الخلية لاتقبل ( إلا الأعداد وليس النصوص ولاتكرر وليزيد عدد أرقامها عن ( 7 ) أرقام . وبالطبع نستطيع تغيير شرط الرقم لتقبل أعداد عدد حروفها أكبر ، ونجعلها تقبل النصوص أيضا وهكذا منع تكرار رقم في العمود4.rar

هل هذا التنسيق للخلية يكفي للتنبية إنظر عزيزي إلي المرفق فرق بين تاريخيين 2.rar

تفضل : وكما ذكر مشرفنا العزيز التقارير ليست كالنماذج في الخصائص 2.rar

أنصحك ببرنامج PDFCreator المجاني: http://sourceforge.net/project/showfiles.php?group_id=57796