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

السلام عليكم ورحمة الله وبركاته طبعا ليس لي كلام بعد عباقرة واساتذة المنتدى الاب الروحي وعميد منتدنا والدي الفاضل الاستاذ // جمال دغيدي الاستاذ المميز دائما خفيف الطلة استاذ // حمادة عمر الاستاذ الواعد الخبير الايام القادمة _ بإذن الله _ حبيبى العزيز استاذ // وليد فتحي ولكن أخي الكريم دخلت هنا منذ تقريباً اقل من سنة وكنت اشعر بما تشعر به انت الان وكنت لا افقه شي الا الامور البسيطة عن الاكسيل ولكن بدات احاول ان اخدم نفسي بنفسي في بعض الامور حتى لا اثقل على الاخوة في المنتدى ولله الحمد وصلت بفضل الله الى مستوى يساعدنى انا في حل الكثير من مشكلاتي ولعل هذه بعض الخطوات التى قمت بها 1 ) خطوة ارى انها مهمة لتصل الى مستوى عالي في وجهة نظري وهي التى ساعدتني في ما انا فيه الان كنت بدخل على المواضيع المحلولة ثم انظر الى الدالة المستخدمة وابحث عن شرح لهذه الدالة المستخدمة مثال ذلك =sum a1+a2 كنت بدور على شروحات لدالة (sum) وهكذا 2 ) محاولة الاشتراك في الحلول للمواضيع البسيطة التى تحتاج الى حل وهذه الخطوة مهمة جدا فان لم تقم انت بالحل فسوف تساعدك هذه الخطوة لفهم كيفية الحل لانك بالتفكير اصبحت انت الان صاحب المشكلة وبالطبيعي صاحب المشكلة هو اكثر الناس يستفيد بحلها. 3 ) الصبر ثم الصبر كما قال لك الاخوة 4 ) كما قال لك الاستاذ الحبيب // حمادة عمر حب التعلم والتعامل مع الاكسيل ففاقد الشي لا يعطيه 5 ) وقبل اي شى الدعاء لله والاخلاص في التعلم 6 ) لا تستعجل على الحلول ولا تلح على الاساتذة على الحلول وكن صبورا معهم ستجد منهم افضل مما كنت تنتظره 7 ) اذا دخلت اي موضوع لا تهمل اي مشاركة فربما مشاركة في وسط الموضوع تغير لك امور كثيرة وتوفر لك كثير من الجهد والوقت واخيراً نسعد بك أخا متعلما ومعلما وبعتذر على الاطالة..

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

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

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

السلام عليكم هذه كتب Wrox.Excel.2007.VBA.Programmers.Reference.Mar.2007 VBA.and.Macros.Microsoft.Excel.2010 و هذه قناة علي اليوتيوب http://www.youtube.com/channel/UCkndrGoNpUDV-uia6a9jwVg?feature=g-high-crv زادك الله علما و نفع بك تقبل تحياتي

أخى الحبيب / أحمد محيى السلام عليكم صدقنى دخلت المنتدى ولا أعرف حرفا واليوم والحمد لله نقضى كل احتياجاتى .. كن صبورا مثابرا

اخى ابراهيم ابوليلة ربما لا اجيد الشرح لانى لا زلت تلميذ ولكن طلبك غالى اخى الكريم سيكون الشرح بعد سرد الكود Sheets("Sheet1").Select Sheets("Sheet1").Range("f3:h3000").ClearContents Application.ScreenUpdating = False Application.Calculation = xlCalculationManual السطر الاول اثرت ان اختار الورقة التى اعمل عليها السطر الذى يليه الهدف منه وقف اهتزاز الشاشة السطر االتالى هو وقف الحساب التلقائى فى الاكسيل الهدف من السطرين ان يكون نقل البيانات والبحث عن الشروط بسرعة For i = 3 To Range("c3").End(xlDown).Row بداية جمل الدوران تبدا من السطر الثالث وتنزل الى اخر سطر فى العمود c وطبعا تنتهى next كل هذا لم تبدا فكرة الكود ستبدا بدالة if If condition then Statement 1 Statement 2 … .... End if If Sheets("Sheet1").Cells(i, 3) = Cells(2, 6) Then Sheets("Sheet1").Cells(i, 6) = Sheets("Sheet1").Cells(i, 2) الشرط هنا ان تتساوى قيم العمود الثالث مع الخلية الموجودة بالصف الثانى والعمود السادس المطلوب تنفيذه هو نقل القيم التى تتساوى بها فى العمود الثانى الى العمود السادس ثم وجدت مشكلة وهى القيم تنقل فى نفس الاماكن فوجدت وجود خلايا فارغة فوجدت الحل فى الغاءها Range("f3:h300").SpecialCells(xlCellTypeBlanks).Delete وكررت الموضوع ثلاث مرات ثم ارجعت الاعدادات الى ما كانت عليه ارجو ان اكون وفقت تحياتى

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

