أحمد فؤاد قام بنشر مارس 1, 2014 قام بنشر مارس 1, 2014 السلام عليكم ورحمة الله وبركاته أساتذتي وإخواتي أريد منكم طلب إن شاء الله يكون بسيط هل من الممكن أن يغلق ملف إكسل نفسه بعد خمسة دقائق مثلا إن لم يكن به حركة أو أي مدخلات علما بأن كل العمل خلال الفورم " أي بمعني لو لم يتم إدخال بيانات خلال الفورم خلال خمسة دقائق يتم الحفظ وغلق الملف " وطلب آخر هل أستطيع أن أرغم التكست بوكس علي أن يقبل أرقام فقط وإن تم كتابة نص تظهر رسالة خطأ في الإدخال أسف علي الإطالة وشكرا
إبراهيم ابوليله قام بنشر مارس 1, 2014 قام بنشر مارس 1, 2014 اخى احمد بالنسبه للطلب الثانى شاهد هذا الموضوع ستجد فيه ما تريد بإذن الله http://www.officena.net/ib/index.php?showtopic=49561&hl=
أحمد فؤاد قام بنشر مارس 1, 2014 الكاتب قام بنشر مارس 1, 2014 شكرا لك أخي إبراهيم مجهودك واضح بالمنتدي وسع الله لك في رزقك
إبراهيم ابوليله قام بنشر مارس 1, 2014 قام بنشر مارس 1, 2014 اخى احمد فى امان الله اتمنى لك التوفيق اما بالنسبه للطلب الاول فانا حاولت وفشلت وياريت لو نلاقى حل للموضوع ده من احد عمالقة المنتدى لكن فيه كود يقوم بعمل ذلك فى حالة عدم استخدام الفورم شاهد المرفق كود الذهاب الى شيت معين فى حالة ترك الشيت غير نشط.rar
محمد الشابورى قام بنشر مارس 1, 2014 قام بنشر مارس 1, 2014 أعتقد كود الحفظ و الخروج بدون تحذير أو رسائل Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit ننتظر رأى الخبراء 1
أحمد فؤاد قام بنشر مارس 2, 2014 الكاتب قام بنشر مارس 2, 2014 أخي إبراهيم أبو ليلة بشكرك علي إهتمامك وجزاك الله خيرا علي ماتقدمه من علم للمنتدي الملف المرفق جيد ولكن ليس المطلوب لأن العمل كله خلال الفورم فقط ويكون الملف مخفي لك مني التحية والتقدير
أحمد فؤاد قام بنشر مارس 2, 2014 الكاتب قام بنشر مارس 2, 2014 أخي الحبيب / إبراهيم If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 MsgBox "لا يمكن كتابة حروف هنا" End If هذا الكود عند إستخدام فواصل للعلامات العشرية فإنه لايقبل هل من الممكن أن يكون التنسيق #00.00 وشكرا علي تواصلك معي
إبراهيم ابوليله قام بنشر مارس 2, 2014 قام بنشر مارس 2, 2014 اخى الكريم هل تقصد هكذا Private Sub TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!0 #.-9]" Then KeyAscii = 0 End Sub
أحمد فؤاد قام بنشر مارس 2, 2014 الكاتب قام بنشر مارس 2, 2014 شكرا لك أخي / إبراهيم أنا تعبتك معايا فعلا كود رائع بارك الله فيك
أحمد فؤاد قام بنشر مارس 2, 2014 الكاتب قام بنشر مارس 2, 2014 أساتذتي الأعزاء هل يوجد لطلبي الأول طريقة أو كود جزاكم الله خيرا
وليد فتحي قام بنشر مارس 2, 2014 قام بنشر مارس 2, 2014 (معدل) وعليكم السلام ورحمة الله وبركاته أتفضل أخي الفاضل لعله المطلوب كود غلق وحفظ تلقائي بعد فترة زمنية معينه تحددها أنت ويمكنك من خلال السطر التالي داخل الكود تغيير المدة كما تريد vartimer = Format(Now + TimeSerial(0, 5, 0), "hh:mm:ss") غير الرقم 5 الي أي رقم تريده حيث رقم 5 يدل على الدقائق والصفر الموجود على يمين رقم 5 يدل على الثواني والموجود على اليسار يدل على الساعات تقبل مروري كود غلق وحفظ بعد مدة زمنية.rar تم تعديل مارس 2, 2014 بواسطه وليد فتحي
إبراهيم ابوليله قام بنشر مارس 3, 2014 قام بنشر مارس 3, 2014 اخى احمد لا تعب ولا حاجه انما هى واجباتتنا تجاه هذا المندى العظيم
إبراهيم ابوليله قام بنشر مارس 3, 2014 قام بنشر مارس 3, 2014 اخى وليد هذا الكود يقوم بغلاق الملف فعلا لكن مع استخدم الفورم لا يتم عمل الكود بشكل صحيح وحن فى انتظار ردود العمالقه
أحمد فؤاد قام بنشر مارس 3, 2014 الكاتب قام بنشر مارس 3, 2014 اخى وليد هذا الكود يقوم بغلاق الملف فعلا لكن مع استخدم الفورم لا يتم عمل الكود بشكل صحيح وحن فى انتظار ردود العمالقه أضم صوتي إلي صوت أخي إبراهيم الفكرة كلها لو يوجد فورم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.