• صلاح الدين الجزائري • قام بنشر سبتمبر 12, 2016 قام بنشر سبتمبر 12, 2016 السلام عليكم اخواني اريد ان اسألكم عن كيفية القيام بأمر ما مكتوب بلغة vba .. عند اغلاق الاكسل، مثلا عملية النسخ و لصق فعندما اقوم بإغلاق الاكسل [ في تلك اللحظة ] يقوم بعمل نسخ و لصق test.rar
سليم حاصبيا قام بنشر سبتمبر 12, 2016 قام بنشر سبتمبر 12, 2016 الى اي مكان تريد النسخ واللصق هذا اولاً ثانياُ هل تريد ان يتم ذلك بشكل متسلسل (يعني المحافظة على ما تم نسخه سابقاً)
• صلاح الدين الجزائري • قام بنشر سبتمبر 12, 2016 الكاتب قام بنشر سبتمبر 12, 2016 20 ساعات مضت, سليم حاصبيا said: الى اي مكان تريد النسخ واللصق هذا اولاً ثانياُ هل تريد ان يتم ذلك بشكل متسلسل (يعني المحافظة على ما تم نسخه سابقاً) لالا اخي، انا اريد فقط ان يقوم بأمر انا اكتبه [ مثلا اللصق ] عند اغلاق مصنف الاكسل !! اي يقوم بـ الاوامر المكتوبة حين الاغلاق
أبو حنــــين قام بنشر سبتمبر 12, 2016 قام بنشر سبتمبر 12, 2016 مرحبا بعد اذن اخي سليم ربما اخي صلاح الدين يقصد القيام بأي إجراء قبل الغلق ان كان كذاك فالكون يكون كالآتي Private Sub Workbook_BeforeClose(Cancel As Boolean) ' هذا السطر لعدم ظهور رسالة تأكيد الحفظ قبل الغلق Application.DisplayAlerts = False '---------------------------------------------------------------------------------------------- 'هنا تكتب الاوامر التي تريدها مثل اللصق في الورقة الحالية في الخلية النشطة ActiveSheet.Paste '----------------------------------------------------------------------------------------------- ' هذا السطر للحفظ ThisWorkbook.Save End Sub '=============================================================================================== ' لاحظ ان الكود مكتوب في الحدث Workbook_BeforeClose '===============================================================================================
• صلاح الدين الجزائري • قام بنشر سبتمبر 13, 2016 الكاتب قام بنشر سبتمبر 13, 2016 (معدل) في 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 بواسطه • صلاح الدين الجزائري •
أبو حنــــين قام بنشر سبتمبر 13, 2016 قام بنشر سبتمبر 13, 2016 مرحبا هذا مثال يقوم قبل الغلق بنسخ b2:b11 الى d1 مثال.rar 1
• صلاح الدين الجزائري • قام بنشر سبتمبر 13, 2016 الكاتب قام بنشر سبتمبر 13, 2016 (معدل) 12 ساعات مضت, أبو حنــــين said: مرحبا هذا مثال يقوم قبل الغلق بنسخ b2:b11 الى d1 مثال.rar اجل اخي، ممكن تشرح لي كيف ؟.. لكن اخي تقدر تسترجع تلك اللائحة للحفظ او الاغلاق ؟ تم تعديل سبتمبر 13, 2016 بواسطه • صلاح الدين الجزائري •
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.