اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

undo macro by mokhtar (هديتى بمناسبة السنة الجديدة )


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

السلام عليكم اخوانى وأحبابى

كل سنه وحضراتكم طيبين بمناسبة السنه الجديدة

 

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

 

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

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

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

 

  بتتصرف ازاى فى هذه الحالة ؟

قدامك 3 طرق :

 

الأولى ما تعرفش تتصرف وتقعد تبكى على البيانات

الثانية تقفل الاكسل بدون ما تحفظ  وتعيد فتح الملف من جديد

الثالثة تستخدم الكود التالى (  فكرته نابعة  من الطريقة الثانية بس بنريحك من قفل الملف وإعادة فتحه )

 

وهذا هو شرح  الأكواد  المستخدمة :

 

الكود التالى لحذف بيانات

Sub DELEDTE()
    ' تحديد مدى معين
    Range("a1 :c10").Select
   ' حذف البيانات
    Selection.ClearContents
    ' الوقوف على الخلية a1
    Range("a1 ").Select
    
End Sub



الكود التالى لتشغيل الكود الذى يليه بعد مدة زمنية  ومنع حفظ التغييرات الأخيرة فى الملف

Sub CloseMe()
  ' هنا نحدد المدة الزمنية التى يعمل بعدها الكود   "OpenMe" 
  
    Application.OnTime Now + TimeValue("00:00:10"), "OpenMe"
    ' هنا نحدد منع حفظ التغييرات ومنع غلق الملف نهائيا
    Savechanges = False
    ThisWorkbook.Close False
    
End Sub

الكود التالى للتأكيد على عودة البيانات

Sub OpenMe()

    ' رسالة تأكيد عودة البيانات
MsgBox " البيانات رجعت  ! خلى بالك يا أفندينا  مش كل مرة تسلم الجرة  " 
    
    
End Sub

احنا بكده نكون اتعلمنا  جاجتين :

الأولى التراجع عن ماكرو

 

الثانية : ودى مهمة خالص  وكتير مننا مش واخد باله منها وهى  (  كيفية تشغيل ماكرو عن طريق ماكرو آخر )

 

أتمنى أن يكون الموضوع أعجبكم ودعواتكم للمرحوم أبى ( دعوه بظهر الغيب تكون فى ميزان حسناتك )

 

هذه هى هديتى الأولى بمناسبة السنة الجديدة  انتظروا  هديتى الثانية الليلة  بمناسبة المولد النبوى الشريف   (  كود X  قاعة المحكمة  )

وهذا  المرفق تطبيق على الموضوع                 والسلام عليكم  انتظرونى  قبل منتصف الليلة





 

 

undo macro by mokhtar.rar

تم تعديل بواسطه مختار حسين محمود
  • Like 4
  • Thanks 2
رابط هذا التعليق
شارك

أستاذي القدير

كل عام وأنت طيب والأمة الإسلامية جمعاء بالف خير

بارك الله فيك على هذه الرائعة من روائعك

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

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

كل سنة وأنت طيب أخى الجموعى

 

أخى الجموعى  أسألك  وأسأل كل من يعجبه الموضوع دعوة بظهر الغيب للمرحوم أبى  تكن لك ولأبى نورا  يوم القيامة

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

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

الاخ العزيز مختار حسين حفظكم الباري عز وجل

كل سنة وانتم تنعمون بالصحة والعافية

دائما تاتي بالجديد المفيد اثابكم الله 

وجعل عملكم في موازين حسناتكم

دمتم في رعاية الله وحفظه

تم تعديل بواسطه أبو محمد عباس
  • Like 1
رابط هذا التعليق
شارك

بارك الله فيك أخي مختار ..عندما أضغط على زر Restore تظهر رسالة خطأ من برنامج الإكسيل وليس رسالة خطأ من محرر الأكواد ..!!!

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

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

 

اللهم اننا نسألك  ياواحد يا احد يافرد ياصمد يامالك الملك يابديع السموات والأرض ان تغفر وترحم لوالد مختار حسين ونجيه من الذنوب كما ينقى الثوب الأبيض من الدنس وبدله اهلا خير من اهله ودارا خير من داره وتقبله عندك واكرم مثواه ونزله وبدل سيئاته حسنات ووسع قبره واجعله روضة من رياض الجنة لا حفرة من حفر النار وان تغفر وترحم لاموات المسلمين والمسلمات والمؤمنين والمؤمنات الاحياء منهم والاموات برحمتك يا ارحم الراحمين آمين يارب.

