اذهب الي المحتوي
أوفيسنا

الحفظ التلقائي كل 10 ثواني


الردود الموصى بها

السلام عليكم

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

 

طيب للي مهتم بالأمر .. هل ترغب أن يقوم الإكسيل بالحفظ التلقائي كل 10 ثواني مثلا ..

في حدث الورقة ضع الكود التالي

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub

Private Sub Workbook_Open()
StartTimer
End Sub

وفي موديول جديد ضع الكود التالي

Public RunWhen As Double
Public Const cRunIntervalSeconds = 10
Public Const cRunWhat = "The_Sub"


Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
     schedule:=True
End Sub
Sub The_Sub()
ActiveWorkbook.Save
StartTimer
End Sub
Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

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

Public Const cRunIntervalSeconds = 10

:smile2: إليكم الملف المرفق  :cool2:

 

Auto Save Every 10 Seconds.rar

  • Like 6
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

مشكور على المرور العطر أخي عاشق الإسلام

أنا قلت كدا بردو مفيش حاجة تمنع الأعضاء عن المنتدى غير الكورة (أنا بقا مليش في الكورة نهائي .. مش أحسن بردو)

  • Like 1
رابط هذا التعليق
شارك

 

شكرا لمجهودك اخى واستاذى / YasserKhalil

 

بارك الله فيك أخي أسامة .. وجزيت خيرا على مرورك الكريم

رابط هذا التعليق
شارك

السلام عليكم استاذ ياسر

 

بارك الله فيك دئماً نحتاج للحفظ وفرت عليناً الحفظ  شكراَ

الحمد لله أخي محمد طبعا دا بس مش هيوفر في الوقت دا كمان هيوفر في عدد الكليكات اللي هتقوم بيها فهيوفر الماوس ويخلي عمر الماوس يطول معاك .. ولو ركزنا ممكن نلاقي فوايد تانية ........ههههه تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

استاذى الفاضل / ياسر خليل

رائع رائع

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

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

بس عايز استفسارين منك يعنى استشارة  

