هل تود ان تكون مبرمجا علي الاكسل

[عادل حنفي]

السلام عليكم

اخواني الاعزاء

كثير منا يبحث لان يكتب كود و يضغط علي ذر لينفذ امر ما

و تم عمل دورات كثيرة لذلك

اليوم جاءتني فكرة جديدة بطريقة تفاعليه اتمني ان ان يكتب لها النجاح

مارايكم اذا دخلنا مباشرة لما نريد

و ماريده هنا سابدأ فكرته فسوف اطرح شيئ اريد عمله مهما كان بسيطا

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

محاولة مني للاختصار و الدخول في صلب الموضوع

و الكل طبعا مدعو للاسئلة و ايضا مدعو للرد علي الاسئلة و كلما كانت الاسئلة بسيطه

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

كبيره لايستطيع منها المبتدئ فهم شئ

و في المجمل قد يكون هذا موضوعا مرجعا لكل مبتدئ

و سأبدأ من عندي في مشاركة لاحقة بسؤال ثم الاجابة عليه كبداية

و لا يخجل احد من سؤاله مهما كان بسيطا فهذا الموضوع اقصد به هذا النوع من الاسئلة

فانا اريد الكل هنا حتي الذي لا يعرف شسئ مطلقا

و الرجاء البساطة في الاسئلة حتي لا يكون هناك الحاجة لوقت طويل للاجابة عليها

و يفقد الموضوع المقصود منه

ارجو ان يكون موضعا يستفاد منه اكبر عدد و يشترك به اكبر عدد سواء من الاعضاء الجدد

و الي المشرفين جميعا و سيكون الفيصل في استمرار الموضوع من عدمه هو تفاعلكم جميعا سواء بالاسئلة او بالرد عليه

خالص تحياتي و تقدير

[ياسر خليل أبو البراء]

سر على بركة الله أخي الحبيب

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

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

أخوك أبو البراء

[ابو الآء]

بارك الله فيك اخى الكريم

وليكن انا اول السائلين ؟

ما الفرق بين المعادلات العادية و المعادلات الضيف؟

وكيف يكم الاستغناء عن وضع معادلة الترحيل فى كل خليه واستبدالها بكلمة ترحيل يااار يت شرح مبسط؟

ولك خالص تحياتى

اخيك ابو الاء .

[عادل حنفي]

كيف تجعل عند الضغط علي ذر ان تحدد خليه معينه

او مجموعة خلايا معينه؟

افتح ملف جديد من view ثم Toolbars و اختار control Toolbox و ذلك لاظهار شريط الادوات

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

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

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

الذي يمكنك من التعديل علي شكل الزر و كذلك كتابة الكود لهذا الزر و ايضا عند الضغط علي الزر

بزر الماوس الايسر و اختيار Properties ستظهر لك قائمة تستطيع التعديل بها علي مواصفات الزر

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

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

ايقونه علي شكل مثلث اقصي يسار الشريط فاذا كانت مضغوطه فمعناه انك في وذع التصميم و ان لم تكن

فانك في وضع التنفيذ اي الوضع الذي اذا ضغط فيه علي الزر و كنت قد كتبت له كود سيقوم بتنفيذ هذا الكود

نضغط علي الزر مرتان شتظهر لنا صفحة محرر الاكواد و ستجد سطران يها

الاول

Private Sub CommandButton1_Click()

و الثاني

End Sub

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

Range("H11").Select

ليكون الشكل النهائي كالتالي

Private Sub CommandButton1_Click()

Range("H11").Select

End Sub

اما اذا اردت تحديد مجموعة خلايا او مدي معين و ليكن من H11 الي H20

Private Sub CommandButton1_Click()

Range("H11:H20").Select

End Sub

اغلق محرر الاكواد و اضغط علي المايقونة المثلث في الشريط السابق

ذكر لنكون في وضع التصميم و اضغط علي الزر لتعرف نتيجة ما قمت بعمله

جرب عمل هذا و اترك لتكيرك المجال للادراك و الاستنباط و التخيل

