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

تفضل المرفقات 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

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

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

اخي جمال تفضل المرفق وهو للعلم نفس ملف الاستاذ طارق حفظه الله ولكن كان هناك خطا تم التعديل عليه في المعادلة التالية =IF(OR(AQ6="يتيم");3;"")&" "&IF(OR(AQ6="معيد");4;"") تم استبدالها بالمعادلة =IF(AQ151="يتيم";3;IF(AQ151="معيد";4;0)) جمال الفار.rar

اخي جمال لو اني افضل استخدام الدالة في هذه المسالة بالذات حسب طلبك ارفق لك الملف فيه حساب السن بالكود ملاحظة لن يعمل الكود حتى يتم كتابة السنة اذا تم تغير تاريخ 01/10/2011 فستكون مضطر الى المرور على جميع خلايا (السنة) لتحديث التاريخ لان الكود يعمل لكل خليه وليس لجميع الخلايا (لان الاكسل يعلق اذا ترك لكل الخلايا) ولذا انا انصحك باستخدام الدوال في افضل كود السن.rar

شكراً لمرورك ابا عمر ولكلامك الطيب الله يسلمك استاذنا الغالي عادل حنفي اخي abumode75 شكراً لمرورك