السلام عليكم الاخ الحبيب / إسلام الشيمي بارك الله فيك اليك شرح الكود ... ارجو من الله ان يفيدك ونسألكم الدعاء بظهر الغيب لوالدي ( رحمه الله ) واي استفسار معك دائما باذن الله Sub SAMA_PRINT() 'السطر التالي نحدد فيه آخر صف به بيانات في العمود d لتحديد البيانات المطلوب طباعتها فيما بعد LR = Sheets("بيانات العملاء").[D20000].End(xlUp).Row 'السطر التالي نستخدمه لاجبار الكود علي الاكمال في حاله وجود خطأ On Error Resume Next 'السطر التالي لاختيار الاعمدة الغير مرغوب في ظهورها في الطباعةوهي هنا العمودين EوH Columns("E:H").Select 'السطر التالي لتنفيذ عملية الاخفاء للاعمدة المختارة والمحددة في السطر السابق Selection.EntireColumn.Hidden = True 'السطر التالي نقوم بمسح منطقة الطباعة المحددة تلقائيا من الاكسيل لتحديدها بنفسنا فيما بعد Sheets("بيانات العملاء").PageSetup.PrintArea.Clear 'السطر التالي نحدد فيه نطاق البيانات المراد ادخالها في نطاق الطباعة المطلوب ' في الشيت المحدد ( بينات العملاء) وهي هنا من الخلية a1 وحتي آخر صف به بيانات LR Sheets("بيانات العملاء").PageSetup.PrintArea = Range("A1:D1000" & LR) 'السطر التالي نعطي امر لطباعة النطاق المحدد مباشرة في السطر السابق 'ويمكننا تغيير الطباعة المباشرة الي المعاينة بتغيير PrintOut الي PrintPreview 'لتكون المعاينة اولاً Sheets("بيانات العملاء").PrintOut 'السطر التالي نختار الاعمدة التي تم اخفاؤها في بداية الكود Columns("E:H").Select 'السطر التالي يقوم بعملية عكسية لاظهار الاعمدة التي تم اخفاؤها قبل ذلك 'لاعادة الوضع الي ما هو عليه ( بطبيعته ) Selection.EntireColumn.Hidden = False 'السطر التالي لاختيار الخلية A1 بعد تنفيذ الكود تماما Range("A1").Select 'السطر التالي لانهاء الكود والمهمة بالكامل End Sub تقبل خالص تحياتي

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

السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد احب ان اهدي هذا العمل _ وهو عملي الثاني _ لعمالقة منتدى اوفيسنا والذين طالما تعلمت منهم الكثير وبعتذر لعدم تخصيص الاهداء لاحد منهم وكلهم يستحقوا الذكر والثناء الجميل ولكن حتي لا انسى احد احب ان اجعل هذا الاهداء عام وباختصار هذا هو عملي الثاني بعد العمل الاول وهو شيت كنترول الصف الثاني الثانوي الصناعي انتظام [نجارة اساس... وهو خاص بشيت كنترول الصف الثاني الثانوي الصناعي تخصص ( حاسب ألي ) لعام 2013/2014 و جعلته تجريبي لانني اعلم انه و لابد انه سيقع فيه بعض الاخطاء بالاضافة انه يحتاج الى تعليق اساتذتي الافاضل على هذا العمل.. و بإذن الله ستنزل اصدارات اخرى من هذا الشيت بالاضافة الى تنزيل جميع التخصصات للصف الثاني الثانوي الصناعي اهم الاضافات والمميزات العمل الثاني 1 ) اضافة صفحات راسب وناجح وله دور ثان للادارة بدلا من التى كانت تصلح للمدرسة فقط 2 ) اضافة جدول الامتحانات للفصل الدراسي الأول والثاني وبه رقم الجلوس واسم الطالب ولجنته فهي بديلة لارقام الجلوس مع تركي لورقة ارقاك الجلوس العادية كما هي 3 ) اضافة امكانية وضع الدوائر الحمراء وهي تظهر في الطباعة 4 ) اصلاح بعض الاخطاء التى وقعت سهواً في الشيت السابق 5 ) فتح الملف تلقائي على الصفحة الرئيسية 6 ) استخدام الوان بطريقة جديدة لتريح النفس والعقل والعين وتركت غالب الارضيات التى تطبع باللون الابيض لتريح العين ويصلح استخدامها في الطباعة 7 ) اضافة بعض المعادلات التى تساعد في عملية الطباعة 8 ) طباعة رؤوس الصفحة او التى تحمل العنوان و الجداول في كل صفحات الطباعة والان اترككم للتصفح وانا في انتظار ارائكم والسلام عليكم ورحمة الله وبركاته للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //ahmed alimer فله الشكر لتحميل نسخة 2003 ولكن هذه النسخة لا تعمل بنسبة 100% فهي تحتاج الى بعض التعديلات ولكن وضعتها لسهولة فتحها والاطلاع على ما في الشيت وبإذن الله ستعدل قريباً تحميل نسخة من الشيت 2003 اضغط هنا شيت الصف الثاني الثانوي الصناعي_حاسب الى.rar

