مصطفى كمال

شكرا جزيلا على الدالة لست الوحيد الذي كان بحاجة إليها جعلها الله في ميزان حسانتك ذخرا لك يوم الآخرة

بعد كتابة الكود أضغط على Ctrl + Shift + enter وستحصل على نتيجة

مرحبا بك صديقا جديدا في المنتدى

جرب الموضوع التالي http://www.officena.net/ib/index.php?showtopic=19160

يتعامل الاكسل مع قاعدة البيانات سواء أرقام أو بيانات

السلام عليكم ورحمة الله تعالى وبركاته أقدّم اليوم ملف يحتوي معادلتين بالإكسيل لإجازة الطالب أو العقوبة مع الملاحظة بالفيجوال باسيك الكود التالي خاص بالإجازات والعقوبات Function Mention(Note As Single) As String Dim Selecteur As Variant Selecteur = Note Select Case Selecteur Case Is <= 7.99 Mention = "&Ecirc;&aelig;&Egrave;&iacute;&Icirc;" Case 8 To 9.99 Mention = "&Aring;&auml;&ETH;&Ccedil;&Ntilde;" Case 10 To 12.49 Mention = "&aacute;&Ccedil;&Ocirc;&AElig;" Case 12.5 To 13.49 Mention = "&aacute;&aelig;&Iacute;&Eacute; &Ocirc;&Ntilde;&Yacute;" Case 13.5 To 14.99 Mention = "&Ecirc;&Ocirc;&Igrave;&iacute;&Uacute;" Case 15 To 17.99 Mention = "&Ecirc;&aring;&Ccedil;&auml;&iacute;" Case Is <= 20 Mention = "&Ccedil;&atilde;&Ecirc;&iacute;&Ccedil;&Ograve;" Case Else Mention = "&Ecirc;&Atilde;&szlig;&Iuml; &atilde;&auml; &Ccedil;&aacute;&atilde;&Uacute;&Iuml;&aacute;" End Select End Function يمكن تغيير سلم المعدل والملاحظات الكود الثاني خاص بالنتائج التي حققها الطالب وبنفس طريقة الكود الأول Function OBSERVATION(Note As Single) As String Dim Selecteur As Variant Selecteur = Note Select Case Selecteur Case Is <= 9.99 OBSERVATION = "&Uacute;&atilde;&aacute; &Ucirc;&iacute;&Ntilde; &szlig;&Ccedil;&Yacute;" Case 10 To 12.49 OBSERVATION = "&Iacute;&Oacute;&auml;" Case 12.5 To 13.49 OBSERVATION = "&Iacute;&Oacute;&auml; &Igrave;&Iuml;&Ccedil;" Case 13.5 To 14.99 OBSERVATION = "&Igrave;&iacute;&Iuml;" Case 15 To 17.99 OBSERVATION = "&Igrave;&iacute;&Iuml; &Igrave;&Iuml;&Ccedil;" Case Is <= 20 OBSERVATION = "&atilde;&atilde;&Ecirc;&Ccedil;&Ograve;" Case Else OBSERVATION = "&Ecirc;&Atilde;&szlig;&Iuml; &atilde;&auml; &Ccedil;&aacute;&atilde;&Uacute;&Iuml;&aacute;" End Select End Function الكودين من ملف من موقع فرنسي م تحميله وتم فيه التغيير للأمانة لا تنسونا من ملاحظاتكم وآرائكم لا تنسونا من صالح الدعاء بظهر الغيب mention.rar

/إليك الروابط التالية لمواضيع تم تناولها من طرف الإخوة سابقا لمنع تكرار الاسم انظر الموضوع التالي http://www.officena.net/ib/index.php?showtopic=20916 لمقارنة القوائم http://www.officena.net/ib/index.php?showtopic=22602 استخدم الملف الأول إن كان الإسم واللقب في خانة أو الملف الثاني إن كان الإسم في خانة واللقب في خانة بمقارنة قوائمك وقوائم باقي الإدارات لأي استسفسار فريق المنتدى تحت التصرف

يحتاج الأخ إلى الطريقة التي يتم بها استخراج رقم لحاسوب لاستخدامه في certificat لغرض حماية الملفات ولكي يتم فتحها على مستوى حاسوب واحد فقط

قم بحماية جميع الخلايا للشيت مع تنسيق الصفحة للطباعة

تم الرد على الموضوع http://www.officena.net/ib/index.php?showtopic=22624

جرب الملف التالي، علما أنه مشاركة سابقة لأحد الأعضاء للأمانة أرجو أن تجد فيه ما تححتاجه Book1.rar

ارجو أن أكون أجبت على سؤالك لا تنسانا من صالح الدعاء tri.rar

رجاء أرسل ملف توضيحي

أرجو أن أكون وفقت في الاجابة لآتنسانا من صالح الدعاء 22624.rar

أرجو أن تجد ضالتك في الموضوع التالي http://www.officena.net/ib/index.php?showtopic=22626

شكرا جزيلا فقد كنت بحاجة إلى بعض المواضيع خاصة باللغة العربية جزاك الله كل خير

السلام عليكم ورحمة الله تعالى وبركاته أقدم الملف التالي حول كيفية حساب القيم المتكررة في قائمة وتكراراتها أرجو أن ينال إعجابكم لا تبخلوا بملاحظاتكم واستفساراتكم لا تنسونا من صالح الدعاء doublons.rar

شكرا على الملف جعله الله في ميزان حسانتك

أنظر الموضوع التالي http://www.officena.net/ib/index.php?showtopic=22602

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

شكرا على الموقع ، جعله الله في ميزان حسانتك

ألف ألف شكر على الهدية، فعلا هدية عيد رائعة شكرا جزيلا

تفضل ، أرجو أن تجد ماتحتاجه Classeur1.rar

أرجو أن تجد ما تحتاجه _____________________1.rar