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

السلام عليكم ورحمة الله وبركاته وجدت عندي شيت أعده من أكثر الشيتات التي أثارت إعجابي ، وسوف تثير إعجابكم حتما ً لكثرة ما تضمه بين جنباتها من معادلات وشغل كتييييير ، فقلت أنقلها للاستفادة . All in One.rar

السلام عليكم ورحمة الله وبركاته بين أيديكم أحبائي هدية قيمة جداً وجدتها عندي ، كنت قد حصلت عليها وهي عبارة عن حوالي 400 شيت إكسل لأكبر الشركات العالمية يستخدمون فيها كمية كبيرة وفي قمة الاحترافية من الأكواد الجاهزة ، فتلك الشركات كما لا يخفي عليكم تضم بين جنباتها أكبر خبراء في العالم في شتى المجالات ومنها مجال الحاسب الآلي والبرمجيات ، (طبعاً مرتباتهم غير مرتباتنا لو مؤاخذة ) فلما لا نستفيد من تلك العقول المستريحة ونطوع ما نراه ليلائم احتياجاتنا ، والدعوة هنا لأهل التخصص في مراجعة تلك الأكواد التي جعلت عقلي يدور من احترافيتها واستخراج ما يلائم عملهم وإمدادنا بالملائم منها . بعض التخصصات في الشيتات Analysis Bar Bending Schedules Beam Bridge Column Drawing Estimates Foundation Hydraulics Layout Loading Misc. Prestress RCC Design Retaining Wall Section Properties Seismic Slab Soil Mechanics Stairs Steel Wall مساحت الفولدر المضغوط حوالي 118 ميجا على الميديافاير مقسم الى جزئين http://www.mediafire.com/download/5gs62010mkn1bry http://www.mediafire.com/download/1nmr7zs6anzpaux نفعكم الله بها - آمين

السلام عليكم ورحمة الله وبركاته بين يديكم أحبائي الكرام كتاب رائع يشرح بأسلوب مبسط وباللغة العربية معظم دوال إكسل 2007 ومرفق معه أمثلة الشرح المرفقة مع الكتاب نفعكم الله به - آمين http://www.4shared.com/rar/3OgU4IZ3/Learn_Functions_in_Excel_2007.html

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

بارك الله فيك وجعله فى ميزان حسناتك وأعمالك

ممتاز بارك الله فيك ودائما الى الأمام

بعد اذن الأستاذ بكار هذا موقع اخر http://www.mediafire.com/file/rwsccws0d3tmauq/learn+functions+in+excel+2007.rar بارك الله فيكم جميعا

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

لنلق نظرة على مثال بسيط جدًا لإنشاء Class Alt+F11 Insert Module Class Module يظهر لنا محرر Visual Basic قبل البدء بكتابة الكود يفضل ان نثبت إسم للوحدة النمطية و ليكن clsCustomer في المحرر نكتب ' Class name: clsCustomer Public Name As String قم بحفظ الاجراءات و اخرج من الوحدة النمطية و لنقم مثلاً بانشاء نموذج جديد و نفتح عرض التصميم ، و في محرر Visual Basic نضع الروتين التالي Private Sub sfPrint() End Sub حيث نقوم بتعريف اسم زيون جديد حسب المعرف في clsCustomer باستخدام العبارة ، و هي اساسية لتعريف الزبون الجديد Dim oCustomer As New clsCustomer ثم نستخدم خاصية الاسم name. لهذا الزبون الجديد و نسند له القيمة ' Set the customer name oCustomer.Name = "Nart Lebzo" ثم نحدد الاجراء المراد تطبيقه ' MsgBox the name MsgBox oCustomer.Name و بذلك يصبح الكود كما يلي Private Sub sfPrint() ' Create the object from the class module Dim oCustomer As New clsCustomer ' Set the customer name oCustomer.Name = "Nart Lebzo" ' MsgBox the name MsgBox oCustomer.Name End Sub ثم نقوم ( مثلا ) بانشاء زر أمر نضع خلف حدث النقر الكود التالي لاستدعاء الروتين الذي يطبق clsCustomer Private Sub Command0_Click() Call sfPrint End Sub و للحديث بقية ......

اضف هذه العبارة مباشرة بعد السطر For i=3 to c On Error Resume Next

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

ارفق قاعدة للتطبيق مع بعض المعلومات في الجداول ... لطفا

تم معاجة الامر الكود يعمل بالطريقتين اخفاءيومي الجمعة والسبت _two_ways.xls

تفضل db13.mdb

الفرق بين ByVal و ByRef Byval يقصد بها الاستدعاء بالقيمة ByRef يقصد بها الاستدعاء بالمرجع الكود التالي سيوضح الفكرة أكثر لنفرض لدينا عددين و نريد تطبيق كود معين او معادلة ما على هذين العددين 'نضع هذا الكود خلف زر امر في نموذج dim x as intger dim y as intger dim i as intger x=10 y=5 'استدعاء كود الجمع بالقيمة و اظهار الناتج i=add1(x,y) msgbox i msgbox x 'استدعاء كود الجمع بالمرجع و اظهار الناتج i=add2(x,y) msgbox i msgbox x 'كود الجمع باستخدام Byval private function add1(byval n1, byval n2) as intger add1=n1+n2 n1=3 end function 'كود الجمع باستخدام ByRef private function add2(byref n1, byref n2) as intger add2=n1+n2 n1=3 end function الشرح في المثال انشئت وظيفة بسيطة لجمع عددين هما X Y عرفت متغيرين و وضعت قيم فيها وهي (x=10) و (y=5) الوظيفة Add1 انشئت وظيفة اسمها Add1 تستقبل عددين هما n1 و n2 ( بالقيمة ) Byval تقوم الوظيفة بجمع العددين و ارجاع الناتج ( و هنا الناتج 15 ) من خلال هذا السطر add1=n1+n2 ثم غيرت قيمة العدد الاول من 10 الى 3 من خلال هذا الكود n1=3 هذا يعني ان x يجب ان تصبح قيمتها 3 ولكن ستجد ان قيمة X مازالت 10 !!!!!!!!!!!!!!!! ( لاحظ انه بعد تعديل قيمة X من الوظيفة وضعت رسالة لتعطي قيمة x ) الوظيفة Add2 الوظيفة Add2 في نفس الوظيفة Add1 لكن الفرق ان الوظيفة Add2 تستقبل القيم n1 و n2 ( بالمرجع ) ByRef تقوم الوظيفة بجمع العددين و ارجاع الناتج ثم غيرت قيمة العدد الاول من 10 الى 3 ولكن هنا ستجد ان قيمة X اصبحت 3 !!!!!!!!!!!!!!!! السبب ان Byval تحافظ على القيمة الاصلية للمتغير المرسل لها اما Byref فهي تغير القيم للمتغير المرسل لها ارجو ان اكون قد وفقت في الشرح