السلام عليكم في المتغير Cont تحدد آخر سطر في العمود A Sub Macro1() Cont = 100000 With Range("B1") .Value = 1 .Resize(Cont, 1).DataSeries End With End Sub او هذا Sub Macro1() Dim Cont Cont = 100000 Range("B1").Resize(Cont, 1).Value = Evaluate("ROW(1:" & Cont & ")") End Sub تحياتي

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

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

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

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

مما يحدث ... إهمال التعليق على الاجابة التى تلقاها السائل ، أو الحل ، فيصبح الموضوع معلقا ... هل وصل السائل لغايته أم لا ؟ و أرى أنه من باب تقديرك لمن تابع سؤالك و حاول تحقيق ما تحتاج ( بمشيئة الله ) ، أن تشعره بتقديرك ، وشكرك ، لجهوده معك ، وأنك قد بلغت غايتك. ليس لأنه ينتظر المديح أو الشكر ، بل لأنه ينتظر ردك و يبغي التأكد من تحقيقه لغايتك. ........

المجموعة الأولي ( نشرت فى 5-7-2003 ) : 1-0 البداية 1-1 مقدمة الي الأكسس 1-2 مراحل إعداد البرنامج --------------------------------------------- المجموعة الثانية نشرت فى 8-7-2003 : 2-0 تصميم الجداول 2-1 إنشاء الجداول (1) 2-2 إنشاء الجداول (2) 2-3 إنشاء الجداول (3) 2-4 أنواع البيانات فى الأكسس --------------------------------------------- 2-5 المفتاح و الفهارس 12-7-2003 2-6 التعامل مع البيانات فى الجداول 12-7-2003 2-7 خصائص الحقول 1 (17/7/2003) 2-8 خصائص الحقول 2 19-7-2003 2-9 العلاقات بين الجداول 23-7-2003 2-10 أسلوب الرسم التخطيطي لعلاقات الكيانات 29-7-2003 --------------------------------------------- 2-11 مسودة تحليل نظام مشروع الدورة 1/8/2003 -------------------------------------------- 2-12 تصميم جداول المثال 6-8-2003 ------------------------------------------- وصلة دروس الاستعلامات من هنا

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم امثلة على طباعة السجل من (فورم ادخال وتعديل وبحث) الاصدار الثالث http://www.officena.net/ib/index.php?showtopic=51955 هذه ثلاثه امثله مختلفة في المرفق 1 - طباعة في مصنف جديد او من خلال الفورم اذا كانت الشاشة تظهر جميع بيانات السجل 2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل 3 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لبعض بيانات السجل المرفقات 2003 فورم ادخال و تعديل مرن مع الطباعة 1.rar

http://www.mediafire.com/download/llk1phh07p7c4lp/CreditTools+-+beta+%282%29.xlsm من منتدى مجااااور وهو معروض مجاااااااني ملفات مرفقه CreditTools - beta (2).rar .

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

الاخوه الكرام مرفق شيت به كود يقوم باستخراج بيانات بناء على3معطيات والخطأ يحدث انه دائما يكرر او رقم يتم استخرجه ارجو المشاهده استخراج.rar

