أ / محمد صالح

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

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

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

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

تم اختصار الكود رجاء مراجعة تجربته مع العلم أن الكود يقوم باختبار وجود الملف ضمن مجموعة المصنفات المفتوحة في إكسل وليس له علاقة بموضوع إغلاق أو فتح الملف ولا تنسونا من صالح دعائكم

فعلا المشكلة كما قال أخونا بن علية في تصميم مصدر البيانات لذا ينبغي عمل شيت آخر به الحقول المطلوب عرضها في المستند وجعل الشيت الجديد هو مصدر البيانات مرفق ملف الإكسل بعد تعديل بسيط يمكنكم تعديل الباقي بنفس الطريقة هذا إذا كنت حريصا على الاستمرار في استعمال دمج المراسلات تحكم.rar

يمكنك استعمال هذه الدالة لفحص هل الملف مفتوح 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

شكرا لكلماتك الطيبة رد عليك ملك من الملائكة قائلا: آمين ولك مثلهاإن شاء الله

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي جميع مفاتيح اختصارات الإكسل 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 عند القراءة ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور

أخي الكريم بارك الله لك مجهود رائع ولكن حتى لا يتم اعتبار الموضوع مجرد دعاية لصاحب الفيديو فيتم حذفه يرجى كتابة وصف دقيق لمحتوى الفيديو والعناصر الأساسية به

بارك الله لك فعلا أستاذ محمد جميع معلمي مصر يملكون ترخيص قانوني لنسخة أوفيس 365 ولكنهم لا يعلمون كيف يستعملونه!!! شكرا لمروركم الكريم

شكرا لمروركم الكريم أستاذ @احمد غانم وفقنا الله جميعا لكل ما يحب ويرضى

شكرا لكلماتك العطرة أخي الكريم وأحب أن أطمئنك أنه لا يتم رفع الملفات إلا بعد اختبارها على أكثر من جهاز فهذه مهمتنا حتى يكون الثواب -من الله- كاملا بإذنه تعالى

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

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح عرض جميع الملفات والمجلدات في مسار list all files and folders in path في vba فتابعونا. شرح عرض جميع الملفات والمجلدات في مسار list all files and folders in path في vba طلب مني أحد الأصدقاء الإجابة عن استفسار بخصوص البحث عن مجموعة من الملفات في مسار معين ثم نسخ هذه الملفات إلى مجلد جديد. فقررت عمل شرح عرض جميع الملفات والمجلدات في مسار list all files and folders in path في vba باستخدام دالة معرفة UDF وإجراء يمكن استعماله في كل تطبيقات أوفيس تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: إنشاء إنشاء إجراء sub في إكسل إجراء لعرض جميع الملفات الموجودة في مسار معين وكذلك عرض جميع المجلدات الفرعية داخل المسار عرض ملفات معينة بامتداد معين في مسار معرفة حجم مجلد بالبايت والميجايت استخدام صندوق حواري لتحديد مجلد folder picker تجاوز الخطأ إذا لم يقم المستخدم بتحديد مجلد برمجة دالة بوسائط اختيارية يمكن عدم كتابتها مع إعطائها قيمة افتراضية الكتابة في الخلية المجاورة لنطاق باستعمال الدالة offset البحث عن مجموعة من الملفات مكتوبة في نطاق من الخلايا استدعاء إجراء من داخل إجراء آخر أو من داخل نفسه والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح عرض جميع الملفات والمجلدات في مسار list all files and folders in path في vba الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 رابط الملف المستعمل في الشرح اضغط هنا للوصول للملف للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور list all files and folders in path.rar

تم حذف ما يخص التفعيل والكراكات في المشاركة لأنه يخالف قوانين المنتدى

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي تدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel فتابعونا. تدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel ربما تعرضت لنسخ جدول من برنامج ميكروسوفت وورد إلى إكسل، ولكن وجدت أن اتجاه الجدول من اليسار لليمين، قمت بعدة محاولات وتغيير اتجاه الشيت في إكسل ولكن لم تحصل على النتيجة المطلوبة، وتريد عكس اتجاه الجدول أفقيا Flip horizontal أو عكس اتجاه الجدول رأسيا Flip vertical أو حتى عكس اتجاه الجدول بزاوية Flip diagonal . أو تريد تدوير الجدول لليسار Rotate left أو تدوير الجدول لليمين Rotate right أو تريد تبديل الصفوف إلى أعمدة Transpose فقررت تصميم دالة معرفة تقوم بالمطلوب وكذلك مجموعة من المعادلات التي تؤدي الغرض فأصبح لدينا 6 معادلات لعمل المطلوب وكذلك 6 دوال معرفة لعمل المطلوب بالكود تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: طريقة إنشاء دالة معرفة user defined function في إكسل طريقة إنشاء إنشاء إجراء sub في إكسل كيفية التعامل مع كل خلية في النطاق بالكود vba بدائل دالة transpose تعمل على جميع إصدارات إكسل تخزين قيم الخلايا في مصفوفة واستعادتها مرة أخرى نسخ المعادلات مهما تغير مصدر البيانات في الجدول والمفاجأة الكبرى أن جميع ما سبق يتم بالمعادلات في أي مكان تريده ويتم بالكود وفي نفس المكان Flip range horizontal in place by VBA Flip range vertical in place by VBA Flip range diagonal in place by VBA Rotate range left in place by VBA Rotate range right in place by VBA Transpose range in place by VBA …… والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديوتدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 رابط الملف المستعمل في الشرح في المرفقات أو من هـــــنــــــــا للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور rotate flip transpose range formula and vba.rar

وفيكم بارك الله

إذا كانت فعلا هذه هي سبب المشكلة فيجب الرجوع لمسئول ال IT كما قلت سابقا أما إذا كان جهاز شخصي ولا يوجد مسئول IT فربما يكون هذا فيروس يمنع الكتابة في الريجيستري لذا ينصح بتثبيت نسخة ويندوز جديدة مع قحص الجهاز من الفيروسات كأول خطوة للاستخدام

الأخ @حمزة 2005 ربما يكون المانع أن الجهاز 1 لا يتم التعديل فيه على الريجيستري بسبب تأمينات للجهاز من مسئول IT مثلا فالكود يعمل بنجاح على جميع الأجهزة وتكرار ظهور الرسالة تعني عدم الاحتفاظ بنتائج التسجيل في الريجيستري شكرا لمروركم الكريم أستاذ @sofiane05552

شكرا لمروركم الكريم وإضافتكم الرائعة

شكرا لمروركم الكريم الأمر يرجع إليك أخي إبراهيم معي يعود بكلمة المرور في ثوان معدودة!!!

شكرا لك أخي الكريم يبدو أني لم أنشر هذا الموضوع بعد في أوفيسنا https://a1mas.com/شرح-طريقة-عمل-stopwatch-ساعة-إيقاف-و-countdown-في-vba/

الشكر لله