عمل رائع استاذ ياسر ... نقترح رز لجلب اكبر 10 قيم ضمن النطاق ... او رز لعرض كل الارقام في الخلايا ضمن النطاق على اعتبار بان الارقام الكبير لا يعرضها الاكسل ...او زر لعرض الارقام في خلايا النطاق والتي تبدا باصفار لان لاكسل لا يعرض المراتب العليا التي تبدا بصفر ...او زر لعد النصوص فقط ضمن النطاق.... او زر لعد الخلايا التي تعطي خطا value ضمن النطاق... وانتم اهل لمثل هذه الافكار ... وجزاكم الله الف خير
جزاك الله خيراً وبارك فيك أستاذ ياسر على الجهد الذي تبذله و المحتوى القيم جدا الذي تقدمه، ياريت تضيف لهذا العمل كتابة العدد بالحروف، باللغة العربية و الفرنسية، و إن أمكن اللغة الإنجليزيةAR. FR. EN مع الشكر و التقدير
شكرا يا استاذ ياسر ونعم ربنا يزيدك بس ليا طلب عن حضرتك ملفات اللي في المرفقات مبتحملش وكان نفس فى ملفات التفقيط و الحلقة دي الملفات عموما ترعيها تنزها علي موقع تحميل وشكرا
رائع استاذ ياسر ايه رأى حضرتك لو اضافنا اكواد للمعادلات الغير موجودة فى الاكسيل مثل التفقيط و ال lookup باكثر من شرط و الكثير منها التي نتحايل عليها بالاكواد للاسف وجدت اضافة جيدة جدا و مفيدة على احد المواقع و لكن للاسف كانت تجريبية لفترة و بمقابل اعتقد كانت بعنوان ku tools
عند نسخ المف ياتى على هذا الشكل لماذا(Sub CountCellsByColor() 'عدد الخلايا ذات الخلفية المحددة Dim ColoredCell As Range Dim SelectedRange As Range On Error Resume Next Set SelectedRange = Application.InputBox("من فضلك ادخل النطاق", Title:="النطاق المطلوب", Type:=8) On Error GoTo 0 If SelectedRange Is Nothing Then MsgBox ("لم يتم ادخال نطاق ") Exit Sub End If الكلام الى بالعربى ياتى مختلف
يمكنك تحميل الملف مباشرة من هنا
yasersoft.com/?p=129
الملف مش شغال
الملف مش شغال
yasersoft.com/?p=129
yasersoft.com/?p=129
عمل ممتاز شكرا جزيلا على هذا العمل المبدع
الف شكر على جهودك الجبارة اخي العزيز
شكرا أستاذ ياسر تبويب رائع جداً والامور تمام 👍❤️❤️
الف شكر
رووووعة الفكرة جميلة و الشرح اجمل ... أحسنت وبارك الله فيك
ربنا يبارك فيك
ربي يبارك في علمك و عطائك و سعادتك و في عافيتك أضعاف أضعاف ما تتمناه لنفسك.
ربنا يبارك فيك يجزيك كل الخير
محتوى راقي ومهاري 🌹
الف شكر ربنا يبارك فيك
عمل رائع استاذ ياسر ... نقترح رز لجلب اكبر 10 قيم ضمن النطاق ... او رز لعرض كل الارقام في الخلايا ضمن النطاق على اعتبار بان الارقام الكبير لا يعرضها الاكسل ...او زر لعرض الارقام في خلايا النطاق والتي تبدا باصفار لان لاكسل لا يعرض المراتب العليا التي تبدا بصفر ...او زر لعد النصوص فقط ضمن النطاق.... او زر لعد الخلايا التي تعطي خطا value ضمن النطاق... وانتم اهل لمثل هذه الافكار ... وجزاكم الله الف خير
تسلم اخوى ياسر
دائماً مبدع ومميزة 🌷
ربنا يبارك فيك
تسلم ايدك دايما مميز جزاك الله خيرا
ربنا يبارك فيك
جزاك الله خيراً وبارك فيك أستاذ ياسر على الجهد الذي تبذله و المحتوى القيم جدا الذي تقدمه، ياريت تضيف لهذا العمل كتابة العدد بالحروف، باللغة العربية و الفرنسية، و إن أمكن اللغة الإنجليزيةAR. FR. EN
مع الشكر و التقدير
فكرة حلوة هحاول اعملها
ماشاء الله عمل جبار شكر يافندم
وعندي فكرة لو تعمل كود لتنسيق الجدول
يعني ممكن اعمل تنسيق خاص واقدر احفظه وممكن استخدمه على ملف جديد
مجهود رائع
الف شكر
ممكن تعمل واحدة للتفقيط حتى الارقام الكبيرة بالملايين
انت فنان
فكرة جميلة يا هندسة --- هل من الممكن يتم انشاء جدول و تنسيقه -- و هل من الممكن اضافة معادلات و شكرا لحضرتك
الف شكر يا صديقى و الموضوع مفتوح للاقتراحات كل ما هلاقى حاجة تستحق هعملها
شكرا يا استاذ ياسر ونعم ربنا يزيدك بس ليا طلب عن حضرتك ملفات اللي في المرفقات مبتحملش وكان نفس فى ملفات التفقيط و الحلقة دي الملفات عموما ترعيها تنزها علي موقع تحميل وشكرا
تم عمل جميع الخطوات وظهور القائمة ولكن عند تنفيذ الخطوات على شيت الاكسل لا تعمل
رائع استاذ ياسر
ايه رأى حضرتك لو اضافنا اكواد للمعادلات الغير موجودة فى الاكسيل مثل التفقيط و ال lookup باكثر من شرط و الكثير منها التي نتحايل عليها بالاكواد
للاسف وجدت اضافة جيدة جدا و مفيدة على احد المواقع و لكن للاسف كانت تجريبية لفترة و بمقابل اعتقد كانت بعنوان ku tools
الله ينور عليك
عند نسخ الاكواد الى الموديول يتم نسخ الحروف باللغة العربية الى حروف غير معروفة (كيف يمكن تعديلها) بحيث استطيع كتابتها باللغة العربية
شي رائع وجميل -- الله يجزيك الخير ولكن أنا عندي نسخة اوفيس 2016 وغير موجود فيها my tools كيف ليأن أفعلها ؟؟؟؟؟
ارجو مشاهدة الفيديو اخى حتى تستطيع التطبيق
عند نسخ المف ياتى على هذا الشكل لماذا(Sub CountCellsByColor()
'عدد الخلايا ذات الخلفية المحددة
Dim ColoredCell As Range
Dim SelectedRange As Range
On Error Resume Next
Set SelectedRange = Application.InputBox("من فضلك ادخل النطاق", Title:="النطاق المطلوب", Type:=8)
On Error GoTo 0
If SelectedRange Is Nothing Then
MsgBox ("لم يتم ادخال نطاق ")
Exit Sub
End If
الكلام الى بالعربى ياتى مختلف
السلام عليكم ، من عيوب هذه الطريقة لم تقم بتحيين اللون المجاميع أو العدد لا يتغير
نعم يجب اعادة اجراء العملية من جديد
@@YasserMunir ألا يوجد حل بالماكروللتحيين
هل يوجد اكواد اخري خلاف المذكورة بتلك الحلقة ؟؟؟؟
ruclips.net/video/Ru4zOVj8K4k/видео.html
جميل جدا بس انا عملت كل الخطوات ومش راضي يحقق معيا المعادلات
جميل جدا ولكن الملف لا يعمل
الرابط الخاص بالملف لا يعمل ممكن ترسلي الملف
الملف غير موجود
الروبط لاتعمل ليه كده الاشتغاله ؟؟
bit.ly/3Q4qgZc
الملف غير موجود
لايوجد خيار EXCEL ADD IN XLAM
السلام عليكم استاذ ياسر ملف التحميل غير موجود
bit.ly/3Q4qgZc
السلام عليكم الملف لا يعمل
bit.ly/3Q4qgZc
الرابط لا يعمل
السلام عليكم لينك الملف مش شغال ممكن تنزل الملف مرة تانيه
bit.ly/3Q4qgZc
غير موجود
bit.ly/3Q4qgZc
السلام عليكم الملف لايمكن تحميله
bit.ly/3Q4qgZc
الملف غير متاح
bit.ly/3Q4qgZc
غير موجود ملف التحميل
bit.ly/3Q4qgZc
روابط لا تعمل
bit.ly/3Q4qgZc
الرابط لا يعمل
bit.ly/3Q4qgZc
السلام عليكم الملف لا يعمل
bit.ly/3Q4qgZc
الملف غير موجود
bit.ly/3Q4qgZc