رائد 1982

39 دقائق مضت, حمادة عمر said:

 

اكمل استاذنا الكريم .. فالبفعل سلسة ستكون مرجع للجميع

وان شاء الله في ميزان حسناتك يوم القيامة بان الله

تقبل خالص تحاتي

 

الف مبروووووووووووووووووك

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

وانتظر الاجابة للتعلم

ولكني لم افهم ما المقصود بـ first_time في الاكواد

فمرة  first_time = False

ومرة اخري  first_time = True

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

If first_time Then

 

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

ارجو الرد

ارفق ملف كمثال

لتجد العون من الاخوة والاساتذة الكرام

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

وانتظر الاجابة للتعلم

ولكني لم افهم ما المقصود بـ first_time في الاكواد

فمرة  first_time = False

ومرة اخري  first_time = True

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

If first_time Then
 

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

راائع استاذي القدير / بن عليه

ولي استفساران

1- اين كان مكمن الخطأ في الكود الاول وهل لا يمكن استخدامه بهذه الطريقة .. ولماذا ؟

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

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

لك مني ارق التحيات والتشكرات

كود في منتهي الجمال

استاذنا القدير / حمادة عمر

دمت لنا

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

كيف يمكن تنفيذ هذه الحلقة التكرارية لطبع هذا الفورم ( وامر الطباعة هنا كمثال حيث سيتم وضع اي اجراء مثلا )

مثلا كل مرة يأخذ التكست بوكس قيمة خلية معينة من a1 الي a120

وكل مرة عن الطباعة يكون فيها الاسم مختلف ( بالتتالي )

ولقد استخدمت هذا الكود ولكنه يخرج لي بخطأ في النهاية ولا يظهر ولا ينفذ الا الخلية الاولي

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

Sheets("Sheet1").Select
For i = 1 To 120
i = Cells(i, 1).Value
TextBox1.Value = i
Me.PrintForm
i = i + 1
Next i

في انتظار ردكم اساتذتي الكرام

حلقة دوران.rar

الاستاذ القدير  / شوقي ربيع

بوركت يا رجل ...

تم التنفيذ بالفعل بكفاءة علي ملفي

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

1- لم يتم تنفيذ الكود لدي الا بعد وضعه في Module1  واعني الموديل رقم 1 حيث كنت اضعه في Module 4  ولم يعمل ... فهل لهذا الموضوع علاقة بعدم تنفيذ الكود ام لا ؟؟

2-   وكذلك تغيير  Class1  الي الاسم المستخدم من حضرتك وهو RabieV .... هل لهذا الموضوع علاقة بعدم تنفيذ الكود ام لا ؟؟

3 - لماذا تم استخدام Class Module   ولم يتم استخدم الـ Module  العادية ؟؟!!  ( مهم بالنسبة لي لفهم الموضوع )

تقبل خالص خالص خالص تحياتي استاذي العزيز

تلميذك

الاستاذ القدير  / شوقي ربيع

انت بحق شخص راائع واستاذ كبيييييييييييييير

بالفعل هذا ما اريده بالضبط

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

هل للفرام اي تأثير في ذلك ام ماذا

واعلم اني اثقل عليك جدا ... برجاء تنفيذه علي الملف المرفق في المشاركة الاولي

لك مني ارق التحيات

تلميك

السادة الاساتذة

لدي فورم به عدد 63 زر تقريبا

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

في ذلك الوقت مختلف عن باقي الازرار

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

وقد قمت بالفعل بتنفيذه في المرفق ولكن علي زرين فقط ( الرئيسية - اغلاق ) ولكن ان اردت تنفيذ هذا الكود علي الـ 63 زر سيكون الكود طويلا جدا

فهل من حل لذلك

اعلم ان الحل لديكم ان شاء الله

لكم الشكر

واليكم الكود المستخدم الذي اقصده والملف المرفق

Private Sub CommandButton63_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton63.BackColor = 255
CommandButton64.BackColor = &HFF8080
End Sub

ملفات مرفقة

لون ازرار الفورم.rar

الف مليون مبرووك

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

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

الاستاذ القدير / حمادة عمر

لك مني ارق التحيات وجميع التشكرات

بمجرد وضع المعادلة في الخلية وتعديلها في الكود في الفورم اشتغلت تماااااااااااااااااااااااااااااام

ولا اعرف اشكرك باي طريقة ... والنتائج الاولية سليمة 100%

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

شكرا استااااذي العزيز

جزاك الله خير استاذنا

بالفعل رااائع

الاستاذ القدير الكبير / حمادة عمر

جزيل الشكر علي سرعة الرد والاهتمام

هكذا تعودنا منكم دائما وانتم تعلمونا

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

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

ما هو السبب علما بأنني مفعل الماكرو ولا يظهر معي اي رسايل خطأ

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

السادة الخبراء والاعضاء

لدي في الملف المرفق عمود A به قيم والعمود B به تاريخ ادخال كل قيمة

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

يظهر اجمالي القيم في العمود A في تكست بوكس 2

ملحوظة : حتي وان كانت التواريخ غير مرتبة في العمود B

ارجو ان اكون قد وفقت في توصيل طلبي

Book15.rar

الله الله علي هذا المنتدي الرااائع بأساتذته الكبار

زادكم الله من علمه

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

بارك الله فيك استاذنا الغالي / حمادة عمر

ابو الامورة  سمـــــــــــــــا

يالك من رااائع استاذنا القدير

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

الثلاثة افضل من بعضهم

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

يالك من رااائع استاذنا القدير

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

الثلاثة افضل من بعضهم

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

يالك من رااائع استاذنا القدير

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

الثلاثة افضل من بعضهم

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