1-ليه معملناش هنا مباشرة (TimeSerial(0, 0, 10 بدلا من (TimeSerial(0, 0, cRunIntervalSeconds  وبكدا مش فى احتياج الى التعريف Public Const cRunIntervalSeconds = 10

2-Application.OnTime earliesttime:=RunWhen, _

procedure:=cRunWhat, schedule:=False  هل هذه داله فى البيسك او معادله ثابته ممكن تشرحها لى 

3-هل يمكن حدوث مشكله اثناء الظغط على تنفيذ كود ترحيل من ورقه الى ورقة اخرى فى لحظة الحفظ التلقائى بهذا الكود  (هههههههههههه طبعا انا قلت استفسارين)

وبعدين يا كبير فى الكود الاول مش فى حدث الورقه تلميذك صاحى ومفتحلك دا فى حدث الملف this workbook 

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

تقبل احترامى وتقديرى

تم تعديل بواسطه حسام عيسى
رابط هذا التعليق
شارك

 

أخي الفاضل ماذا تقصد بتحديث البيانات ...ارفق مثال للتوضيح

 

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

 

مصال شيت 1  فيه بيانات  

 

شيت 2  فيه بيانات مربوطة مع  الشيت رقم  1  وعامل فيها تصفيحة حسب اكبر رقم  اواصغر رقم مثلا 

 

 

مطلوب عندما تتحدث الارقام في الشيت  1  في خلاياها     يتم تحديث الخلية في الشيت رقم  2  من حيث الترتيب و التصفية 

رابط هذا التعليق
شارك

الأخ الغالي المحاسب الجراح المصري السعودي

بالنسبة للنقطة الأولى مفيش مشكلة إنك تكتبها مباشرة بس كدا أفضل عشان لو حد عايز يغير في الكود هيغير الوقت فقط ...

النقطة الثانية نعم هذه من دوال الفيجوال بيسك

الكائن Application المراد به طبعا الإكسيل كتطبيق ، متبوعا بنقطة ثم الطريقة Method المسماة OnTime أي عند التزامن مع وقت محدد ، ثم مسافة متبوعة بمعطيات الدالة التي ستعمل على أساسها ... أول المعطيات earliesttime:=RunWhen أي وقت التنفيذ وقد تم تعريفه في السطر السابق لهذا السطر بالمتغير RunWhen ..

ثاني المعطيات اسم الإجراء المراد تنفيذه في هذا الوقت بالتحديد .. ثالث المعطيات schedule:= إما القيمة True لتشغيل التايمر أو False لإيقاف التايمر

النقطة الثالثة أنا مجربتش أكواد تانية مع الملف بس أعتقد أنه لن يكون هناك تعارض إن شاء الله وجرب بنفسك وأبلغني بالنتيجة

النقطة الأخيرة يوجد بالحدث Workbook_BeforeClose الإشارة إلى وقف التايمر (عداد الوقت)

، والحدث Workbook_Open أي عند فتح المصنف يبدأ العداد بالعمل .. ليس للموضوع علاقة بورقة العمل لأن الكود يعمل على حفظ المصنف ككل وليس على ورقة العمل فقط.

رابط هذا التعليق
شارك

استاذى الغالى والحبيب

ياسر بك الكبير

تعبت ايدك انت كتير هههههههههههههه

اشكرك واتمنى منك المزيد فى ابداعات اخرى

ملحوظه / الشرح كان ناقص شئ وهو (المايك)

تقبل احترامى وتقديرى

رابط هذا التعليق
شارك

ولا يهمك يا أخي حسام ايدي تحت أمرك في أي وقت ..

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

شكراً لك أستاذي على هذا الكود وعلى الشرح.

سؤالي في ورقة الحدث الخاصة بي فيها كودات سابقة هل أقوم بنسخ الكود في أسفل آخر كود بدون تغيير في السطور الأولى من الكود الخاص بك.

 

مع جزيل الشكر لكم

رابط هذا التعليق
شارك

أخي الحبيب

بالنسبة لأول 3 أسطر لابد أن تكون في أول الموديول

Public RunWhen As Double
Public Const cRunIntervalSeconds = 10
Public Const cRunWhat = "The_Sub"

أما بالنسبة لباقي الكود فميش مشكلة

 

ومتنساش فيه أكواد مرتبطة بحدث WorkBook

رابط هذا التعليق
شارك

استاذ ياسر ماسبب ظهور هذه الرسالة التحذيرية (الصورة المرفقة) هل هناك مشكلة بالماكرو وماهو الحل

حفظ.rar

post-125138-0-22537500-1416254148_thumb.

رابط هذا التعليق
شارك

لالغاء هذه الرسالة ادخل على Trust Center ثم Privacy ثم أزل علامة الصح بجانب الخيار Remove Personal Information  ثم احفظ الملف وأغلقه وافتحه وشوف هتظهر لك تاني أو لا

رابط هذا التعليق
شارك

لالغاء هذه الرسالة ادخل على Trust Center ثم Privacy ثم أزل علامة الصح بجانب الخيار Remove Personal Information  ثم احفظ الملف وأغلقه وافتحه وشوف هتظهر لك تاني أو لا

استاذ انا عندي اوفس 2010 وعربي

رابط هذا التعليق
شارك

طيب أنا معنديش عربي بس نترجم .. مركز الثقة أو الأمان ودي طبعا من خلال خيارات الإكسيل .. هتلاقي كلمة الخصوصية وهتلاقي فيها خيار .. أزل المعلومات الشخصية .. شيل العلامة اللي جنبها .. قد لا تكون الترجمة صحيحة بنسبة 100% .. بس حاول هتوصل إن شاء الله

رابط هذا التعليق
شارك

 

طيب أنا معنديش عربي بس نترجم .. مركز الثقة أو الأمان ودي طبعا من خلال خيارات الإكسيل .. هتلاقي كلمة الخصوصية وهتلاقي فيها خيار .. أزل المعلومات الشخصية .. شيل العلامة اللي جنبها .. قد لا تكون الترجمة صحيحة بنسبة 100% .. بس حاول هتوصل إن شاء الله

 

شكرا يااخي واستاذي ياسر على المعلومة الرائعة وبار ك الله فيك يامبدع

رابط هذا التعليق
شارك

 

هل تم حل المشكلة أخي في الله عاشق الإسلام ؟

 

نعم لقد تم حل لمشكلة والشكر لله سبحانه وتعالى ولك ياستاذنا المبدع ياسر وان شاء الله يكون في ميزان حسناتك.

رابط هذا التعليق
شارك

الشكر لله عزوجل وحده ، أما إذا أردت أن تقول : فلابد من كلمة ( ثم ) ، وإن كنت أفضل أن تشكر الله عزوجل وحده ..

اللهم اجعل اعمالنا في ميزان حسناتنا يوم القيامة

  • Like 1
رابط هذا التعليق
شارك

الشكر لله عزوجل وحده ، أما إذا أردت أن تقول : فلابد من كلمة ( ثم ) ، وإن كنت أفضل أن تشكر الله عزوجل وحده ..

اللهم اجعل اعمالنا في ميزان حسناتنا يوم القيامة

يااستاذ انت تستحق الشكروالتقدير كما قال نبينا وسيدنا محمد صل الله عليه واله وصحبه وسلم (من لا يشكر الناس لا يشكر الله)

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information