أبو هاجر المصري

إخواني الأعزاء أعضاء المنتدى الجميل ، تعبت مرارا وتكرارا وإلحاحا ( حلوة إلحاحا دي ) على المشرفين يشرحوا لنا VBA وأوامره وأكواده وشفراته والتطبيقات الممكنة بيه وربطه باكسيل ، المهم لم أجد مجيب علما بان الموضوع لو كان اتفتح من البداية وكل مشرف حط له كود كل يوم كان زمانه خلصنا منه دلوقتي ، وكان الشرح هيبقى على ايد اساتذة فاهمين ومجربين انا لا الومهم بالطبع عارف ان كلهم مشغولين ، وعلشان كده قلت اترجم كتب ومواقع في الموضوع ده ولقيت إني بستفيد بصراحة ، وحبيت إن الكل يستفيد معايا ، بمعنى آخر أنا زيي زيكم بالضبط معلوماتي في الفيجوال مع اكسيل زي معلوماتكوا في الكيمياء الحيوية وعلاقتها بالعدسات اللاصقة ههههههههه ... ومع بعض واحدة واحدة خالص واللي هخلصه ترجمة وتنسيق أعرضه ليكم ، بداية بتعريف VBA , VBE والواجهة والأوامر وكيفية كتابة الأكواد والعمليات البرمجية ، وفي النهاية هعملكو زي مرجع شامل بكل الاوامر الممكنة وتعريف موجز بالامر او الكود وبيعمل ايه ومثال لكل واحد ، والله المستعان بندأ وبعون الله في الدرس الاول الجزء الأول ( مقدمة إكسيل VBA ) في هذا الجزء سوف تتعلم : ** لماذا إكسيل VBA ** محرر أوامر VBE الغرض من هذه الدورة هو إظهار كيف يمكن لمستخدمي إكسيل استخدام برمجة التطبيقات (VBA ) التي تأتي مع برامج أوفيس مجانا .. هذه الأداة ستساعدك إلى حد كبير على تعزيز قوتك في استخدام البرنامج الأكثر شعبية في جداول البيانات باستخدام VBA . برمجة الكمبيوتر في أيامنا هذه أصبحت أسهل بكثير ، وحتى ما يسمون الآن أناس عاديين يعرفون أن البرمجة هي ببساطة وضع تعليمات يقوم الكمبيوتر بتنفيذها . وبرمجة الإكسيل تعني أنه يمكنك إعطاء تعليمات وأوامر لإكسيل ليقوم بأدائها تلقائيا ، تلك التي كنت تقوم أنت بها يدويا ، وذلك يوفر وقتك كثيرا . أثناء قراءتك لهذا فإنها ستكون المراهنة على تصبح مبرمج إكسيل ، مما قد يكون نابعا من أن تصبح أكثر قابلية للتسويق ، وهذه الدورة وبطبيعة الحال سوف تتعلم برمجة إكسيل ، ومع انتهائها سوف تدرك جيدا مدى سهولة هذه العملية . في نهاية هذه الدورة ، فإننا سوف نتعلم تطوير التطبيقات البسيطة مع اكسل VBA. قبل البدء في تعلم كيفية البرمجة باستخدام VBE ، يجب عليك أولاً كيفية استخدام البرنامج اللازم لإنشاء المشاريع الخاصة بك ، إن تطوير البرمجيات بواسطة ( VBA ) مدرج مع كل من برامج ميكروسوفت أوفيس ، مما يوفر لك عددا من الأدوات في تطوير المشروع . 1) ما هو محرر فيجوال بيزك (Visual Basic Editor ) ؟؟ عليك استخدام المصنفات ، والصيغ والرسوم البيانية ، وغيرها من الأشياء الجيدة لإكسيل معظم الوقت ، حان الوقت الآن لتوسيع النطاق الخاص بك ، واستكشاف آفاق جديدة تماما من جوانب إكسيل ، إنه محرر الفيجوال بيزك Visual Basic Editor ، عليك معرفة كيفية استخدامه ، وتعكف على مهمة كتابة بعض أوامره . إن محرر فيجوال بيزك ( VBE ) هو عبارة عن برنامج منفصل عن طريقه يمكنك كتابة وتعديل VBA أو الماكرو ، وهو يعمل بسلاسة مع إكسيل ، ويمكنك تنشيط هذا المحرر (VBE ) عن طريق الضغط على{ Alt+F11 } عندما يكون إكسيل منشطا ، أو عن طريق استخدام القوائم من أدوات – ماكرو – محرر فيجوال بيزك .. كما بالشكل التالي : الشكل يوضح كيفية استدعاء محرر أوامر الفيجوال بيزك( VBE ) أ) شريط القوائم : تماما مثل أي برنامج آخر يمكنك استخدامه ، فشريط قوائم VBE يتضمن الأوامر المختلفة ومكوناتها ، يمكنك استخدام هذه الأوامر والمكونات في VBE على فعل الأشياء ، والعديد من أوامر القائمة لديها مفاتيح الاختصار المرتبطة بها . الشكل التالي يوضح واجهة محرر البرامج VBE والتي تحتوي على الكثير من المكونات .. ب) مستعرض المشروع (Project Explorer ) : نافذة عرض المشروع تعرض شجرة توضح كل المصنفات المفتوحة في ملف إكسيل الحالي ( بما في ذلك المصنفات الإضافية والخفية ) عندما تعمل على VBE تعتبركل المصنفات والإضافات المفتوحة كمشاريع ، يمكنك اعتبار أن المشروع هو عبارة عن مجموعة من objects أو كائنات رتبت حسب مخطط معين . اضغط على علامة ( + ) الموجودة على يسار اسم المشروع في نافذة عرض المشاريع لتوسيع المشروع . ج) نافذة الأكواد ( objects ) : يضم VBE أداة أخرى ، تحتوي على نافذة الأكواد Code window أو Module window ، كل object في المشروع يرتبط بنافذة أكواد خاصة به . على سبيل المثال ، للإطلاع على نافذة أكواد للورقة Sheet1 ، انقر نقرا مزدوجا فوق Sheet1 في نافذة مستعرض المشروع . وحتى تضيف بعض أوامر VBA فإنها ستظل فارغة ... د) مستعرض الكائنات (Object Browser ( : ويضم VBE أداة أخرى ، تحتوي على نافذة الكائنات المتاحة لك خلال المشروع ، للوصول إلى مستعرض الكائنات ، اضغط F2 في شاشة VBE ، أو من قائمة عرض ( VIEW ) – مستعرض الكائنات (Object Browser ) القائمة المنسدلة في الأعلى قائمة تحتوي على مكتبة بها جميع وجوه الكائنات المتاحة حاليا .,. إذا كنت ترغب في تصفح كائنات إكسل ، حدد إكسل من القائمة المنسدلة. هـ ) نافذة الخصائص (Properties Window ) : الشكل يوضح نافذة الخصائص لأحد الكائنات بالمشروع ، وهو على سبيل المثال (CommandButton1 ) أو زر أمر 1 ، فعندما تريد تغيير عنوان هذا الزر فإنك تغير في إعدادات Caption لهذا الزر وتضع أي عنوان تريده مثل ( اضغط هنا – خروج – حفظ ... ) يمكنك ايضا أن تلعب مع بعض الخصائص الأخرى مثل الخط ، الطول لون الخلفية العرض ، والارتفاع لتغيير مظهر CommandButton1 . موجز سريع : آمل أن أكون قد وفقت في الجزء الأول في عرض المقدمة وأساسيات البرمجة عن طريق VBA ببرنامج إكسيل ، وعليك أن تفتح محرر أوامر بيزك في إكسيل وحاول استعراض الكائنات الخاصة بالمشروعات وتغيير بعض الخصائص ... ومنتظر ردودكم أكمل والا لأ لانها بصراحة أول مرة أعمل موضوع بالشكل ده ...

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

جزاك الله خير يا خبور كل الخير

والله انك مش ممكن الف شكر وجزاك الله خيرا يا استاذ خبور يا كل الخير

سهلة جدا تقف عند حدود الخلايا المراد تجميدها ( أي التي لا يراد تحريكها ) ، ثم قائمة إطار ، ثم تجميد الألواح يعني لو عايز تجمد الصف العلوي فقط تقف بالمؤشر على خلية a1 وتروح على قائمة اطار وتجمد الالواح لو عايز تجمد الصف العلوي والعمود الأول ( الأسماء مثلا ) تقف على خلية b2 وتعمل نفس الاول

معلش يا استاذنا عايز طلب آخر كنت عامل تكست دلوقتي عملت ليبل وسهمين زي ما انت عامل في فورم ادخال واستعلام في فاتورة عمل معايا نفس المشكلة وطبعا الحل عند الخير كله

ماشاء الله عليك يا استاذ خبور ايه الجمال ده بس الكود كبير قوي المهم انه حل المشكلة فعل اما الاستاذ الساهر طبعا دي مافاتتش علي لكن هي كانت المشكلة ان اعدادات الخلية زي ما قلت انت dd-mm-yyyy وكذلك فورمات التكست في الفورم والفاليو كمان لكن برضة كانت المشكلة قائمة ، لكن منين لينا عقل زي الأخ خبور جزاه الله خيرا

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

تم حل المشكلة والحمد لله بالكود التالي : ْْْْXX_1.Text = Format(Date, "yyyy/mm/dd") والفضل لله طبعا ثم الأخ خبور

ما شاء الله تسلم ايدك يا استاذ نزار

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

أخي أولا (( اضغط الملف )) ثم ارفقه في خانة اختر ملف واستعرضه من جهازك ثم تحميل

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

غلبت في المحاولة المسميات نفس اللي انت مسميها والشيت خليته نفس الاسم وكل شئ والكود من اوله لاخره والسطر اللي بتقول عليه في الاول وكل شئ لكن الخطأ تغير بعد كتابة السطر الاول واصبح كالتالي : run time error 438 ما هي المشكلة اذن

إممممممممممممم طب اي حد فاضي وعارف الطريقة يرد طيب

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

السلام عليكم أخي خبور مش عارف ليه لما طبقت على شغلي ممشيش الحال كويس عامة بيقف تنفيذ الترحيل وبيعلم على myco في المعادلة التالية [كود] .Cells(ENDROW, R + 2).Value = Me.Controls(Myco®).Value [/كود] عايز اعرف دي تعني ايه وليه المشكلة دي عندي وشكرا لك استاذنا الفاضل

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

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

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

شوف كده بشكل بسيط وعلى أدي خالص aysam01.rar

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

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

حبيت أجدد شكري للأخ عمر جزاه الله خير وأقولك اني عدلت الكود بتاع ComboBox التاني علشان ياخد بياناته من ComboBox الأول وطبعا ده لاني احتجت اكتب اكواد كتيرة فحاولت لغاية ما وصلت للنتيجة نفسها بس بطريقة أخرى يعني طريقتك كالتالي : If ComboBox2.Text = "المصروفات" Then ComboBox1.RowSource = "مصروفات" ElseIf ComboBox2.Text = "العملاء" Then ComboBox1.RowSource = "العملاء" وهكذا ، ولأني عندي حسابات ضخمة فعملت الكود التالي : ComboBox1.RowSource = ComboBox2.text وبرضة طبعا الفضل لله ثم فكرتك جزاك الله خير

تشكر يا جيستيك