كيف يمكن نقل زر بالمايكرو ليعمل فى ملف آخر

[نورانور]

السلام عليكم

من فضلكم اعضاء ومشرفى المنتدى أثابكم الله لو سمحتم كيف يمكن نقل زر بالمايكرو ليعمل فى ملف آخر وكيف يمكن للاكسل الحفظ اتوماتيك

تم تعديل مايو 3, 2013 بواسطه نورانور

[حمادة عمر]

السلام عليكم

الاخ الكريم / نورانور

 

بارك الله فيك

بالنسبة لطلبك الاول ( كيف يمكن نقل زر بالمايكرو ليعمل فى ملف آخر )

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

ارجو ان يفي بطلبك ( ان شاء الله )

 

 

وبالنسبة لطلبك الثاني ( كيف يمكن للاكسل الحفظ اتوماتيك )

اليك ملف مرفق به كود ليجعل ملف الاكسيل كل دقيقة تلقائيا ... وبالطبع يمكنك تغيير المدة كما تريد

ام انك تريد ذلك من خلال زر مخصص للحفظ ؟؟

ارجو ان يفي بطلبك

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

 

حفظ كل دقيقة.rar

 

[ابراهيم الشال]

الفديو غير ظاهر 

[حمادة عمر]

الاخ الكريم / ابوعلى

 

بارك الله فيك

الفيديو يعمل ويظهر لدي بشكل طبيعي كل متصفح الاكسبلورر8 وكذلك الفايرفوكس

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

 

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

[ابراهيم الشال]

 

 

 

تم التحميل 

جزاك الله خيرا اخ حماده

شرح مبسط ومميز  وافادنا كثيرا

[نورانور]

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

كنت محتاجه فعلا ممكن شرح نقل كود الحفظ كيف نقله الى ملف آخر

تم تعديل مايو 5, 2013 بواسطه نورانور

[حمادة عمر]

السلام عليكم

الاخ الكريم / نور انور

بارك الله فيك

اولا لنقل كود الحفظ الي ملفك .... قم بعمل مودل وضع الاكواد التاليه فيه ...

Public Rm As Double
Public Const C_Con = 60
Public Const Sc_W = "Ex"
Public Sub St_A()
    Rm = Now + TimeSerial(0, 0, C_Con)
    Application.OnTime EarliestTime:=Rm, Procedure:=Sc_W, Schedule:=True
End Sub
Sub Ex()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
St_A
End Sub

ثم ضع الاكواد التاليه في حدث الملف ThisWorkbook

Private Sub Workbook_Deactivate()
Call St_A
End Sub
Private Sub Workbook_Open()
Call St_A
End Sub

واي استفسار .. او توضيح ... لاتتردد ابدا

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