أ / محمد صالح
-
Posts
4486 -
تاريخ الانضمام
-
Days Won
198
نوع المحتوي
التقويم
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
شكرا لكلماتك الطيبة وفقنا الله جميعا لكل ما يحب ويرضى -
بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح عرض جميع الملفات والمجلدات في مسار 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
- 6 replies
-
- 2
-
-
- قايمة ملفات
- قائمة مجلدات
- (و6 أكثر)
-
تم حذف ما يخص التفعيل والكراكات في المشاركة لأنه يخالف قوانين المنتدى
-
بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي تدوير وانعكاس الجداول في إكسل 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
-
الأخ الكريم @bakry kassala هذا المتغير موجود في بداية موديول security -
شكرا لمروركم الكريم وإضافتكم الرائعة
-
فك حماية شيتات ملفات الإكسل بجمع إصداراتها وامتداداتها
أ / محمد صالح replied to أ / محمد صالح's topic in منتدى الاكسيل Excel
شكرا لمروركم الكريم الأمر يرجع إليك أخي إبراهيم معي يعود بكلمة المرور في ثوان معدودة!!! -
شكرا لك أخي الكريم يبدو أني لم أنشر هذا الموضوع بعد في أوفيسنا https://a1mas.com/شرح-طريقة-عمل-stopwatch-ساعة-إيقاف-و-countdown-في-vba/
-
الشكر لله
-
شكرا لكلماتك الطيبة أستاذ حسام نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا شكرا لكلماتك الطيبة أستاذ علي وفقنا الله جميعا لكل خير
-
هل احتجت أن تستبدل أكثر من نص (حرف أو كلمة) بمجموعة أخرى من النصوص (حروف أو كلمات) ومللت من تكرار دالة substitute بعدد مرات الاستبدال في المعادلة؟؟؟!!! إليك الحل بطريقتين مختصرتين دالة معرفة UDF وإجراء SUB زكاة العلم نشره فشارك غيرك ما تعلمه يزدد علمك لو بخل بها غيرك ما وصلت إليك #a1mas #ostazmas بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays فتابعونا. mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays ورد إلينا هذا السؤال في صفحتنا على فيس بوك وكانت الإجابة سريعة ولكن غير مختصرة فقررت تصميم دالة معرفة تقوم بالمطلوب وهو استبدال مجموعة من النصوص بمجموعة أخرى من النصوص في مرة واحدة ولكن ما هو الكود الذي سنحتاجه لعمل هذه الدالة mas_substitute ؟ تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: طريقة إنشاء دالة معرفة user defined function في إكسل طريقة إنشاء إنشاء إجراء sub في إكسل كيفية التعامل مع كل خلية في النطاق بالكود vba كيفية التعامل مع كل عناصر المصفوفة array elements إجراء أكثر من عملية استبدال بضغطة زر واحدة والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 رابط الملف المستعمل في الشرح هنــــــــا للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور mas_substitute.rar
- 5 replies
-
- 5
-
-
-
- استبدال مصفوفات
- substitute
- (و5 أكثر)
-
الحمد لله التثبيت طبيعي جدا بل أسهل من الطبيعي فقط الضغط المزدوج على ملف التثبيت وهو يتولي الباقي إلى أن تخرج رسالة اكتمال التثبيت
-
هل ما زالت المشكلة استاذ @أبو إسلام ؟ عندي وعند كل من قام بالتحميل لا يوجد أي مشكلة ربنا يوفقنا ونحل مشكلتك
-
دالة تفقيط التاريخ لابن خليفه الجموعي
أ / محمد صالح replied to ناصر سعيد's topic in منتدى الاكسيل Excel
بارك الله لكم دالة رائعة تقوم بالتفقيط حتى عام 9999 ذكرتني بهذه الدالة كنت قد صممتها في 2008 هنـــــــا لنفس الغرض ولكن بالأكسس وللعلم تم تطوير هذه الدالة بصورة أكثر احترافية ربما أعرضها في موضوع جديد في منتدى الأكسس إن شاء الله -
عليكم السلام ورحمة الله وبركاته قوانين المنتدى تمنع وضع أي ملفات تفعيل أو أرقام سيريال وهذا شيء يجب احترامه والبحث عن تفعيل اوفيس ٣٦٥ في محركات البحث يوصل للهدف إن شاء الله
-
هل تقصد مسئول الجهاز كمستخدم رئيسي له User account control أم تقصد الشخص مسئول IT على الشبكة الخاصة بالعمل ؟
-
أسعد الله أوقاتكم أحبتي في الله المهتمين بلغة القرآن الكريم، يسعدني أن أقدم البحث في معجم مختار الصحاح قمة السهولة والسرعة وهذه صفحة من برمجتي للبحث في جذور معجم مختار الصحاح. معجم مختار الصحاح لمن لا يعرفه: مختار الصحاح كتبه محمد بن أبي بكر بن عبد القادر الرازي ، وكان قد اختصره عن تاج اللغة وصحاح العربية تاركاً ترتيب مداخله حسب الترتيب التقليدي، أي بدءاً بحروف أواخر الكلمات. و قد امتاز معجم مختار الصحاح بإشارته في كثير من الأحيان في صدد الألفاظ الضعيفة والرديئة والمعربة وذكر الألفاظ الندرة والأضداد وعنايته بجوانب الصرف من اشتقاق وإبدال وإعلال. صدر معجم مختار الصحاح أول مرة في مجلدين بمطبعة بولاق المصرية عام 1865 وصدرت الطبعة الثانية عام 1957 بتحقيق أحمد عبد الغفور عطار. من صاحب معجم مختار الصحاح؟ صاحب معجم مختار الصحاح هو محمد بن أبي بكر بن عبد القادر الرازي. مختار الصحاح كتبه محمد بن أبي بكر بن عبد القادر الرازي ، وكان قد اختصره عن تاج اللغة وصحاح العربية تاركاً ترتيب مداخله حسب الترتيب التقليدي، أي بدءاً بحروف أواخر الكلمات. توالت طبعات مختار الصحاح وتزايد الإقبال عليه بشكل حفز وزارة المعارف المصرية في العقد الثاني من القرن العشرين إلى رعاية اصدار طبعة منه مرتبة أبجدياً ليسهل استعماله . وانتشرت تلك الطبعة بأحجام متفاوتة وأعيد طبعها عدة مرات . صدر تهذيب الصحاح لمحمود بن أحمد الزنجاني في طبعة جيدة عن دار المعارف المصرية بتحقيق عبد السلام هارون وأحمد عبد الغفور عطار وذلك سنة 1953. وكان مرتبا ترتيب الصحاح ثم قام محمود خاطر أحد موظفي مطبعة بولاق بترتيب الصحاح حسب ترتيب المعاجم الحديثة وطبع سنة 1907 بعد حذف منه بعض الألفاظ التي رأى أنها غير لائقة في السماع. والآن مع رابط الصفحة https://a1mas.com/mokhtaralsehah/ وجاري العمل على برمحة المعجم الوسيط بهذه الطريقة وفي الأخير لا ينقصنا سوى دعاؤكم لنا بالخير ومشاركة هذه الصفحة مع جميع أصدقائكم انتظرونا فالقادم أفضل بإذن الله في رعاية الله وحفظه ولا تنس تقييم المنشور
-
إن شاء الله تجد ما تريد ولكن هذا ملف تنفيذي exe يفضل وضعه كملف إكسل xls أو xlsx وإرفاقه في المنتدى بدلا من المواقع الخارجية
-
الكود الموجود في الموضوع يخص إرسال البريد باستخدام خادم smtp محلي اسمه localhost ولا يتم الإرسال تقريبا لأنه لا يوجد سيرفر على الجهاز المستخدم لذا ربما يفيد هذا الموضوع الكود في vba و vb.net قريب جدا
-
يتبقى فقط الإعلان عن الدالة looadkeyboardlayout #If Win64 Then Declare PtrSafe Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #Else Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #End If ويكون الكود في حدث تغيير التحديد في الشيت المطلوب كما هو مشار إليه سابقا Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 4 Then LoadKeyboardLayout "00000401", 1 Else LoadKeyboardLayout "00000409", 1 End If End Sub وهذا الكود معناه هو تغيير لغة الكتابة إلى العربية السعودية في العمود الرابع D وتغييرها إلى الانجليزية في غيره من الأعمدة