الأستاذ / مراد الجزائر السلام عليكم ورحمة الله وبركاته عذراً أنا لم انتبه أنني لم أضع ملف الاكسيل مع الملف الآخر في المشاركة الأولى. إليك الملف. التقويم بالاكسيل.rar

ألف مليوووووووووووووووووون مبروك الترقية

الفورم FormDate يساعدك في اضافة التاريخ (ممكن تضيف التاريخ يدويا) اما بالنسبة للقائمة اضف الاسم (الذي اطلقته على القائمة ) في تعليق في راس العمود الذي تريد اظهار القائمة فيه.

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

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

السلام عليكم المشكلة هذه من عندك .........

الرد على الموضوعات أساتذتى الأفاضل رواد المنتدى الكرام حديثى إلى حضراتكم عن الردود على الموضوعات وما لهذا الموضوع من أهمية عظيمة لكل منتدى لرفعة وتقدم وازدهار المنتدى فالإبداع ليس فقط في كتابة الموضوعات ولكن الرد إبداع مثله مثل كتابة الموضوع بالضبط لذا يتم احتساب الرد كنقطة من معدل تقييم المعدل مثله مثل كتابة موضوع جديد وربما يكون الرد أهم من الموضوع. كيف ذلك ؟ الموضوع يتم بذل جهد من كاتب أو ناقل الموضوع وينتظر أي كاتب للموضوع في المنتدى أن يتم تتويج موضوعه بالرد عليه من جانب الأعضاء سوآءا بالتقييم أو التقويم أو المناقشة وبهذا يتم إثراء الموضوع من كافة جوانبه إن الردود على المواضيع بحد ذاته ثقافة، فالرد له ناسه وله أدبه كما أن الردود لها مكانتها الخاصة في المنتديات والتي تدل على وعي العضو وحسن تصرفه، فالإبداع ليس بكتابة موضوع فقط بل في كتابة الرد أيضاً كما أسلفت. ويمكننا القول بأن أهمية الردود تتمثل في: *زيادة نشاط الموضوع وحماسه والتفاعل بين الأعضاء *لا تظهر الطاقات الكامنة إلا في الردود *الرد دليل الاحترام وإظهار وجهه نظرك للموضوع وكاتبه * النقاش والرد يؤدي إلى ولادة أفكار جديدة والتوصل لمواضيع جديدة لتنويع وتشعب الموضوعات * طالما كانت هناك ردودا على الموضوع بعد المجهود المبذول في كتابته يؤدى إلى تمسك العضو بعضويته وتفعيلها دائما * في ردك على الموضوع إبداء لرأيك الخاص وإبراز النقاط التي تهمك مع مراعاة المصلحة العامة * الرد على الموضوع يبرز أهميته * الرد حقاق للحق وإبطال للباطل (الاختلاف في الرأي لا يفسد للود قضية) *الرد يعمل على زيادة ثقة الكاتب في نفسه *" تكلم حتى أعرفك " فالرد يجعلنا نتعرف على شخصيتك *زيادة في التواصل والمحبة بين الأعضاء *الردود تولد أفكارا جديدة لك ولغيرك *من الردود أعرف أنا ككاتب للموضوع مدى الاستفادة من موضوعي *لا ننكر أهمية المشاهدات لكن لا توازي أهمية الردود *ننظر دائما للردود بالكيف وليس بالكم * الرد على موضوع معين يشجع كاتبه على الإبداع في موضوع جديد مما يزيد من إنتاج العضو من الموضوعات بعض التأثيرات الإيجابية للردود *الرد على الموضوع يشعر كاتب الموضوع بالسعادة *إحداث تأثيرات على الموضوع قد تكون جديدة ومفيدة له وللعضو *نمو النشاط وبالتالي مواضيع في مصلحة المنتدى *قوة الرابطة بين الأعضاء وكذلك الألفة وذلك عند تبادل مشاعر الأخوة في الردود *النهوض بالمنتدى *كسب الأجر بعبارات مثل (سبحان الله –الذكر –الدعاء.........وغيرها) بعض التأثيرات السلبية للردود *تهبيط الهمة بعبارات تحط من قيمة الموضوع خاصة إذا كان واضحا اجتهاد كاتبه *العبارات الخارجة تجعل العضو يتساءل : هل أنا عضو غير مرغوب فيه...؟ *السب في الرد يؤدي إلى قلة المشاركات لأهمية الردود على نفس الكاتب يذيل بعضهم موضوعه بــ لا تنسوا الرد – وبعضهم يتساءل: أين الردود؟ وأخيرا كيف يكون شعورك عندما تجد موضوعك لم يرد عليه أحد بينما المشاهدات بالعشرات؟ حتما تفكر بنقل عضويتك لمنتدى آخر وأخيرا وليس آخرا ... أتمنى من الجميع التفاعل وأريد منكم أساتذتى الإفادة والاستفادة... ولا تنسوا الردود جزاكم الله خيرا وبارك الله فيكم

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

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

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

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

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

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

