احمد حمور-ابوعبدالله

اخي الحبيب خبور خير بسم الله ما شاء الله عليك مبدع والله ورائع

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

اخي مراد اضم صوتي لصوت اخوي ابو العبادي بانه يوجد رسالة خطأ تظهر عند فتح الملف ولكني تغلبت عليها وارفقت لك ما طلبت ولو انني ما زلت مصمم انه انشاء كومبوبكس بدل التكست بوكس افضل من انشاء فورم اخر للكومبوبوكس ولكن هذا طلبك ولك ما طلبت form d'affichage du liste1.rar

اخي عادل حنفي الله يجزيك كل الخير

اخي عادل مبدع كعادتك

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

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

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

اخي عصام على فكره انا ما بعرف ليش احنا بدنا كل شئ على الجاهز يعني المنتدى ملئ بالبرامج التي صممها كبار المنتدى وبها تقريبا كل سؤال يطرح في المنتدى فلو اخذنا بضعا من الوقت في البحث في المنتدى سنجد ما نريده دون عناء فجميعنا هنا متطوعون ولنا اعمالنا الاخرى وان تمكن لنا نرد بقدر المستطاع والحمدلله الكل يشارك بقدر ما يملك من استطاعته ومن وقت فراغه فليس بالضروره ان نرد على الموضوع السالف ذكره وهو موجود ومصمم بطريقه رائعه من مشرفنا الكبير خبور خير حيث ان برنامج الفاتوره الذي عمله به تقريبا ما تطلبين شوية جهد وشوية بحث ستجدي ما تريدين وفي مواضيع اخرى كثيره * وهذا هو رابط استاذنا خبور خير http://www.officena.net/ib/index.php?showtopic=24322 اعتقد انه يفي بالغرض

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

اخي مراد سعادتي تكمن بانك استطعت ان تعتمد على نفسك وتنجز ما اردته انت بالمثابره والتحدي ، وهذه كانت رسالتي لك من البدايه وها انت تثبت انك جدير بها موفق والى الامام ان شاء الله

جرب هذا افضل calendar1.rar

لا اظن ذلك ما طبيعة الماكرو الذي تستخدميه وهل تستخدمي الفورمز وان كنت تستخدمي الفورمز هل تستخدمي صور معينه داخل الفورم ان امكن حاولي ان ترسلي الملف ربما يستطيع احد الاخوه اوانا مساعدتك

تفضل المرفق calendar.rar

بعد التحيه والاحترام اظن انك تحتاجين الى استرجاع اعدادات الاكسل لانها حصلت معي قبل يومين استرجاع اعدادات الاكسل.rar

موفق والى الامام اخي كيماس تقبل تحياتي

اخي العزيز خير امه تقبل تحياتي

الرجاء العمل على حذف السطر الذي باللون الازرق من الكود التالي في فورم الاكواد رقم 7 Private Sub ComboBox1_Change() Dim r As Integer, rr As Integer, endrow As Integer With Sheet26 endrow = .Range("a" & .Rows.Count).End(xlUp).Row For rr = 2 To endrow If .Cells(rr, 1).Value = Val(ComboBox1) Then [b][color="#000080"]Application.Cells(rr, 1).Activate[/color][/b] For r = 1 To 5 Me.Controls(mycon(r)).Value = .Cells(rr, r).Value Next r Exit For Else TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" End If Next rr End With End Sub Application.Cells(rr, 1).Activate اقصد هذا السطر

اخي الجزيره انت المبدع حقا لحسن خلقك

ابها الاسد الجريح بس لو اعرف من شو مجروح بارك الله فيك على ردك وتقبل تحياتي ========================================= اخي العزيز مراد مبروك عليك اتمام البرنامج وهذا كله من جهدك انت اما بالنسبه للكالندر بصراحه انا شفتها بس ما بقدر احلها لانها مليئه بالتعقيدات ولكن يمكنك استخدام الكالندر العاديه المرفقه داخل صندوق ادوات الفجوال بيسك فهي اسهل وغير معقده اما في حال انك تريد فقط معرفة اين يوضع الكود داخل التكست بوكس لاظهارها فهو مثلا Private Sub TextBox1_Enter() وهنا تضع فقط اسم اليوزر فورم الخاص بالكالندر End Sub

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

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

الاخوه الاعزاء مشكورين على ردودكم الجميله

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

اخي جمال المغربي بارك الله فيك وشكرا لك