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

أ / محمد صالح

أوفيسنا
  • Posts

    4486
  • تاريخ الانضمام

  • Days Won

    198

كل منشورات العضو أ / محمد صالح

  1. رغم إني مش عارف قصدك ايه لكن شكرا لمجرد مرورك على مواضيعي المتواضعة وفقنا الله جميعا لكل ما يحب ويرضى
  2. فكرة رائعة والحمد لله ساهمت في نقل الموضوعات التي لا تحتوي على استفسار إلى منتدى شروح الباور بوينت وسنظل نتعاون جميعا حتى نتمكن من فرز جميع الموضوعات وفقنا الله جميعا لكل خير
  3. تم تحديث الموضوع وإضافة طريقة أخرى وشرحها بالفيديو نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  4. جزانا الله جميعا خيرا ونفع بنا شكرا لمروركم العطر أستاذ أحمد فعلا ما الحب إلا للحبيب الأول وهذا الملف لأحبابنا للمتمسكين بالحبيب الأول نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  5. شكرا لمروركم العطر استاذ علي نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  6. بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد، موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي تمتع بقوائم أوفيس 2003 في 2007 و 2010 و 2013 و 2016 Mas2003Menus فتابعونا. تمتع بقوائم أوفيس 2003 في 2007 و 2010 و 2013 و 2016 Mas2003Menus ربما يبدأ أحدنا بتعليم برنامج ميكروسوفت أوفيس سواء ميكروسوفت وورد أو باوربوينت أو ميكروسوفت إكسل ولكن يبدأ بتعلم إصدار قديم نسبيا وهو أوفيس 2003 وقد يجد صعوبة في الانتقال إلى الإصدارت الحديثة من ميكروسوفت أوفيس سواء 2007 أو 2010 أو 2013 أو 2016 أو 365 اليوم أحضر لكم الحل في صورة كود VBA ووظيفة إضافية Add-in كنت قد صممتها لهذا الغرض في 2010 وهي تقوم بإضافة قوائم أوفيس 2003 في تبويب جديد يسمى add-in في الشريط ribbon وبهذا نكون جمعنا بين الحسنيين تابعونا تعتمد آلية هذا الكود وهذه الوظيفة الإضافية على: إنشاء شريط قوائم في word أو excel أو power point ثم إضافة عناصر التحكم controls إليه وذلك بأبسط كود ممكن. ونتعرف أيضا على: كيفية إنشاء دالة معرفة UDF أو إجراء SUB كيفية تحويل ملف وورد أو إكسل أو باوربوينت إلى وظيفة إضافية مسار تخزين الوظائف الإضافية في نظام التشغيل كيفية تفعيل وظيفة إضافية كيفية إلغاء تفعيل وظيفة إضافية كيفية تنفيذ أمر معين عند تثبيت وظيفة إضافية كيفية تنفيذ أمر معين عند إلغاء تثبيت وظيفة إضافية كيفية تنفيذ أمر معين عند فتح عرض تقديمي كيفية تنفيذ أمر معين عند إغلاق عرض تقديمي والمزيد من المهارات في فيجوال بيسك للتطبيقات VBA ستجد بالملفات الكود وزر أمر ل عرض قوائم 2003 وزر أمر ل إخفاء قوائم 2003 اضغط هنا لتحميل الملفات المستعملة في عرض وإخفاء القوائم أو من المرفقات وهذا الفيديو يقوم بشرح الخطوات خطوة بخطوة step by step ويسعدني تلقي إجابة حضراتكم عن كيفية عمل الملف الموجود في آخر الفيديو الخاص بعرض قوائم 2003 في تبويب جديد قبل تبويب الصفحة الرئيسية home للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع جميع أصدقائكم لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور Mas_ShowHide2003Menus.rar
  7. شكرا لمروركم الكريم وفقنا الله جميعا لكل خير
  8. شكرا لكل من مر على أول موضوع لي بالمنتدى ذكريات جميلة
  9. شكرا لمروركم الكريم أستاذ @صقر قريش89 وأستاذ @زاكي بوشلاغم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  10. شكرا لكلماتكم الطيبة أستاذ أحمد نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  11. أهلا وسهلا بكم من جديد أستاذ عبد الله أفتقدك كثيرا فرحي بعودتكم لا يضاهى وشكرا على هذه الهدية الثمينة
  12. لا حرمنا الله من هذا الود في الله وأعاد الله الغائيبين سالمين غانمين فهذا المنتدى بداية انطلاق لكل من يدخله يتعلم فيعمل فيعلم غيره
  13. وفقنا الله جميعا لكل خير
  14. تم اختصار الكود رجاء مراجعة تجربته مع العلم أن الكود يقوم باختبار وجود الملف ضمن مجموعة المصنفات المفتوحة في إكسل وليس له علاقة بموضوع إغلاق أو فتح الملف ولا تنسونا من صالح دعائكم
  15. فعلا المشكلة كما قال أخونا بن علية في تصميم مصدر البيانات لذا ينبغي عمل شيت آخر به الحقول المطلوب عرضها في المستند وجعل الشيت الجديد هو مصدر البيانات مرفق ملف الإكسل بعد تعديل بسيط يمكنكم تعديل الباقي بنفس الطريقة هذا إذا كنت حريصا على الاستمرار في استعمال دمج المراسلات تحكم.rar
  16. يمكنك استعمال هذه الدالة لفحص هل الملف مفتوح Function IsWBOpened(FileName As String) As Boolean Dim xWb As Workbook For Each xWb In Application.Workbooks If xWb.Name = FileName Then IsWBOpened = 1: Exit Function Next IsWBOpened = 0 End Function ويمكن استدعاؤها كالتالي Sub test() If IsWBOpened("yourfile.xlsx") Then MsgBox "الملف مفتوح", vbInformation, "a1mas.com" Else MsgBox "الملف غير مفتوح", vbInformation, "a1mas.com" End If End Sub
  17. شكرا لكلماتك الطيبة رد عليك ملك من الملائكة قائلا: آمين ولك مثلهاإن شاء الله
  18. بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts فتابعونا. جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 و 2019 و 365 excel keyboard shortcuts الحمد لله الذي وفقنا في جمع وترتيب وتبويب جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts مع توضيح فئة الاختصار ووصف عمله والمفتاح أو المفاتيح التي تقوم بهذا الإجراء ونتعرف أيضا على: أمثلة لكل اختصار وربطه مع باقي مفاتيح الاختصار والآن مع الجدول الذي يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts وهذا ملف Pdf يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts لمن يريد الاحتفاظ به وهذا الفيديو لنفس الغرض يمكن عمل إيقاف مؤقت Pause عند القراءة ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور
  19. أخي الكريم بارك الله لك مجهود رائع ولكن حتى لا يتم اعتبار الموضوع مجرد دعاية لصاحب الفيديو فيتم حذفه يرجى كتابة وصف دقيق لمحتوى الفيديو والعناصر الأساسية به
  20. بارك الله لك فعلا أستاذ محمد جميع معلمي مصر يملكون ترخيص قانوني لنسخة أوفيس 365 ولكنهم لا يعلمون كيف يستعملونه!!! شكرا لمروركم الكريم
  21. شكرا لكلماتك العطرة أخي الكريم وأحب أن أطمئنك أنه لا يتم رفع الملفات إلا بعد اختبارها على أكثر من جهاز فهذه مهمتنا حتى يكون الثواب -من الله- كاملا بإذنه تعالى
×
×
  • اضف...

Important Information