شوقي ربيع

السلام عليكم ان كان فهمي لطلبك صحيح اذهب الى الخلية التي تريد ان يكون فيها اسم المحرر في شيت الطباعة وكتب هذه المعادلة ='2003'!H3 ونفس الامر بالنسبة للتاريخ ='2003'!I3

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

السلام عليكم استادي العزيز لك جزيل الشكر لردك الجميل تحياتي

السلام عليكم بالنسبة لسؤال الاول لايهم اسم الوحدة القياسية (Standard Modules) ان كان Module1 أو Module 4 أو حتى ان غيرت التسمية الخاصة به لانه لاعلاقة له بالاكواد التي يحويها وسيشتغل عادي على أي مسمى من الوحدات القياسية اما السؤال الثاني فان تسمية الطبقات ( Class Modules) مهمة ولايجب تغيرها لانه اذا غيرت هذه الاخيرة وجب الرجوع الى الوحدة القياسية وتغيير عبارة Public bouton() As New RabieV الى التسمية التي غيرناها ايها والا فأن الكود يعطينا خطاء في بدات تشغيل البرنامج وسبب هو الجاوب للسؤال الثالث هو ان الطبقات ( Class Modules) في عبارات موجزة هو عبارة عن قالب يتم إنشاء مثيل كائن فيه في وقت التشغيل. حيث انه يستطيع التعرف على خصائص الكائن والأساليب المستخدمة لتحديد سلوكه اقصد بذالك الاحداث الخاصة بالكائن والكائن في مثالنا هذا هو CommandButton بحيث اصبح بمقدورنا تعريف جميع CommandButton الذي يحويهم الفورم مرة واحدة كمجموعة بدل مانفعل ذالك كل على حدى بحث بكل بساطة اخذنا حدث تحريك الماوس على CommandButton وامرناه بتغير لون CommandButton الذي هو في حالة الحدث أي في حدث تحريك الماوس ومن هنا نعود الى السؤال الثاني هو لماذى لايمكننا تغير اسم الطبقة دون تغيرها في الوحدة القياسية بكل بساطة لان الوحدة الطبقة هنا اصبحت كائن ارجو ان اوكن قد اوصلت الفكرة لاني بصراحة لسة جيدا في شرح تحياتي .

السلام عليكم جرب هذا ن كان المطلوب غيير في التاريخ والوقت الذي يناسبك وضع المكروات التي تريد استدعائها في مكان المسج بوكس Sub Macro1() Application.OnTime TimeValue("18:08:00"), "Macro2" End Sub Sub Macro2() MsgBox "macro2" Application.OnTime TimeValue("18:09:00"), "Macro3" End Sub Sub Macro3() MsgBox "macro3" If Date = "12/03/2014" Then Call Macro4 End Sub Sub Macro4() MsgBox "macro4" End Sub

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

السلام عليكم الكود يعمل عادي وبطريقة سليمة ربما اخطأت في التركيب هذا ملفك مطبق عليه الكود ملاحضة يمكن تطبيق الامر على أي عدد من الفورمات في الملف نفسه مثلا لديك اربعة فورمات في ملفك كل ماعليك هو كتابت هذين الكودين في حدث الاكتفيتي وحدث تحريك الماوس على التوالي للفورم الذي تريد تطبيق الامرعليه Private Sub UserForm_Activate() Chaouki Me, vbRed End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Rabie_normal End Sub لون ازرار الفورم.rar

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

السلام عليكم حسب فهمي للسؤال اعتقد ان هدا هو المطلوب الحدف بواسطة اليست.rar

السلام عليكم اعتذر على الرد المتأخر ولك جزيل الشكر على مرورك الطيب تحياتي

السلام عليكم اعتذر على الرد المتأخر ولك جزيل الشكر على مرورك الطيب تحياتي

السلام عليكم اعتذر على الرد المتأخر ولك جزيل الشكر على مرورك الطيب تحياتي

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم اعتذر على الرد المتأخر ولك جزيل الشكر على مرورك الطيب تحياتي

السلام عليكم اعتذر على الرد المتأخر ولك جزيل الشكر على مرورك الطيب تحياتي

