كيف نعمل ماكرو للخروج الى مصنف ؟

[فرقدي]

مساء الخير :(

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

مثلا :

الورقة او الشيت رقم واحد يحوي زرا للدخول الى الورقة الشيت رقم ( 2 )

كيف استطيع الخروج نهائيا من الورقة ( الشيت ) رقم (2 ) الى الورقة الأولى

بحيث يغلق الشيت رقم ( 2 ) نهائيا ؟!

ومرة اريد ان اخرج من الشيت رقم ( 1 ) بدون الضغط على زر اغلاق الاكسيل

او الانهاء من ملف ؟!!!

بالطبع انا اقصد طريقة عن طريق استخدام الماكرو ؟؟؟؟!

في امان الله

[ابومؤنس]

الاخ العزيز فرقدي

السلام عليكم ورحمة الله وبركاتة

جربت فقط عمل ماكروا بزر لتنقل من صفحة الي الاخري . ولم ينجح معي زر للخروج نهائيا من الاكسيل . حتي انني لم اري زر (بواسطة ماكروا للقيام بذلك ) ونرجو من الاخوة اذا كان لديهم معرفة حول اعداد ماكروا للخروج من الاكسيل دون النقر فوق اغلاق . فنحن نريد تعليمة

بالنسبة لزر التنقل بين الصفحات اليك الشرح في هذا الرابط

http://www.officena.net/ib/index.php?showtopic=1783

بتوفيق

[محمد طاهر عرفه]

السلام عليكم

التنقل بين الشيتات

http://www.officena.net/ib/index.php?showt...c=372&hl=التنقل

للخروج نهائيا

Application.ActiveWorkbook.Close

و للحفظ قبلها

Application.ActiveWorkbook.Save

Application.ActiveWorkbook.Close

[حسام نور]

للخروج نهائيا

Application.ActiveWorkbook.Close

و للحفظ قبلها

Application.ActiveWorkbook.Save

Application.ActiveWorkbook.Close

ولكن يبقى الأكسيل مفتوحا ولا يعتبر ذلك خروجاً نهائياً ... لماذا ؟

[محمد طاهر عرفه]

اذا كان المقصود اغلاق الاكسيل

 Application.Quit

[العجمي]

استاذنا القدير ،،

نحن أيضا نحتاج الى مثل هذا الكود :(

ولكن كيف اجعله يعمل عن طريق الماكروا

اعذرونا لو تضعونا مثالا بسيطا عليه :$

مع الشكر سلفا (y)

[حسام نور]

شكراً أستاذ محمد طاهر ... وللأخ العجمي مرفق المثال

Quit.zip

[العجمي]

شكراً أستاذ محمد طاهر ... وللأخ العجمي مرفق المثال

اخي العزيز بارك الله فيك ووفققك للخير دائما

وجزيت خيرا ، على سرعة التجاوب (y)

[حسام نور]

العفو أخي العجمي هذا ما تعلمناه من هذا المنتدى الجميل ومن الأستاذ الغالي محمد طاهر