نجوم المشاركات

هى دالة أعمل عليها منذ فترة ليست بالقليلة ، وهى كيفية فصل الأسماء " المركبة فى اللغة العربية ورغم صعوبة وتعدد الأسم المركب ، إللى إنى توصلت لهذه النتيجة المرضية ، التى تحقق الكثير من المنفعة لمستخدمى المعادلة العربية لحاجتنا جميعا لها فى كافة أعمالنا على إختلاف ، تخصصاتنا طريقة عمل المعادلة: 1- الدالة تحتوى على الأسماء التى تسبق الأسم المركب لتقوم بضم مابعد هذا الأسم إليها فى خلية واحدة لتعمل الأسم المركب مثل " عبد ، أبو ، عز، جاب " وبالطبع يمكن تغيير هذه الأسماء وقد غيرت فيها مثل " علاء ، حسام " ليضاف لها " الدين " ليصبح " علاء الدين " أو "حسام الدين " 2- لوفرضنا أن هناك أسم مفرد فى أول الأسم مثل " علاء أحمد عبد العزيز عبدالله " ستجد أن المعادلة تعتبر الأسم الذى يلى "علاء " جزء من أسمة المركب لتصبح الخلية الأولى " علاء أحمد " وهذا خطأ بالطبع فى هذه الحالات المفردة يتم زيادة الفراغ بعد علاء زيادة واحد إضافية أى يصبح الفراغ بين "علاء " و" أحمد " فراغان إثنان وليس فراغ واحد وهكذا أم المعادلة فتعمل بكفاءة تامة مهما كان طول الأسم أتمنى أن يكون عمل مفيد لكافة زملائى ، لعلو ورفعة مكانة المعادلة العربية لتحقق كل مانريد منها تقبلوا تحياتى فصل الأسماء مهما كان طولها وكذلك الأسماء المركبة.rar

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

وبالنسبة لشرح الكود For i = 1 To Sheets.Count السطر السابق يمثل حلقة تكرارية تبدأ من رقم 1 حتى عدد الشيتات الموجودة فى الملف Sheets(i).Cells.EntireRow.Hidden = False السطر السابق يعمل على اظهار جميع الصفوف المخفية فى جميع الشيتات الواحدة تلو الأخرى x = Sheet1.Range("A4") + 1 السطر السابق وضع قيمة x تساوى الرقم الموجود فى الخلية A4 ونزيد واحد حتى يبدأ الإخفاء من السطر التالى للرقم الذى نحدده Sheets(i).Range("a" & x & ":a" & Rows.Count).EntireRow.Hidden = True السطر السابق يخفى جميع الصفوف من الصف المساوى للرقم x حتى آخر صف

السلام عليكم تفضل أخى الجزء الخاص بعدم التعديل إلا من خلال الفورم أما الجزء الخاص بالمظهر الجميل فهى وجهات نظر وأذواق مختلفة يمكنك عمل التنسيقات والألوان التى تفضلها Book11.rar

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

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

الأستاذ الفاضل / محمد الريفي السلام عليكم ورحمة الله وبركاته عذراً لم ارى مشاهدة حضرتك إلا بعد رفع مشاركتي. جزاك الله خيراً على الحل . لك كل التحية والتقدير.

الأستاذ / مصطفى ابو العنين السلام علسكم ورحمة الله وبركاته إليك الملف به المطلوب. دالة صعبة التنفيذ ؟؟؟.rar

السلام عليكم تفضل اخى الكريم وارجو ان يكون هو المطلوب دالة صعبة التنفيذ ؟؟؟.rar

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

السلام عليكم ورحمة الله أخي الكريم، لو كان المطلوب هو تلوين خلايا العمود E حسب الشرط بطريقة مؤقتة، أي بمجرد ما تتغير الأرقام في النطاق F2:M2 يعود اللون الأصلي للخلايا السابقة حسب الشرط الجديد، لكان حل الأخت الفاضلة أم عبد الله كافيا ومستوفيا الطلب ولكنك قلت إنه لا بد من بقاء الخلايا الملونة سابقا ويضاف تلوين خلايا أخرى عند إدخال أرقام جديدة للمقارنة (ولا يمكن ذلك إلا بكود)، من أجل ذلك كتبت كودا يقوم بالعملية غير أن أرقام المقارنة لا ندخلها واحدا واحدا وإنما ندخلها متلاصقة في خلية واحدة (الخلية O2 الملونة بالأصفر)، ووضعت معادلات تقوم بفصل أرقام العدد (من 8 أرقام على الأكثر) على خلايا النطاق F2:M2 (كل رقم في خلية بالترتيب) وبمجرد الموافقة على العدد المُدخل يقوم الكود (في حدث الورقة المرتبط فقط بالخلية O2) بعمله وهو تلوين خلايا العمود E التي يتوفر فيها الشرط... نطاق خلايا العمود E بداية من الصف الثالث التي بها بيانات سميته MyRange لاستعمال هذه التسمية في الكود... وضعت أيضا كودا آخر لإعادة تلوين خلايا النطاق MyRange إلى اللون الأصلي الأزرق (احتياطا لوقت الحاجة)... أرجو أني وفقت في تقريب وتلبية الطلب.... أخوك بن علية المرفق : جدول مقارنة التحاليل2.rar

الأستاذ / أبو تيم السلام عليكم ورحمة الله وبركاته تم العمل بالتنسيق الشرطي عندما تغير أي رقم في الأعمدة A;B;c يتم تلوين الخلية المقابلة في العمود E جدول مقارنة التحاليل.rar

أستاذنا العبقري الفذ / بن علية حاجي السلام عليكم ورحمة الله وبركاته جزاك الله حيراً على هذا الحل الرائع وبعد إذن حضرتك ولإثراء الموضوع حل آخر . دالة hour.rar

أخى الفاضل أرجو مزيد من التوضيح على الملف المرفق حتى يتضح المطلوب أكثر

بعد إذن أخى الكريم الأستاذ الكريم / محمد يوسف اليكم الملف بطريقة أخرى ترحيل مباشر بمجرد كتابة ناجح أو راسب يتم الترحيل تلقائيا وتقبلوا منى وافر الاحترام والتقدير الشيت11.rar

تحدد التحديد الاول للنص المظلل ثم تبقئ ضاغطا على المفتاح Ctrl وتحدد التحديد الثاني للنص المظلل ثم التحديد الثالث للنص المظلل ....وهكذا الى ان تحدد جميع النصوص المظللة ومفتاح Ctrl دائما مضغوطا ثم تنقر على زر الامر تظليل وتختار الخيار " بلا لون " والسلام عليكم

تم الوصول للحل بحمد الله وتوفيقه على النحو التالي ( كمصدر لبيانات مربع النص المخصص للمجموع ) بدون VBA فما رأي حضرتك =IIf(([Arabic]="غـ" Or [Arabic]="غ") And ([English]="غـ" Or [english]="غ") And ([Math]="غـ" Or [math]="غ") And ([Science]="غـ" Or [Science]="غ");"غ";Val([Arabic])+Val([English])+Val([Math])+Val([Science]))