عمل رائع استاذ ياسر ... نقترح رز لجلب اكبر 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
ممكن تعمل واحدة للتفقيط حتى الارقام الكبيرة بالملايين
الله ينور عليك
هل يوجد اكواد اخري خلاف المذكورة بتلك الحلقة ؟؟؟؟
th-cam.com/video/Ru4zOVj8K4k/w-d-xo.html
تم عمل جميع الخطوات وظهور القائمة ولكن عند تنفيذ الخطوات على شيت الاكسل لا تعمل
عند نسخ الاكواد الى الموديول يتم نسخ الحروف باللغة العربية الى حروف غير معروفة (كيف يمكن تعديلها) بحيث استطيع كتابتها باللغة العربية
عند نسخ المف ياتى على هذا الشكل لماذا(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 ألا يوجد حل بالماكروللتحيين
شي رائع وجميل -- الله يجزيك الخير ولكن أنا عندي نسخة اوفيس 2016 وغير موجود فيها my tools كيف ليأن أفعلها ؟؟؟؟؟
ارجو مشاهدة الفيديو اخى حتى تستطيع التطبيق
الملف غير موجود
الروبط لاتعمل ليه كده الاشتغاله ؟؟
bit.ly/3Q4qgZc
جميل جدا بس انا عملت كل الخطوات ومش راضي يحقق معيا المعادلات
الرابط الخاص بالملف لا يعمل ممكن ترسلي الملف
جميل جدا ولكن الملف لا يعمل
الملف غير موجود
السلام عليكم استاذ ياسر ملف التحميل غير موجود
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