أكاديمية الصقر للتدريب

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


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





تفريغ خلية بعد مدة زمنية بشرط معين

السلام عليكم ورحمة الله وبركاتة عندي كود vba وظيفتة انة بيفرغ خلية كل 10 ثواني ودة بيتكرر على طول سواء اذا كان الخلية دي ..



21-04-2020 09:10 مساء
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

السلام عليكم ورحمة الله وبركاتة
عندي كود vba وظيفتة انة بيفرغ خلية كل 10 ثواني ودة بيتكرر على طول سواء اذا كان الخلية دي فاضية او فيها قيمة

المطلوب محتاج لو كتبت في الخلية دي يعد 10 ثواني ثم يتم التفريغ 

يعني عاوز اديلة شرط لو كتبت في الخلية دي يتفرغ بعد 10 ثواني مثلا 
الكود انا حاطة في مديول و مشغلة اول ما الملف يفتح عشان عاوزة يشتغل بالاستمرار و وضعت  ملف مرفق
و اشكركم مقدماً 

 

 
 
  تفريع خلية بعد مدة زمنية بشرط معين.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(15.708) KB


22-04-2020 12:22 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تفريغ خلية بعد مدة زمنية بشرط معين
نفترض أن الخلية هي الخلية A1
جرب الكود التالي حيث يوضع جزء في موديول عادي والجزء الثاني في ورقة العمل
'In Worksheet Module
'-------------------
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If scheduled > 0 Then Application.OnTime scheduled, "ClearIt", Schedule:=False
        scheduled = Now + TimeSerial(0, 0, 5)
        Application.OnTime scheduled, "ClearIt", Schedule:=True
    End If
End Sub

'In Standard Module
'------------------
Public scheduled

Sub ClearIt()
    Application.EnableEvents = False
        Sheet1.Range("A1").Value = ""
    Application.EnableEvents = True
    scheduled = 0
End Sub

22-04-2020 01:17 صباحا
مشاهدة مشاركة منفردة [2]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif تفريغ خلية بعد مدة زمنية بشرط معين
اشكرك جدا الكود شغال تمام 
ربنا يجعلة في ميزان حسناتك يارب 

22-04-2020 10:27 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تفريغ خلية بعد مدة زمنية بشرط معين
تسلم أخي العزيز فتحي والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات




الكلمات الدلالية
تفريغ ، خلية ، زمنية ، بشرط ، معين ،


 










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

الساعة الآن 06:14 مساء