لتساعد نفسك علي التعلم و بسرعة

انا قصدت هنا ان اتوسع في التفاصيل شيئا ما لان النقطه التي ستفصل

مرة ستعرف انها مهصلة مسبقا و المفرض من دخل علي الموضوع قد عرفها و بالتالي لن تشرح مرة اخري

هذا البدايه وسنري ما يحدث لاحقا اما المتابعة او التوقف

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

المهم الموضوع بسيط جربوا واخبروني النتيجة

خالص تحياتي و تقديري

[عادل حنفي]

السلام عليكم

اخي YasserKhalil

بارك الله فيك و انت معي ايضا و مدعو للمشاركة معنا و قد يكون هذا الموضوع محققا لما كنت تصبوا اليه انت ايضا

في موضوعك مكتبة الاكواد

اخي abo_alaa

وبارك الله فيك اخي

و ليس تمنعا في الاجابة عليك و لكن انا ان سمحت لي اريد الاسئلة متسلسلة من البداية و حتي النهاية لتدرج

الفهم عند من يرجع الي الموضوع و لعدم تشتت الموضوع ويذهب الهدف منه

لكم مني جميعا خالص التحية

[امان]

السلام عليكم ورحمة الله

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

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

تحية تقدير للجميع ولأخي الفاضل aah_aah2008 على مبادرته الجميلة

[أيسم إبراهيم]

السلام عليكم جميعا

أستاذنا الأستاذ عادل

جزاك الله كل خير على الطرح الرائع و الطريقة المبتكرة

ندخل في الموضوع

بعد أن قمنا بتحديد المدى المطلوب كما شرحت

كيف يمكننا أن ننفذ أمر ما على المدى الذي تم تحديده؟؟

وليكن الأمر مثلا مسح محتويات هذا المدى

هل سيكون الكود بالشكل التالي

Private Sub CommandButton2_Click()

Range("A1:A10").Select

Selection.ClearContents

End Sub

المرفق ملف تم فيه تنفيذ شرح الأستاذ عادل والمتابعة من بعده بجزئية مسح محتويات المدى

دمتم بخير

أيسم إبراهيم

RANGESELECTION.rar

[السيد عبد الفتاح]

السلام عليكم ورحمة الله وبركاته

الأخ العزيز / aah_aah2008

بوركت وزادكم الله علماً

بارك الله خطاك ونفع بعلمكم فامض في طريقك يا أخي ونحن لك مؤيدون

بالفعل موضوع يستحق المشاركة والتفاعل ونرجو من الله أن يتم طرح مواضيع وأفكار جديده يتم الإستفادة منها

جزاكم الله خيراً

[هشام شلبى]

السلام عليكم

===========

بارك الله فيك اخى عادل

ان شاء الله ستكون مشاركات مفيدة

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

شرح مشاركة 4 عادل حنفى.rar

[ياسر خليل أبو البراء]

الأخ عادل

جزاكم الله خيراً على هذا الموضوع الذي سيكون له أثر واضح وملموس في تعلم كثير من الأعضاء

بارك الله فيك أخي هشام

شغل على ميه بيضه

ياريت تواصل العمل على هذا المنوال

الشرح بالفلاشات .. ممتع ومفيد وذو أثر ملموس في عملية التعلم

الشكر موصول للأخ أيسم إبراهيم على الملف المرفق

أخوكم أبو البراء

[عبد الفتاح كيرة]

ممتاز جدا

يبدو أن هذا صيف تعلم الأكواد

سؤال

ما معنى

[a1]

و ما الفرق بينها و بين

cell(1,1)

و

range("a1")

[اوفيس 2003]

رااااااااااااااااااااااااااااااائع رااااااااااااااااااااااااااااااااااااائع

اتمنى اتمنى ان تظلو هكذا شرح نظري وشرح عملي بالفلاش الله يبارك فيكم

[عادل حنفي]

السلام عليكم

اخي امان بارك الله فيك و دعواتك

اخواني

ايسم ابراهيم

هشام شلبي

