هل يوجد معادلة لمسح محتوى خلية بعد ثواني

[محمد ابو البـراء]

كود رائع الاخ الحبيب الفاضل // أبو حنين

جعله الله في ميزان حسناتك

وبعد اذنك استاذي الحبيب أبو حنين

الاستاذ // صلاح الصغير

هذا ما تريد

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

[صلاح الصغير]

السلام عليكم

استاذ / محمد ابو البراء

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

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

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

 

و اشكرك شكرا جزيلا

[وليد فتحي]

عليكم السلام ورحمة الله وبركاته

الاستاذ الفاضل صلاح الصغير

على حسب فهمي لطلبك اليك الكود المناسب لطلبك

وليس له علاقة بكود الاستاذ الفاضل ابو حنين

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 الي اي مدي اخر انت تريده

[صلاح الصغير]

الاستاذ / وليد فتحى

الكود هائل و قمت يتجربته و تغيير النطاق و لكن الموضوع الاصلى كان هو مسح البيانات و الارقام فقط او اى شى غير المعادلات

و لكن الكود يمسح المعادلات ايضا فارجو المساعده

و شكرا لك

[وليد فتحي]

الاستاذ / وليد فتحى

الكود هائل و قمت يتجربته و تغيير النطاق و لكن الموضوع الاصلى كان هو مسح البيانات و الارقام فقط او اى شى غير المعادلات

و لكن الكود يمسح المعادلات ايضا فارجو المساعده

و شكرا لك

 

السلام عليكم ورحمة الله وبركاته

الاستاذ صلاح الصغير

يمكنك تغيير النطاق من هذه الجزئية

Range("B4:D2003").ClearContents

وتغييرة الي النطاق الذي تريد مسحه ولا يوجد به معادلات

او ارفق الملف للعمل عليه

[صلاح الصغير]

استاذى الفاضل

اليك الملف

اريد مسح البيانات فقط و ليس المعادلات فى النطاق من de6:pc132 مثلا

و اشكرك على الاهتمام

Copy of مستحقات 2014 صلاح.rar

[وليد فتحي]

الاستاذ صلاح الملف له رقم سري

[صلاح الصغير]

عزرا 

الرقم السرى      gs2010

[وليد فتحي]

عزرا 

الرقم السرى      gs2010

 

السلام عليكم ورحمة الله وبركاته

اتفضل استاذ صلاح

أتمني من الله ان يكون هذا طلبك

جرب وبانتظار ردك

مستحقات 2014 صلاح_W.rar

[صلاح الصغير]

استاذ / وليد فتحى

ارى انه مجهود رائع منك تشكر عليه

هذا هو المطلوب و بكل سهولة يمكنى اضافة نطاق جديد اخر او حذف نطاق و لكن هل يمكن اثراء الموضوع بوضع نطاق كبير و ليكن من DC6:PC132

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

اشكرك

و جزاك الله خيرا

[وليد فتحي]

استاذ / وليد فتحى

ارى انه مجهود رائع منك تشكر عليه

هذا هو المطلوب و بكل سهولة يمكنى اضافة نطاق جديد اخر او حذف نطاق و لكن هل يمكن اثراء الموضوع بوضع نطاق كبير و ليكن من DC6:PC132

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

اشكرك

و جزاك الله خيرا

 

الشكر لله استاذ صلاح

وبالفعل المنتدي ملئ بالمواضيع الاكثر من رائعة واكثر من مفيدة

جزاك الله كل خير

تقبل تحياتي

[محمد الورفلي1]

بالنسبة لموضع  معادلة لمسح محتوى خلية بعد ثواني

هل ممكن  المسح يكون بشكل عشوائي مثلاً نريد مسح الخلية  A3  والخلية   C7   والخلية   F22  والخلية   L23  والخلية K4   اذكان هناك طريقة فكيف وياريت بالشرح لو سمحتو المرفق   

مسح محتوى .rar

[محمد الورفلي1]

للرفع

[محمد الورفلي1]

ممكن مساعدة

[محمد الورفلي1]

هل ممكن  المسح يكون بشكل عشوائي

[محمد الورفلي1]

الموضوع شيق لمن لديه دراية بعالم الاكواد والدوال

[محمد الورفلي1]

للرفع

[محمد الورفلي1]

اريد الكود ضروري

[محمد الورفلي1]

هل يوجد حل

[محمد الورفلي1]

اريد تصحيح فقط وهل هذه الطريقة صحيحة

 

 

 

 

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]

للرفع

 

هل ممكن  المسح يكون بشكل عشوائي مثلاً نريد مسح الخلية  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 عدد مرات التحميل