سؤال عن VBA [ كيفية القيام بالامر عند اغلاق الاكسل ]

[• صلاح الدين الجزائري •]

السلام عليكم

اخواني

اريد ان اسألكم عن كيفية القيام بأمر ما مكتوب بلغة vba ..

عند اغلاق الاكسل، مثلا عملية النسخ و لصق

فعندما اقوم بإغلاق الاكسل [ في تلك اللحظة ] يقوم بعمل نسخ و لصق 

test.rar

[سليم حاصبيا]

الى اي مكان تريد النسخ واللصق هذا اولاً

ثانياُ هل تريد ان يتم ذلك بشكل متسلسل (يعني المحافظة على ما تم نسخه سابقاً)

 

[• صلاح الدين الجزائري •]

20 ساعات مضت, سليم حاصبيا said:

الى اي مكان تريد النسخ واللصق هذا اولاً

ثانياُ هل تريد ان يتم ذلك بشكل متسلسل (يعني المحافظة على ما تم نسخه سابقاً)

 

لالا اخي،

انا اريد فقط ان يقوم بأمر انا اكتبه [ مثلا اللصق ] عند اغلاق مصنف الاكسل !!

اي يقوم بـ الاوامر المكتوبة حين الاغلاق

[أبو حنــــين]

مرحبا

بعد اذن اخي سليم

ربما اخي صلاح الدين يقصد القيام بأي إجراء قبل الغلق

ان كان كذاك فالكون يكون كالآتي 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' هذا السطر لعدم ظهور رسالة تأكيد الحفظ قبل الغلق
Application.DisplayAlerts = False

'----------------------------------------------------------------------------------------------


'هنا تكتب الاوامر التي تريدها مثل اللصق في الورقة الحالية في الخلية النشطة
ActiveSheet.Paste


'-----------------------------------------------------------------------------------------------
' هذا السطر للحفظ
ThisWorkbook.Save
End Sub

'===============================================================================================

' لاحظ ان الكود مكتوب في الحدث 
Workbook_BeforeClose 

'===============================================================================================

 

[• صلاح الدين الجزائري •]

في 9/12/2016 at 09:09, أبو حنــــين said:

مرحبا

بعد اذن اخي سليم

ربما اخي صلاح الدين يقصد القيام بأي إجراء قبل الغلق

ان كان كذاك فالكون يكون كالآتي 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' هذا السطر لعدم ظهور رسالة تأكيد الحفظ قبل الغلق
Application.DisplayAlerts = False

'----------------------------------------------------------------------------------------------


'هنا تكتب الاوامر التي تريدها مثل اللصق في الورقة الحالية في الخلية النشطة
ActiveSheet.Paste


'-----------------------------------------------------------------------------------------------
' هذا السطر للحفظ
ThisWorkbook.Save
End Sub

'===============================================================================================

' لاحظ ان الكود مكتوب في الحدث 
Workbook_BeforeClose 

'===============================================================================================

 

شكرا جزيلا اخي،

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

وايضا اخي اريد ان افهمك اكثر ماذا اريد

اريد اخي عندما اقوم بالاغلاق ! قبل اغلاق المصنف بلحظة يقوم بأوامر انا كتبتها قبل

او يقوم بالحدث حين تغيير شيء ما مثلا اقول كلما كانت قيمة خانة A1 اكبر من 50 قم بنسق القيمة ولصقها في C1

اي وقت ما تقوم القيمة اكبر يقوم بالنسخ .. بدون ما اقوم بالخروج من المصنف وادخل مجددا

لكي افهم اكثر وشكرا

 

تم تعديل سبتمبر 13, 2016 بواسطه • صلاح الدين الجزائري •

[أبو حنــــين]

مرحبا

هذا مثال يقوم قبل الغلق بنسخ  b2:b11  الى   d1

مثال.rar

[• صلاح الدين الجزائري •]

12 ساعات مضت, أبو حنــــين said:

مرحبا

هذا مثال يقوم قبل الغلق بنسخ  b2:b11  الى   d1

مثال.rar

اجل اخي،

ممكن تشرح لي كيف ؟.. 

لكن اخي تقدر تسترجع تلك اللائحة

للحفظ او الاغلاق ؟

تم تعديل سبتمبر 13, 2016 بواسطه • صلاح الدين الجزائري •