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

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

قام بنشر (معدل)

كل يوم معلومة EXCEL

السلام عليكم اخوانى اعضاء منتدانا العملاق اوفيسنا 

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

ارجوا ان نبدأ فى هذا الموضوع بجديه وان يعنا الله على تقديم علم نافع للجميع

تم تعديل بواسطه صلاح المصرى
  • Like 5
قام بنشر

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

بارك الله فيك على الفكرة الطيبة والمفيدة للجميع

الموضوع موجود مسبقاً للأخ محمد الريفي بعنوان "سلسلة هل تعلم؟" يمكن المساهمة في موضوعه وإحياء الموضوع من جديد من خلال الرابط التالي

من هنا

  • Like 3
قام بنشر (معدل)

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

بما ان اخوكم ضعيف فى لغة VBA استحملونى عشان هاشرحلكم اليوم

 

 طريقة تسريع الكود فى حالة بطء تنفيذ الكود

 

هناك ثلاثة اوامر لتسريع تنفيذ الامر يتم كتابتها قبل الكود ويتم الغاء الاوامر بعد الكود

 

اولا قبل الكود

 

إيقاف وميض الشاشة

 

 

Application.screenupdating=False

إيقاف الحساب التلقائي

Application.calculation=xlCalculationManual


إيقاف الأحداث التلقائي

 

 

Application.EnableEvents=False


 

 

ثانيا بعد الكود نكتب الثلاث اوامر لاسترجاع تنفيذ العمليات

 

 

 

 

 

اعادة تشغيل وميض الشاشة 

Application.screenupdating=true

اعادة تشغيل الحساب التلقائي

Application.calculation=xlCalculationAutomatic

اعادة تشغيل الأحداث التلقائي

 

Application.EnableEvents= true

ارجوا ان اكون وفقت فى الشرح ولمن يريد الاضافة من عمالقة المنتدى يتقدم 

تم تعديل بواسطه صلاح المصرى
  • Like 2
قام بنشر (معدل)

اكتب في الخلية A1 اي عدد لا يقيل القسمة على 3 و نفذ هذا الكود و لا حظ الفرق

 

Sub xx()
Range("b1") = Range("a1") / 3
Range("c1") = Range("a1") \ 3
End Sub

 

تم تعديل بواسطه سليم حاصبيا
  • Like 2
  • 2 weeks later...
قام بنشر (معدل)

السلام عليكم اخوانى اعضاء اوفيسنا الكرام .... كل عام وانت بخير بمناسبة عيد الاضحى المبارك اعاده الله على الامه الاسلاميه بالخير والنصر والتمكين لديننا الحنيف

اليوم اقدم لكم موضوع ربما يكون بسيط لكن قد يحتار البعض فى الوصول للحل عند الاحتياج وهو تحويل التاريخ من ميلادى الى هجرى بتحويل نوع البيان من dd/mm/yyyy الى B2dd/mm/yyyy .

 

 

1.jpg

2.jpg

3.jpg

تم تعديل بواسطه صلاح المصرى
عدم وضوح الصورة
  • Like 3
  • 3 weeks later...
قام بنشر

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

معلومه عالسريع

الدالة ( EOMONTH ) تستخدم لمعرفة اخر يوم في الشهر وتستخدم كما موضح بالصورة

منقول

12109110_1037629492935006_357122971894353700_n.png

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information