اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

افتح ملف جديد من 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

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

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

اخي YasserKhalil

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

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

اخي abo_alaa

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

Private Sub CommandButton2_Click()

Range("A1:A10").Select

Selection.ClearContents

End Sub

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

دمتم بخير

أيسم إبراهيم

RANGESELECTION.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

===========

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

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

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

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

رابط هذا التعليق
شارك

الأخ عادل

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

اخواني

ايسم ابراهيم

هشام شلبي

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

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

اخي 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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

أبو عبدالله

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

ولكن

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

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

اخوكم بوفيصل

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه 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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

اخوكم

رابط هذا التعليق
شارك

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

سؤال بسيط

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

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

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

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

الف شكر

تم تعديل بواسطه يوسف عطا
رابط هذا التعليق
شارك

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

سؤال بسيط

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information