السلام عليكم الاستاد تومي محمد تقبل مني اعتذاري للرد المتأخر لاني لم ارى ردك الا الان بالنسبة للمشكلة التي ظهرت عندك غير Me.TextBox5 = Format(Date, dd / mm / yyyy) الى Me.TextBox5 = Date فقط وكذلك الامر بالنسبة الى text6 لا تتردد في طلبي ان واجهتك أي مشكلة مع البرنامج تحياتي

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

السلام عليكم من اين أبداء ؟ هو السؤال الذي حير كل شخص اراد تعلم شئ ما من تجربتي الشخصية لدي قول واحد (الحاجة أم الاختراع) شخصا لم اكن اعرف عن الاكسل سوى رسم الجداول و بعض المعادلات البسيطة على قدر ما إحتجة له في شغلي في يوما من الايام خطرى على بالي تصميم شيت يسهل عليا عملي من هنا بدأت..... لاكن المعلومات الضيقة التي كانت عندى حول الاكسل لم تكن بقدر طموحي المشروع الذي تصورته لذى بدأت أبحث في النت في كل مرة كنت اتعلم معادلة جديدة وكلما تعلمت شيء جديد ضهرى في فكري تصور جديد للمشروع الذي اعمل عليه خطوتا خطوة الى ان صممت اول برنامج لي على الاكسل وكان كله معادلات ولم اكن اعرف عن اليوزرفورم شيء في ذالك الوقت ولم اسمع به قط الا ان دلني الله الى افضل واغلى واعز منتدى على قلبي هو هذا الصرح العضيم الذي يجمعنا اليوم كالاخوة لما تعرفة على الفورم اخذ كل عقلي واصبح كل اهتمامي به وحده لذى قررت ان احول برنامجي الاول الى فورم وبالفعل حولته واصبح او برنامج لي صممته على الفورم خطوتا خطوة معلومتا معلومة المهم هو الممارسة والصبر والاصرار والحمد لله الى ما وصلنا اليه خلاصة القول هو ان يكون لك مشروع تعمل عليه لكي تتعلم منه وهذا مجرد رأي الشخصي ونصيحة اخرى هو صحيح يوجد العديد من الكتب والدروس والفيدياوات لكي تتعلم الاكسل لاكن ايضا من تجربتي الشخصية وبسبب الانقطاع الدائم لنت عندى وجدت ان افضل كتاب لتعلم الاكسل موجود في الاكسل نفسه فقط استعمل help فكل ماوجدت معادلة او دالة لم تفهما اكتبها على help وستجد لها جواب وفي الاخير افضل مدرسة لتعلم الاوفيس بكله هي مدرسة أوفيسنا بما انك الان احد اعضاء هذه المدرسة فبأذن الله ستتخرج منها بأعلى المراتب ســــــــــــــــــلام

السلام عليكم جبرب تعريف المتغير lr Dim Lr As Long اكتبها تحت او فوق تعريف المتغير x Dim X As Integer

السلام عليكم هذا مثال بواسطة الحلقات التكرارية ComboBox.rar

السلام عليكم مرحبا جميعا أخوكم في الله شوقي ربيع تاريخ الميلاد-- 18/11/1985 التعليم-- ثالثة ثانوي علوم دقيقة المهنة-- مسير موارد بشرية في شركة بيترولية الحالة الاجتماعية-- اعزب الاهتمامات-- البرمجة vb--vba وخبرة بسيطة في برمجة صفحات الويب والمواقع اعشق الاليكترونيات خاصتا (صيانت الهواتف النقالة) كما أحب الاعتناء بالنبتات وخاصتا الاشجار الايمايل-- rabiehot-net@hotmail.fr

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

الملف بعد التعديل ادراك صف بنفس التنسيق والمعادلات بورقتين عمل من خلال فوروم حذف واضافة مع جعل صف فارغ قبل صف التوتل النهائى.rar

جزاك الله خيرا لكلماتك الطيبة

الا يراى الجمال الى الانسان الجميل مثلك شكرا لمرورك .ولعباراتك الجميلة