تم تعديل بواسطه KHMB
  • Like 2
رابط هذا التعليق
شارك

أستاذى الفاضل أبو محمد عباس  تقبل الله دعاءك  ومتعكم بالصحة والعافية

 

 

أستاذى الفاضل محمد يوسف   آمين آمين أمين  أنتم ونحن  إن شاء الله رب العالمين .

الأستاذ محمد راجع هذا الرابط  فيه جاجة ليك  سبتها لك ولا أدرى إذاكنت قد اطلعت عليها أم لا

http://www.officena.net/ib/index.php?showtopic=57755#entry368632

 

 

أستاذى العزيز ياسر خليل بوركت  ولا أدرى ما السبب عندك  ( احتمال يكون الزر مش مربوط  بالكود  CloseMe  )

 

أستاذى KHMB   بارك الله فيك    وتقبل الله  دعاءك  ولك مثله إن شاء الله رب العالمين

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

السلام عليكم

الاخ الكريم مختار

اسال الله ان تكون جمعه مياركة عليك وعلى جميع المسلمين ... 

جزاك الله كل الخير .. موضوع هام جدا

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

أخي مختار

ممكن أعرف إنت ليه حدد 10 ثواني عشان تظهر الرسالة (كان ممكن تستغنى عن السطر ده والكود ده كمان ..طالما إن الكود سيقوم بالإغلاق !!!!

يعني الفكرة كلها في الإغلاق بدون حفظ ؟؟؟؟؟

أنا اعتقدت إن الكود هيقوم بعملية التراجع بدون إغلاق الملف!!

أرجو توضيح الفكرة ..أكثر

هل ما قلته صحيح أم هناك لبس

جزيت خيراً على إبداعاتك المستمرة ، ولكنك تعرف أصول الأكواد الجديدة لابد من مناقشتها للوصول إلى أفضل أداء.

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

أستاذى الفاضل أبوحنين 

وجعلها عليك وعلى كل ذويك جمعة مباركة

 

 

أستاذى ياسر  الفكرة بسيطة زى ما حضرتك قلت    فى الإغلاق بدون حفظ 

 

بس نضيف على كده اعادة فتح الملف مع رسالة تأكيد عودة البيانات 

  

ومش كده وبس  فى ثنايا الموضوع بتعلم حاجة تانى غير التراجع ألا وهى  (  كيفية تشغيل ماكرو عن طريق ماكرو آخر )

 

 يعنى الموضوع موضوعين  1*2

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

بس نضيف على كده اعادة فتح الملف مع رسالة تأكيد عودة البيانات

 

دي بقا اللي مش عايزة تظبط معايا ..الملف يغلق وبس .. مش بيفتح مرة تانية !!!!!!!!!

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

أخى ياسر لا أدرى ما السبب عندك

والملف شغال معاى 10 / 10  وكمان عند الزملاء لان ما فى حد اشتكى

جرب اعادة تحميل الملف

على فكرة أنا شغال على 2010

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

  • 3 months later...

هذا الموضوع مشابه تماماً لموضوع الأخ مختار

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

 

فوجب عليا الاعتذار .. للأخ الحبيب الغالي مختار .. وربنا يكفيني ويكفيه شر النار .. ويجعلنا من الصالحين الأبرار .. ويديم علينا نعمه ليل ونهار .. ويبعد عننا الأشرار ..

ودلوقتي بقا فيه موضوعين عشان محدش يحتار ..ويكون الموضوع منتهي وبعديها مفيش أعذار ..  والحمد لله القوي الجبار .. وفي الختام سلامي لإخواني الأحرار ..

عجبتني القافية فقلت أكمل يا عبد الستار

تقبلوا تحياتي

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

تقبل الله دعاءك  أخى ياسر يا أبو الأفكار 

أنت لم تخطئ كى تعتذر يرحمنا ويرحمك العزيز الغفار

وليس بين الإخوة إلا الحب والتقدير  ولا للأعذار .....................أخوك مختار

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

الأعضاء هيقولوا علينا سبنا الإكسيل ، وبنكتب أشعار ..

ومش بعيد يدعوا علينا ندخل النار ..

عشان ساينين طلباتهم ونازلين يا هزار ..

تقبل ودي وأشعاري أخي الحبيب مختار ..

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

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

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

Important Information