محمد ابو البـراء قام بنشر مارس 27, 2014 قام بنشر مارس 27, 2014 كود رائع الاخ الحبيب الفاضل // أبو حنين جعله الله في ميزان حسناتك وبعد اذنك استاذي الحبيب أبو حنين الاستاذ // صلاح الصغير هذا ما تريد Sub sClear() Dim cel As Range For Each cel In Range("DM6:PC1500") Range(Cells(cel.Row, 1), Cells(cel.Row, 2)).ClearContents Next End Sub Sub AAAAAA() If Range("E1") = "" Or Not IsNumeric(Range("E1")) Then Exit Sub RR = Now() + TimeValue("00:00:" & Range("E1").Value & "") Application.OnTime RR, "sClear" End Sub
صلاح الصغير قام بنشر مارس 27, 2014 قام بنشر مارس 27, 2014 السلام عليكم استاذ / محمد ابو البراء اشكرك على سرعة استجابتك و لكنى اعتقد ان هذا الكود مرتبط بالوقت حسب علمى الضعيف بالاكواد فهل يمكن ان تساعدنى و تكتب لى كود اقوم فيه بمسح البيانات اى الارقم فقط دون المعادلات حسب رغبتى فى الوقت الذى اريده و ليكن لنفس النطاق عن طريق زر مثلا تحت مسمى مسح البيانات و اشكرك شكرا جزيلا
وليد فتحي قام بنشر مارس 27, 2014 قام بنشر مارس 27, 2014 عليكم السلام ورحمة الله وبركاته الاستاذ الفاضل صلاح الصغير على حسب فهمي لطلبك اليك الكود المناسب لطلبك وليس له علاقة بكود الاستاذ الفاضل ابو حنين Sub W_Delete() Dim Answer As String Dim MyNote As String MyNote = "سوف يتم مسح البيانات ولن تستطيع استرجاعها ... هل تريد الاستمرار ؟" Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "انتبه") If Answer = vbNo Then MsgBox "تم التراجع عن العملية" Exit Sub Else ActiveSheet.Select Range("B4:D2003").ClearContents End If End Sub ويمكنك تغيير المدي B4:D2003 الي اي مدي اخر انت تريده
صلاح الصغير قام بنشر مارس 30, 2014 قام بنشر مارس 30, 2014 الاستاذ / وليد فتحى الكود هائل و قمت يتجربته و تغيير النطاق و لكن الموضوع الاصلى كان هو مسح البيانات و الارقام فقط او اى شى غير المعادلات و لكن الكود يمسح المعادلات ايضا فارجو المساعده و شكرا لك
وليد فتحي قام بنشر مارس 30, 2014 قام بنشر مارس 30, 2014 الاستاذ / وليد فتحى الكود هائل و قمت يتجربته و تغيير النطاق و لكن الموضوع الاصلى كان هو مسح البيانات و الارقام فقط او اى شى غير المعادلات و لكن الكود يمسح المعادلات ايضا فارجو المساعده و شكرا لك السلام عليكم ورحمة الله وبركاته الاستاذ صلاح الصغير يمكنك تغيير النطاق من هذه الجزئية Range("B4:D2003").ClearContents وتغييرة الي النطاق الذي تريد مسحه ولا يوجد به معادلات او ارفق الملف للعمل عليه
صلاح الصغير قام بنشر مارس 30, 2014 قام بنشر مارس 30, 2014 استاذى الفاضل اليك الملف اريد مسح البيانات فقط و ليس المعادلات فى النطاق من de6:pc132 مثلا و اشكرك على الاهتمام Copy of مستحقات 2014 صلاح.rar
وليد فتحي قام بنشر مارس 30, 2014 قام بنشر مارس 30, 2014 عزرا الرقم السرى gs2010 السلام عليكم ورحمة الله وبركاته اتفضل استاذ صلاح أتمني من الله ان يكون هذا طلبك جرب وبانتظار ردك مستحقات 2014 صلاح_W.rar
صلاح الصغير قام بنشر مارس 30, 2014 قام بنشر مارس 30, 2014 استاذ / وليد فتحى ارى انه مجهود رائع منك تشكر عليه هذا هو المطلوب و بكل سهولة يمكنى اضافة نطاق جديد اخر او حذف نطاق و لكن هل يمكن اثراء الموضوع بوضع نطاق كبير و ليكن من DC6:PC132 و يتخطى المعادلات بحيث يتم التعديل فى النطاق مرة واحدة فقط ارى ان بعض الاساتذة قد قام بعمل ذلك بالفعل اشكرك و جزاك الله خيرا
وليد فتحي قام بنشر مارس 30, 2014 قام بنشر مارس 30, 2014 استاذ / وليد فتحى ارى انه مجهود رائع منك تشكر عليه هذا هو المطلوب و بكل سهولة يمكنى اضافة نطاق جديد اخر او حذف نطاق و لكن هل يمكن اثراء الموضوع بوضع نطاق كبير و ليكن من DC6:PC132 و يتخطى المعادلات بحيث يتم التعديل فى النطاق مرة واحدة فقط ارى ان بعض الاساتذة قد قام بعمل ذلك بالفعل اشكرك و جزاك الله خيرا الشكر لله استاذ صلاح وبالفعل المنتدي ملئ بالمواضيع الاكثر من رائعة واكثر من مفيدة جزاك الله كل خير تقبل تحياتي
محمد الورفلي1 قام بنشر مارس 31, 2014 الكاتب قام بنشر مارس 31, 2014 بالنسبة لموضع معادلة لمسح محتوى خلية بعد ثواني هل ممكن المسح يكون بشكل عشوائي مثلاً نريد مسح الخلية A3 والخلية C7 والخلية F22 والخلية L23 والخلية K4 اذكان هناك طريقة فكيف وياريت بالشرح لو سمحتو المرفق مسح محتوى .rar
محمد الورفلي1 قام بنشر أبريل 2, 2014 الكاتب قام بنشر أبريل 2, 2014 الموضوع شيق لمن لديه دراية بعالم الاكواد والدوال
محمد الورفلي1 قام بنشر أبريل 4, 2014 الكاتب قام بنشر أبريل 4, 2014 اريد تصحيح فقط وهل هذه الطريقة صحيحة Sub sClear() Dim cel As Range For Each cel In Range("D1:F1:D5") Range(Cells(cel.Row, 1), Cells(cel.Row, 12)).ClearContents Next End Sub Sub AAAAAA() If Range("E1") = "" Or Not IsNumeric(Range("E1")) Then Exit Sub RR = Now() + TimeValue("00:00:" & Range("E1").Value & "") Application.OnTime RR, "sClear" End Sub
محمد الورفلي1 قام بنشر أبريل 8, 2014 الكاتب قام بنشر أبريل 8, 2014 للرفع هل ممكن المسح يكون بشكل عشوائي مثلاً نريد مسح الخلية A3 والخلية C7 والخلية F22 والخلية L23 والخلية K4 اذكان هناك طريقة فكيف وياريت بالشرح لو سمحتو المرفق Sub sClear() Dim cel As Range For Each cel In Range("D1:F1:D5") Range(Cells(cel.Row, 1), Cells(cel.Row, 12)).ClearContents Next End Sub Sub AAAAAA() If Range("E1") = "" Or Not IsNumeric(Range("E1")) Then Exit Sub RR = Now() + TimeValue("00:00:" & Range("E1").Value & "") Application.OnTime RR, "sClear" End Sub مسح محتوى .rar 6.69كيلو 1 عدد مرات التحميل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.