اشكركما علي المرور و كلماتكما الجميله

و سعدت باضافتكما و التي اتمني ان تكون مستمره ان شاء الله

اخي YasserKhalil بارك الله فيك

اخي kemas

المقصود بـ

RANGE("a1")

اي الخليه a1 اما المقصود بــ

CELLS(I,1)

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

For I = 4 To 13

If Cells(I, 4) = "" Then

Cells(I, 4).Interior.ColorIndex = 34

End If

Next

او بالشكل التالي

X = 4

For I = 4 To 13

If Cells(I, X) = "" Then

Cells(I, X).Interior.ColorIndex = 44

End If

Next

و الكود معناه ان يمر الكود علي الخليه الموجوده بالصفوف من 4 الي 13

و العمود الرابع فان وجدها خاليه يعطيها لون اخر

مرفق ملف يوضح المقصود

خالص تحياتي

2.rar

[الحسامي]

السلام عليكم

اخي العزيز عادل حنفي

موضوع اكثر من رائع وسيستفيد منه الجميع ان شاء الله

جعله الله في ميزان حساناتك

وبارك الله فيك

اخوك عماد الحسامي

[exedragon]

موضوع جميل وبارك الله فيك وجزاك خير ان شاء الله

[أبوعبد الله]

أخي الحبيب / عادل

مشاركة قيمة بكل المقاييس وأتمنى لك كل التوفيق مع كل من سيشارك بها فلك جزيل الشكر والتقدير والشكر موصول للأخوة الأعزاء هشام شلبي وأيسم إبراهيم ، وإلى الأمام دائماً على بركة الله .

مع حبي وتقديري

أبو عبدالله

[عادل حنفي]

السلام عليكم

اخي العزيز الحسامي

اشكرك علي كلماتك و علي مرورك الكريم

اخي و حبيبي ابو عبدالله

الله يباركلك في كل خطواتك فانت اخا عزيزا

و طبعا انتم معنا انت و الاخ الحسامي لاثراء الموضوع لاستفادة اكبر عدد ممكن

خالص تحياتي و تقديري

[يوسف عطا]

الأخ الكريم صاحب الدار (الموضوع)

الأخوة الأعزاء الضيوف

بعد التحية والسلام

الموضوع ممتاز وأكثر من رائع

ولكن

تفضل الأخ الكريم صاحب الدار وذكر أنه يرغب أن يكون الموضوع متسلسلاً ومتدرجاً

وفهمت أنه يقصد التدرج من الأكواد السهلة البسيطة ككود التحديد ثم كود المحو كما تفضل الأخ ايسم

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

ولكن لا أعلم وجدت الموضوع يقفز قفزة قوية بالسؤال فى المشاركة رقم 11 والرد عليه فى المشاركة رقم 14

فأحسست أنه ربما سيؤدى تكرار هذا الوضع لتفريغ للموضوع من هدفه وهو التدرج والتبسيط والتعليم

أعتذر لو كان رأيى مخالفاً لبعض الآراء ولكنى لا أقصد به إلا الخير

وفى هذا المجال دعنى أسأل سؤال فى البداية

ما هى الطرق المختلفة (الأوضاع المتنوعة) لوضع الكود فى مكانه

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

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

شاكر لكم جميعاً

[BuFaisal]

اخواني الاعزاء

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

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

لو فرضنا انه لدي فورم "جدول" يجمع البيانات من اقسام او فروع مختلفة واود ان اصدر هذه المعلومات الى ملف اخر "قاعدة بيانات اساسية" على ان يقوم بتالي

1- كل فورم سيكون له رقم خاص لذلك عند الترحيل سيبحث اذا كان هذا الرقم موجود في قاعدة البيانات ويطرح استفسار حذف جميع بيانات القديم وستبداله بالجديد او الغاء

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

3- سيكون موقع قاعدة البيانات ثابت في الكمبيوتر واسم الصفحة لن يتغير لتسهيل عملية الترحيل

