رائد 1982

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

ارجو الرد

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

الاساتذة الكرام انا متابع للموضوع من بدايته وانتظر الاجابة للتعلم ولكني لم افهم ما المقصود بـ 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% ساراجع الملف الاساسي واخبرك بالنتيجة شكرا استااااذي العزيز