عمرو.محمد

اخى الكريم رجاء الايضاح اكثر عن طلبك

اخي الكريم تفضل ليس الشيفت فقط ولكن كل ما يمكن ان يضغطه المستخدم من ازرار غير مرغوب فيها فقط انقل الماكرو وفى حدث workbook_open اكتب call dis Sub dis() Application.OnKey "^{n}", "" 'new workbook Application.OnKey "^{f12}", "" 'ctlr+f12 Application.OnKey "^{f12}", "" 'ctlr+f12 Application.OnKey "^{f11}", "" 'ctlr+f11 Application.OnKey "^{f10}", "" 'ctlr+f10 Application.OnKey "^{f9}", "" 'ctlr+f9 Application.OnKey "^{f5}", "" 'ctlr+f5 Application.OnKey "^{f4}", "" 'ctlr+f4 Application.OnKey "^{f3}", "" 'ctlr+f3 Application.OnKey "^{f2}", "" 'ctlr+f2 Application.OnKey "^{f1}", "" 'ctlr+f2 Application.OnKey "^{p}", "" 'ctlr+P Application.OnKey "^{ESC}", "" 'ctlr+esc Application.OnKey "+{f12}", "" 'shift+f12 Application.OnKey "+{f11}", "" 'shift+f11 Application.OnKey "+{f10}", "" 'shift+f10 Application.OnKey "+{f9}", "" 'shift+f9 Application.OnKey "+{f7}", "" 'shift+f7 Application.OnKey "+{f5}", "" 'shift+f5 Application.OnKey "+{f3}", "" 'shift+f3 Application.OnKey "+{ESC}", "" 'shift+f3 Application.OnKey "%{F10}", "" 'alt Application.OnKey "%{F11}", "" 'alt Application.OnKey "%{F8}", "" 'alt Application.OnKey "%{f4}", "" 'alt Application.OnKey "%{f3}", "" 'alt Application.OnKey "%{f2}", "" 'alt Application.OnKey "%{f1}", "" 'alt Application.OnKey "%{ESC}", "" 'alt Application.OnKey "{F11}", "" Application.OnKey "{F12}", "" Application.OnKey "{F9}", "" Application.OnKey "{F5}", "" Application.OnKey "{F4}", "" Application.OnKey "{F2}", "" Application.OnKey "{F3}", "" Application.OnKey "{F1}", "" Application.OnKey "{ESC}", "" End Sub

ماذا تريد اخى الكريم ؟

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

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

اخى الكريم بكل بساطة اريد عمل label يمثل progress لتنفيذ عملية ادخال البيانات كاللذى فى الصورة عند الضغط على حفظ تقوم الفورم المسؤله بالتفيذ واثناء التنفيذ يظهر البروجرس بار على الفورم فى loop % حتى 100% حيث الاكتمال وتتزامن مع وقت التنفيذ الفعلى وانا شارح والملفات شارحة نفسها اخى الكريم ولكن منذ يومان لم اجد احد يساعدنى ؟!!!!! جزاكم الله خير.

-اولا بارك الله فيك على المجهود وبارك لك فى علمك. -ثانيا ارجو المساعدة فى هذا الطلب حيث يشكل لى اهمية كبيرة وجزاكم الله كل خير اخوانى الكرام.

للرفع

للرفع يا اهل الخير.

حاضر اخى الكريم واود المساعدة جزاكم الله كل خير . المرفق به ملفين احدهم للعلامة عبدالله باقشير يحتوى على فورم بحث ومثبت عليه label لتقدم العملية والاخر به ملف يحتوى على فورم ادخال بيانات المطلوب اود تنفيذ شريط التقدم الموجود فى ملف الاستاذ عبدالله باقشير على الفورم الاخرى فى الملف Book1 وشكرا.. New WinRAR archive.RAR حاولت كثيرا ولكنى حقا لم استطيع التنفيذ ولم افهم الكود

اخوانى الكرام هذا كود للعلامة خبور خير اود ان افهمه كى اعدل علية واطبقه على مشروعى وشكرا '--------------------------------- (Call kh_Update_Par(i, Lr) DoEvents '------------------------------ ============================================================== Private Sub kh_Update_Par(MI As Long, MX As Long) Static N As Integer If N = 0 Then Me.MousePointer = 11 Me.LabelPar.Visible = True Me.LabelPar.Caption = "" N = Int(MX / 30) End If '---------------------------------- If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n" '---------------------------------- If MI = MX Then N = 0 Me.LabelPar.Visible = False Me.MousePointer = 0 End If End Sub ========================================================================== Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Me.MousePointer = 11 Then Cancel = 1 End Sub

اخوانى الكرام اعضاء منتدى اوفيسنا التعليمى الكبير هل من مساعدة من الخبراء ؟ 1- المرفق به يوزرفورم ترمى بيانات فى اماكن محدد اود عمل بروجرس يوضح الانتهاء ويكون بناء على وقت تنفيذ الماكرو ان امكن وان لم يمكن يبقى على قاعدة فور الموجودة فى كود الفورم بحثت كتير وجبت امثله لكنى لم استطيع تنفيذها على مشروعى واحترت بصراحة وكان نفسى اطبق مثال الاستاذ خبور خير الرائع ولكن لم افلح. شكرا مقدما وجزاكم الله كل خير New WinRAR archive.RAR للرفع اخواني الكرام....

الله يكرمك يا اخي ويوفقك واحنا امين.

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

تفضل يا اخى هل هذا ما تريد ؟ كموبوبكس و تكست بكس.rar

ياريت الايضاح اكثر يا اخى

هل هذا ما تريد يا اخى 1-edited.rar

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

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

اخي الكريم يمكنني عمل ما طلبت خصيصا لك ولكن بمقابل مادي معقول مراعاة للمجهود وشكرا. للاستفسار Elomdaalex2014@gmail.com

يوجد برنامج شامل للمشتريات والمبيعات والاجل (المدين والدائن) والمصروفات والارباح وفواتير البيع سهل بسيط جدا بدون تجميل فيه فعلا بسيط لكن بمقابل مادى حيث المجهود اخى الكريم للتواصل والاستفسار عن التعديلات او عمل شىء مناسب لك بالطلب elomdaalex2014@gmail.com

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

نفس المشكلة

للرفع - ياريت المرة ديه يكون فى رد لأنى بقالى اكتر من 4 مشاركات مفيش حد بيعبرنى . وشكرا

السلام عليكم اخوانى الكرام ارجو المساعدة شيت اكسل به تمبلت فاتورة بيع عند كتابة السعر يقوم بادراج صف اخر لكتاباة بيانات الفاتورة ويقوم بنسخ تكست بوكس و اجماليات الفاتورة من مكان غير مرئى للمستخدم ولصقهم اسفل اخر صف به بيانات بالفاتورة المطلوب هو اذا تعدى عدد خانات الفاتورة 14 صف يصبح التكست بوكس اللذى به شروط الضمان نصفة فى صفحة والنصف الاخر فى صفحة اخرى مما يسؤ شكل الفاتورةبعد الطباعة ولهذا بحثت كثيرا عند كود لادراج التكست بوكس ليلائم نهاية صفحة الطباعه بمعنى اذا اكتمل عدد صفوف بيانات الفاتورة 14 صف واكثر يتم نسخ التكست بوكس اسف الصفحة التالية وهكذا.... New Compressed (zipped) Folder.zip