شاهد المرفق 2010 فرن مرن الجموعي.rar

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

استاذى ابراهيم ابوليلة استاذى حمادة باشا انا اعلم انكم اساتذة عظماء احاول ان تراجعوا اكوادى لانى احاول رد جميل هذا الصرح العظبم استاذنكم ان اشارككم الاراء والحلول Sub gggg() Sheets("Sheet1").Select Sheets("Sheet1").Range("f3:h3000").ClearContents Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 3 To Range("c3").End(xlDown).Row If Sheets("Sheet1").Cells(i, 3) = Cells(2, 6) Then Sheets("Sheet1").Cells(i, 6) = Sheets("Sheet1").Cells(i, 2) End If If Sheets("Sheet1").Cells(i, 3) = Cells(2, 7) Then Sheets("Sheet1").Cells(i, 7) = Sheets("Sheet1").Cells(i, 2) End If If Sheets("Sheet1").Cells(i, 3) = Cells(2, 8) Then Sheets("Sheet1").Cells(i, 8) = Sheets("Sheet1").Cells(i, 2) End If Range("f3:h300").SpecialCells(xlCellTypeBlanks).Delete Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub استخراج.rar

اخى ابراهيم ابوليلة السلام عليكم هل تريد الارقام فى العمود Bا لتى تقابل الكلمة فى العمود c حتى لو كانت مكرره اكثر من مرة ام لم تصل الى الفكرة

تفضل يا اخى الفاضل

يعطيك الف الف عافيه موضوع رااائع وفكرة أروع أستاذي محمود الأسيوطي جزاك الله كل الخير لك منـــــــ اجمل تحية ـــــــــي

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

اخى محمود تم تعديل الكود جرب واعلمنى تحياتى Sub saad() Application.ScreenUpdating = False Sheets("Entry").Select al = Sheets("Database").[e10000].End(xlUp).Row If [d1] = "" Or [d2] = "" Or [d3] = "" Then MsgBox "Ãßãá ÇáÈíÇäÇÊ ÃæáÇ" Exit Sub ElseIf Not [c4].Value = [d4].Value Then MsgBox "!ÊÃßÏ ãä ÅÏÎÇá ÇáÞíÏ ãÚ ÊæÇÒä ÇáØÑÝíä", vbExclamation, "ÅÏÎÇá ÎÇØÆ" Exit Sub ElseIf Sheets("Database").Range("e" & al).Value = [d2].Value Then MsgBox "!ÊÃßÏ ãä ÚÏã ÊßÑÇÑ ÇáÝíÏ", vbExclamation, "ÅÏÎÇá ÎÇØÆ" Exit Sub 'Else End If For r = 7 To Sheets("Entry").[c3000].End(xlUp).Row With Sheets("Database").[d10000].End(xlUp) .Offset(1, 0) = Sheets("Entry").[d1].Value .Offset(1, 1) = Sheets("Entry").[d2].Value .Offset(1, 2) = Sheets("Entry").[d3].Value .Offset(1, 3) = Sheets("Entry").Cells(r, 3) .Offset(1, 4) = Sheets("Entry").Cells(r, 4) .Offset(1, 5) = Sheets("Entry").Cells(r, 5) .Offset(1, 6) = Sheets("Entry").Cells(r, 6) End With Next r Application.ScreenUpdating = True End Sub مثال على الترحيل.rar

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

اسم يضئ المنتدى بعلمه و خلقه الاستاذ العلامه : عبد الله باقشير و الشكر موصول للأخ الحبيب الاستاذ : محمد ابو البراء

هذه أخي الكريم دروس باللغة العربية في ملفات وورد إن شاء الله تكون مفيدة لك دروس إكسيل vba.rar

اللهم آمين وإياك وجميع المسلمين يا رب. تفضل أخي لك ما تريد وفوقه بوسة . بالتوفيق. Pharmasy4.rar