samycalls2020

أخي الكريم / أبو أحمد .. السلام عليكم كل التحية والتقدير لمجهودك الكبير . وإن كنت أتمنى أن يكون الحل من خلال التطبيق الموجود بالملف بمعنى من خلال اصلاح كود الفرز عموما اسمح لي في بعض الملاحظات من خلال تجربتي السريعة للعمل الذى قدمته ولك لكل تحية وشكر علية . * بداية عمود التصفية من صف 11 وشرط التصفية من صف 12 ويفضل أن يكون عمود التصفية بأسماء صف العناوين رقم6 وشرط التصفية من صف رقم7 أي بداية الجدول . * عدم وجود تسلسل رقمي وأبجدي بشرط التصفية . * تصفية الأرقام لا تعمل لأنها تظهر في شرط التصفية بدون علامة ( 0.00 ) من مائة ، وبالتالي تصفية عمود F وعمود H لا تعمل . * عمود التصفية يظهر به التاريخ الشهر قبل اليوم . * عند الضغط على عمود التصفية وشرط التصفية تتحول الأرقام والتواريخ الى العربية وعند ترك الضغط تعود للإنجليزية . * الأرقام تظهر في القائمتين والخاصة برصيد الخزينة بعمود L بكسر كبير والمفترض أن يكون أي رقم بكسر( 0.00 ) من مائة . تقبل تحياتي

السلام عليكم الأخوة الكرام .. الموضوع خاص بفرز وتصفية أعمده في جدول كما في المرفق خزينة تجريبى.xlsb

نعم هو المطلوب .. كل الشكر والتقدير

شكراً أ. محمد صالح على مشاركتك القيمة

السلام عليكم ما أطلبه من حضراتكم هو تبديل كلمة "طب" في الماكرو واستبدالها بخلية H2 التي تحتوى على قائمة منسدلة بحيث يمكن تغير ما نبحث عنه , وطبعاً ما يترتب على ذلك من تعديل في الكود . وشكراً على تفضلكم بالمساعدة Sub بحث_وانتقال() If Intersect(ActiveCell, Range("C6:C45")) Is Nothing Then Range("C6").Select Range("C6:C45").Find("طب", ActiveCell, xlValues).Select End Sub الكليات 2022.xlsm

كل الشكر والتقدير أ. أبو أحمد

شكراً أ. أبو أحمد .. على المشاركة ذكرت أن الأصح الرقم صاحب اللون الأزرق 80% بدون كسور ولكن من الممكن أن تكون نسبة الدرجات تحمل كسور السؤال هنا .. لماذا الأصح الرقم صاحب اللون الأزرق 80% وما سبب الفرق بين النتيجتين؟ شكراً

السلام عليكم ما هي النسبة الأصح شهادة الثانوية العامة 2023م.xlsx

بارك الله فيكم ولكم .. وكل الشكر والتقدير

أ / إبراهيم .. تحياتي واحترامي دائماً سباق بالعطاء .. هناك ملاحظة أرجو مشاهدة المرفق بحث عن قيم3.xlsb

السلام عليكم مطلوب معادلة للبحث عن مجموعة حسابات كما موضح فى المرفق وفقكم الله وسدد خطاكم بحث عن قيم.xlsb

تم استخدام الكودين معاً فكرة لابأس بها . . شكرا يا أخي

Private Sub Worksheet_Change(ByVal Target As Range) Range("M5:M17").Value = Range("G5:G17").Value End Sub بهذا التعديل يعمل الكود وبعدها يعطى رسالة

يحدث النسخ عند الكتابة فى ورقة 1 هذا الخاص بالمعادلات وفى حالة الجزء الخاص بالكتابة المباشرة فى ورقة data من G5 TO G10 لا يحدث نسخ

شكراً على الرد أ/حسونة لكن حاولت التطبيق على حقلين في عمودين مختلفين ليناسب الملف الذى يخصني فلم أوفق أرفقت طلبي بهذا الملف . وبارك الله فيكم Test2.xlsm

الكود بزر Sub Test() Range("D2").Value = Range("A1").Value End Sub ممكن عمله بدون زر من فضلك

شكراً للجميع. لم تحل المشكلة

للأسف ظهرت هذه الرسالة

أ / عبد الفتاح .. شكرا للمشاركة برنامج Adobe Flash Player v 32.0.0.465 موجود على الجهاز قمت بحذفة وإعادة تنصيبه ولكن المشكلة قائمة كما هى

السلام عليكم أود إضافة ملف فلاش الى ملف اكسيل في اوفيس 2016 ولكن عنصر التحكم Shockwave Flash Object غير موجود فهل من طريقة لإيجاد هذا العنصر أو أضافته وفقكم الله

بارك الله فيك وجزاك بكل خير

أ. أبو أحمد لدى مشكلة في الشيت وتأخيري في الرد لأنى أرهقتك ومحرج منك لذلك من البداية كنت أفضل المعادلات عموما : هناك بين الجداول بيانات عند وضعها توقف الكود ثانيا هل يمكن عمل زر للكود في ورقة القيود هذا كل شيء .. لو أجبتني فهذا كرم زائد منك .. ولو اكتفيت بما قدمت فهذا يكفى . . فالكثير من رواد الموقع سيستفيدون منه وجزاك الله خيراً حساب المدد_06.xlsb

وضعت أسماء الشهور للبيان والتوضيح لأكثر وهى ليس لها مكان في الملف الأصلي

هذا مثال .. كما طلبت . ويمكن أن يتضاعف عدد الجداول حسب حاجة العمل حساب المدد.xlsb

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