عبدالله المجرب

اخي العزيز HaNcOcK لك كل الشكر علي الكمات الطيبه و اشكرك علي مرورك الكريم خالص تحياتي و تقديري ابواحمد

اخي الفاضل ولو انك لم تغير في المرفق شيء سوء ازالة المعادلات ما كنت اقصده هو الورقة رقم 11 تفضل المرفق * اعتقد انه بامكانك اضافة المعادلات الى الورقة 19 Book111.rar

اخي الفاضل نرجو منك وضع ورقة البيانات (قاعدة البيانات) فالجدول الموجود مرتبط بهذه القاعدة(المفقودة ) في الملف المرفق كما احب ان انوه ان ترفق الطلبات كاملة وليس طلب ثم طلب ثم طلب لنفس الملف توفيراً للجهد والوقت وشكراً

تفضل المرفقات Classeur1.rar

اخي الفاضل طلبك امر فيحدود استطاعتي ومعرفتي تفضل المرفق مثال.rar

تفضل المرفق مثال.rar

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

اخي الفاضل هذه هي الصيغة (الكود) وهو موجود في ملف الاستاذ عادل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub If Target <> "" Then Range("A" & Target.Row) = Date End Sub وتوضع بعد فتح محرر الاكود في حدث الورقة المطلوب التطبيق فيها ابواحمد

اخي الفاضل المرفق في المشاركة السابقة فيه هذه الدالة Function TransA2E(W As String) As String On Error GoTo err: Dim AL(), EL() AL = Array(" ال", "َا", "ا", "أ", "آ", "ى", "إ", "ؤ", "ئ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "ة", "ُوْ", "و", "ِيْ", "ي", "َ", "ً", "ُ", "ٌ", "ِ", "ٍ") EL = Array(" al-", "a", "a", "a", "a", "a", "i", "u", "i", "b", "t", "th", "j", "ha", "kh", "d", "th", "r", "z", "s", "sh", "s", "sh", "t", "th", "a", "g", "f", "q", "k", "l", "m", "n", "h", "h", "u", "w", "i", "y", "a", "tn", "u", "un", "i", "in") Do p = InStr(p + 1, W, "ّ") If p > 0 Then W = Left(W, p - 1) & Mid(W, p - 1, 1) & Mid(W, p + 1) Loop While p > 0 For R = LBound(AL) To UBound(AL) W = Replace(W, AL(R), EL(R)) Next TransA2E = W err: End Function ضعها في محرر الاكواد وبعدها ستجدها اصبحت دالة من دوال الاكسل باسمTransA2E ضع الخانة المكتوب فيها الاسم المراد ترجمته وراعِ التشكيل للحصول على ترجمة مقاربة

اختي الفاضلة اسيرة الغربة اهلاً وسهلاً بك بين اخوانك اخوكِ في الله ابواحمد

تفضل المرفق ffff.rar

اخي الفاضل راجع الرابط ادناه وان شاء الله تستفيد عبدالله المجرب

اخي thaer younis تفضل المرفق *قد تكزن الترجمة حرفية ولكن قد تساعد نوعاً ما * للتشكيل دور مهم في الترجمة ابواحمد Names.rar

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

اخي ياسر الحافظ اشكرك جزيل الشكر على كلامك العسل الاستاذ يوسف حفظك الله على الحل المرفق الحل كما تفضل به اخي المعتصم وهو الطرح العادي تفضل المرفق الفارق بالايام.rar

اخي الفاضل تفضل المرفق الفارق بالايام.rar

اخي شمس الثورة الخطاء في المعادلة =IF(OR(AQ6="يتيم");3;"")&" "&IF(OR(AQ6="معيد");4;"") الموجودة في ورقة العمل (11) في العمود AS الصف 6 استبدلها بالمعادلة التالية واسحبها الى الاسفل =IF(AQ6="يتيم";3;IF(AQ6="معيد";4;"")) ولاحظ الفرق كما قم بسحب الدالة في العمود B6 في ورقة الايتام الى الاسفل

استاذي الفاضل ابا عمر هل هذا هو ما تقصدة تفضل المرفق حساب السن في اكتوبر.rar

اخي الفاضل الفرق ان المعادلة =LOOKUP(Q1;'R'!A:A;'R'!BW:BW) تغطي العمود A في الورقة R بالكامل =LOOKUP(Q1;'R'!A$1:A$85;'R'!BW$1:BW$85) بينما هذه المعادلة تغطي العمود A من الخلية 1 الى 85 فقط والله اعلم

اخي chiko نرجو منك ارفاق ملف بالمطلوب

اخي الفاضل معادلة ممتازة جداً ولكنها لا تعمل ضمن الشرط وهو 100 لذا قمت بالتعديل البسيط عليها =IF(AND((C2<>0);(B2<>0);(ISNONTEXT(C2));(ISNONTEXT(B2));((SUM(C2)-SUM(B2))=100));((SUM(C2)-SUM(B2)));"")

الاستاذ الفاضل عادل حنفي اعذرني لم ارى مشاركتك بارك الله فيك فانت لا تتاخر عن المساعدة حفظك الله تلمذيك ابواحمد

تفضل المرفق omar.rar

الاستاذ الفاضل احمد زمان عمل ممتاز وابداع مميز

اخي احمد عمل ممتاز ومتقن سلمت يمينك