4- الفورمات عادةً يتم استلامها عن طريق الايميل فهل يمكن ان نرحل البيانات مباشرة عن طريق فتح الرابط وتفعيل كود الترحيل حيث ان قاعدة البيانات ثابته في موقعها المحدد على الكمبيوتر

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

وفي الختام اعتذر عن التكرار والاطاله

اخوكم بوفيصل

ترحيل بوليصة تأمين-1.rar

[وائل مراد 700]

فكرة جميله وموضوع رااااااااااااااائع أنا كنت أبحث على طريقة كيف أتعلم الكود

وإن شاء الله سوف أتعلم معكم

لكني نريد أن نتعلم أيضاً ما هي الطرق أ, الأساليب المتبعة لكي أنا اصمم كود جديد ليس أن أخذه جاهز منكم

ليس تقليلاً بكم ولكن تحيقيق لبعض متطلباتي في مجال عملي وفي مساعدة غيري إن إستطعت

والله المستعان

وبارك الله فيكم جميعا ً

تم تعديل يونيو 8, 2010 بواسطه wael700

[هشام شلبى]

السلام عليكم

===========

فى اطار نفس الموضوع وقبل الانتقال الى موضوع اخر

اود اضافة بعض الاوامر المرتبطة ب CommandButton1_Click()

هذا زر امر طباعة

Private Sub CommandButton1_Click()

ActiveWorkbook.PrintOut

End Sub

هذا زر اختيار ورقة معينة ولتكن ورقة4

Private Sub CommandButton1_Click()

Sheets(ورقة4").Select

End Sub

امر حفظ

Private Sub CommandButton1_Click()

ActiveWorkbook.Save

End Sub

امر خروج

Private Sub CommandButton4_Click()

ActiveWorkbook.Close

End Sub

امر كتابة تاريخ اليوم فى خلية محددة

Private Sub CommandButton1_Click()

Range("A1") = Now

End Sub

امر معاينة

Private Sub CommandButton1_Click()

ActiveWindow.SelectedSheets.PrintPreview

End Sub

امر اظهار فورم

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

امر تحديد مدى معين

Private Sub CommandButton1_Click()

Columns("D:D").Select

End Sub

امر تحكم فى عرض عمود معين

Private Sub CommandButton1_Click()

    Columns("D:D").ColumnWidth = 2.50

End Sub

امر اخفاء عمود

Private Sub CommandButton1_Click()

    Columns("F:F").Select

    Selection.EntireColumn.Hidden = True

End Sub

امر تحديد صف

Private Sub CommandButton2_Click()

    Rows("8:8").Select

End Sub

امر تحديد عرض صف

Private Sub CommandButton2_Click()

    Rows("16:16").RowHeight = 2.24

End Sub

[امان]

السلام عليكم ورحمة الله

بارك الله فيك اخي هشام وبارك في جميع من شارك في الموضوع

لدي استفسار بسيط

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

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

اخوكم

[يوسف عطا]

تحية وسلام للجميع

سؤال بسيط

هل يوجد فرق بين عمل الماكرو وعمل الكود لو كانا يحققان نفس الهدف ؟؟

يعنى مثلاً ايهما أفضل؟؟

أيهما يؤدى لزيادة حجم الملف أكثر ؟؟

ايهما أسهل فى التنفيذ بالنسبة للإيكسيل؟؟

الف شكر

تم تعديل يونيو 8, 2010 بواسطه يوسف عطا

[يوسف عطا]

تحية وسلام للجميع

سؤال بسيط

بعد عمل الكود أردت عمل إسم للزر الذى ينفذه فلم استطع

كيف يمكن تعيين إسم مكتوب على الزر ؟؟

وكيف أتمكن من تعديل شكل الزر ليصبح مثلاً ثلاثى الابعاد أو على شكل صورة أو ايقونة

الف شكر مقدماً

[هشام شلبى]

السلام عليكم

===========

اخى يوسف طاب مساءك

على حسب ما فهمت هناك امران

الزر العادى

او

CommandButton

شاهد المرفقان

JOOOOOO.rar

JOOOO2.rar