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

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

تم تفعيل خاصية الدخول للموقع بحساب الفيس بوك الخاصية تحت التجربة عند تسجيل الدخول ، يمكنك الضغط على زر الفيسبوك للدخول للموقع بحسابك جاري التجربة

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

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة Option Explicit '========================================================" ' بسم الله الرحمن الرحيم " '========================================================" ' (دالة تحويل الرقم الى نص باللغة العربية (تفقيط " ' kh_TextNum " '========================================================" 'Num الرقم " '========================================================" 'sex جنس العملة " 'FALSE ( فارغ او صفر مذكر ) " 'TRUE ( أو اي رقم غير الصفر مؤنث ) " '========================================================" 'sNameCurr اسم العملة الرئيسية مفرد " 'pNameCurr اسم العملة الرئيسية جمع " 'NameCurrDec اسم العملة الكسرية " 'Decimal_Count طول الكسر افتراضـياً : بدون اظهار الكسر " '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" ' ملاحظات ' (اولاً : العملة الرئيسية مثنى (يقوم بها الكود تلقائيا ' مع ملاحظة اذا اسم العملة ينتهي بالتاء المربوطة ' يجب ان يكتب كذلك وليس بالهاء ' ----------------------- ' ثانياً : اذا كانت العملة الرئيسية مفرد فارغاً تعتبر ' اسماء العملات (الجمع والكسري) فارغة تلقائيا ' ----------------------- 'ثالثاً : الكلمة الابتدائية بامكانك تغييرها او تجعلها فارغة Private Const MyBegTx As String = "فقط " ' "" ' ----------------------- ' MyTNum رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت ' للفئات الصفرية للرقم ادناه Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات" '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" Function kh_TextNum(Num As String, Optional sex As Boolean = False, Optional sNameCurr As String = "", Optional pNameCurr As String = "", Optional NameCurrDec As String = "", Optional Decimal_Count As Byte = 2) As String Dim Spp, zt Dim i%, ii%, pr% Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$ '====================================== If Not IsNumeric(Num) Then GoTo kh_Exit Spp = Split("/" & MyTNum, "/") ii = UBound(Spp) If Num < 0 Then Num = Abs(Num) '====================================== If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit '====================================== nCurr = sNameCurr & "-" & IIf(pNameCurr = "", sNameCurr, IIf(sNameCurr = "", "", pNameCurr)) '====================================== Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000") For i = 0 To ii MyMid = Mid(Txt1, (i * 3) + 1, 3) If MyMid Then zt = Mid(Txt1, (i * 3) + 4, Len(Txt1)) zt = IIf(ii - i, Int(zt), zt) Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr) pr = 1 + IIf(ii - i, 1, CInt(sex)) Txt = Txt & IIf(Len(Txt), " و", "") & kh_nText(MyMid, Txt2, pr, zt, CBool(sNameCurr <> "")) End If If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " ", "صفر ") & sNameCurr Next '====================================== Txt = MyBegTx & Txt & kh_dText(Num, sNameCurr, NameCurrDec, Decimal_Count) '====================================== kh_Exit: kh_TextNum = Trim(Txt) End Function ' معالجة العدد من 1 الى 999 لكل فئات الرقم Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal z As Boolean, ByVal tCu As Boolean) As String Dim Sp Dim Num1%, Num2%, Num3% Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$ '====================================== Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",") '====================================== If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة" oM = Trim(Split(oMm, "-")(0)) '====================================== Num1 = Left(iNum, 1) Num2 = Right(iNum, 2) Select Case Num1 Case 1: nT0 = "مائة" Case 2: nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن")) Case 3 To 9: nT0 = Sp(Num1) & "مائة" End Select '========================================= Num1 = Right(iNum, 2) Select Case Num1 Case 1, 2: If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM Case 11 To 99: If oM <> "" Then If ibs Then If z Then oM = oM & "اً" End Select '----------------------------------------- Select Case Num1 Case 1 nT = IIf(oM = "", Sp(0) & S1, oM) oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "") Case 2 nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(z = 0 And ibs = 2 And tCu, "ا", "ان")) oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "") Case 3 To 10 oM = Trim(Split(oMm, "-")(1)) nT = Sp(Num1) & S Case 11, 12 nT = Sp(Num1) & Sp(10) & S1 Case 13 To 19 nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1 Case 20 To 99 Num2 = Right(Num1, 1) Num3 = Left(Num1, 1) If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون" nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & " و" & nT1 If Num2 = 0 Then nT2 = nT1 nT = nT2 End Select '====================================== S = IIf(nT = "" Or iNum < 100, "", " و") nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية") kh_nText = Trim(nT0 & S & nT & " " & oM) '====================================== End Function ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte) As String Dim Td$, Td1$ On Error GoTo 1 If NCur = "" Then Ndec = "" Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0")) If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1 If Len(Ndec) Then Ndec = " " & Ndec: Td1 = Td * CVar("1" & String(co, "0")) Else Ndec = " " & NCur: Td1 = Td Td1 = " و " & Chr(40) & Td1 & Chr(41) & Ndec 1: kh_dText = Td1 End Function دالة تحويل الرقم الى نص عربي.rar ================================================= الملف المعدل: هذا المرفق بامكانية تفقيط الكسر وامكانية ادخال كلمة نهاية النص دالة تحويل الرقم الى نص عربي.rar ================================================= رابط مباشر للملف

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته تحية معطرة بعطر الورد والياسمين من اختكم ديمة الى السادة المتواجدين في المنتدى المحترمين انا لدي قاعدة بيانات والتي مرفقة مع الموضوع تتحدث عن الاتي لدي ترقية لموظفي قسم معين حيث تتم الترقية كل اربع سنوات من الدرجة العاشرة حتى الدرجة الخامسة وتكون خمس سنوات من الدرجة الخامسة حتى الخبير حاملي الشهادات تتم ترقيتهم كالاتي: يقرا ويكتب وخريج الابتدائية حتى الدرجة الخامسة اي غير مشمول بالترقية الى الدرجة الرابعة. خريج المتوسطة الى الدرجة الرابعة خريج اعدادية الى الدرجة الثالثة خريج دبلوم الى الدرجة الثانية خريج بكالوريوس ماجستير دكتورا الى باقي الدرجات دون توقف المطلوب من البرنامج الاتي: يقوم بإبلاغي بصورة دورية عن الذين يستحقون ترقية قبل شهران على الاقل وكذلك اعلامي بالتاريخ المحدد للترقية مثلا محمد ابراهيم تاريخ التعين 10/07/2008 يخبرني البرنامج في تاريخ 10/5/2013 برسالة وتقرير بان هذا الموظف يستحق الترقية وبالتاريخ حيث اذا تم اتخاذ اجراء بحقة للترقية اضع علامة صح في جدول الاجراءات اما في حالة الموظفة حنان وليد التي تاريخ تعينها في 01/09/2011 التي تحمل شهادة اعدادية في حالة وصول ترقيتها من الدرجة الثالثة الى الثانية يقوم بابلاغي برسالة وتقرير بان لا يمكن ترقيتها بسبب التحصيل الدراسي لانها خريجة اعدادية وكذلك لبقية الشهادات والدرجات الوظيفة كما تم شرحها سابقا يكون استحقاق الترقية في البرنامج من الدرجة العاشرة الى الخامسة 4سنوات ومن الخامسة للخبير 5سنوات مع امكانية عمل تقرير الى الموظفين الذين لا يمكن ترقيتهم بسبب الشهادة ووصولهم الى الحد المقرر وكذلك تقرير بكم متبقي لكل موظف على تاريخ ترقية كما عملت جنابك بالقاعدة المرفقة بالموضوع شاكره لك هذا ملاحظة : ان الدرجات الوظيفية عبارة عن ارقام لكي استطيع عمل شرط في الترقية فارجو من جنابكم مساعدتي لاني مبتداء في الاكسس والله حاولت وقراءت بعض الدروس والمواضيع التي توجد في المنتدى ولم استطيع الوصول الى نتيجة مع العرض اتمن يكون هناك شرح اختك ديمة وهذا جدول بطريقة الترقية حسب الشهادة Chartid شهادة الموظف الدرجة الوظيفية السنوات المطلوبة هل يمكن اتخاذ اجراء الترقية الملاحظات 1 دون الابتدائية 10 4 نعم 2 دون الابتدائية 9 4 نعم 3 دون الابتدائية 8 4 نعم 4 دون الابتدائية 7 4 نعم 5 دون الابتدائية 6 4 نعم 6 دون الابتدائية 5 5 نعم 7 دون الابتدائية 4 5 لا 8 دون الابتدائية 3 5 لا 9 دون الابتدائية 2 5 لا 10 دون الابتدائية 1 5 لا 11 دون الابتدائية 0 0 لا 12 ابتدائية 10 4 نعم 13 ابتدائية 9 4 نعم 14 ابتدائية 8 4 نعم 15 ابتدائية 7 4 نعم 16 ابتدائية 6 4 نعم 17 ابتدائية 5 5 لا 18 ابتدائية 4 5 لا 19 ابتدائية 3 5 لا 20 ابتدائية 2 5 لا 21 ابتدائية 1 5 لا 22 ابتدائية 0 0 لا 23 متوسطة 10 4 نعم 24 متوسطة 9 4 نعم 25 متوسطة 8 4 نعم 26 متوسطة 7 4 نعم 27 متوسطة 6 4 نعم 28 متوسطة 5 5 نعم 29 متوسطة 4 5 لا 30 متوسطة 3 5 لا 31 متوسطة 2 5 لا 32 متوسطة 1 5 لا 33 متوسطة 0 0 لا 34 اعدادية 10 4 نعم 35 اعدادية 9 4 نعم 36 اعدادية 8 4 نعم 37 اعدادية 7 4 نعم 38 اعدادية 6 4 نعم 39 اعدادية 5 5 نعم 40 اعدادية 4 5 نعم 41 اعدادية 3 5 لا 42 اعدادية 2 5 لا 43 اعدادية 1 5 لا 44 اعدادية 0 0 لا 45 دبلوم 10 4 نعم 46 دبلوم 9 4 نعم 47 دبلوم 8 4 نعم 48 دبلوم 7 4 نعم 49 دبلوم 6 4 نعم 50 دبلوم 5 5 نعم 51 دبلوم 4 5 نعم 52 دبلوم 3 5 نعم 53 دبلوم 2 5 لا 54 دبلوم 1 5 لا 55 دبلوم 0 0 لا 56 بكالوريوس 10 4 نعم 57 بكالوريوس 9 4 نعم 58 بكالوريوس 8 4 نعم 59 بكالوريوس 7 4 نعم 60 بكالوريوس 6 4 نعم 61 بكالوريوس 5 5 نعم 62 بكالوريوس 4 5 نعم 63 بكالوريوس 3 5 نعم 64 بكالوريوس 2 5 نعم 65 بكالوريوس 1 5 نعم 66 بكالوريوس 0 0 لا 67 ماجستير 10 4 نعم 68 ماجستير 9 4 نعم 69 ماجستير 8 4 نعم 70 ماجستير 7 4 نعم 71 ماجستير 6 4 نعم 72 ماجستير 5 5 نعم 73 ماجستير 4 5 نعم 74 ماجستير 3 5 نعم 75 ماجستير 2 5 نعم 76 ماجستير 1 5 نعم 77 ماجستير 0 0 لا 78 دكتوراه 10 4 نعم 79 دكتوراه 9 4 نعم 80 دكتوراه 8 4 نعم 81 دكتوراه 7 4 نعم 82 دكتوراه 6 4 نعم 83 دكتوراه 5 5 نعم 84 دكتوراه 4 5 نعم 85 دكتوراه 3 5 نعم 86 دكتوراه 2 5 نعم 87 دكتوراه 1 5 نعم 88 دكتوراه 0 0 لا

بناء علي طلب اخي الحبيب// محمد مصطفى ابو حمزة في موضوع (كود طباعة كل الورق) المشاركة رقم (9) علي الرابط http://www.officena.net/ib/index.php?showtopic=47355 ففضلت ان تكون موضوع منفصل حتي تعم الفائدة مع امكانية اختيار الطابعة اذا كانت اكثر من طابعة مثبتة علي الجهاز الفورم بالمرفقات Print List.rar

كتاب 816 صفحة باللغة العربية قى رأى الشخصى كتاب نادر جداً الكتاب يشرح على اوفيس 2007 عربى لم اجد اى كتاب يشرح الاكسيل بهذه الاستفاضة ابداً الكتاب به الكثير من الامثلة والشروحات باسلوب شيق وسلس وان شاء الله تستفيدون منه كما استفدت منه كثيرا يشرح كل شىء عن الاكسيل تقريبا من بداية التاريخ للاكسيل الى vba والاكواد وكل ما نتخيله او لا نتخيله لا يقارن الا بكتب المراجع الانجليزية ولكن لا يوجد اى كتاب عربى مثله وقد بحثت كثيراً ولم اجد اى كتاب بهذا الحجم وهذه الفائدة ساقوم برفع الكتاب على اجزاء وذلك لصغر الحجم المتاح للرفع فى المنتدى للذى يريد تزيله نزل جميع الاجزاء وضعه فى ملف واحد ثم قم بفك اى ملف انا شخصياً اضعه على هاتفى لاستفيد باى وقت فراغ للقراءة فيه والى ان ارفع الملف بالمرفقات ها هو الكتاب برابط على 4shared http://www.4shared.com/rar/3OgU4IZ3/Learn_Functions_in_Excel_2007.html?

السلام عليكم ورحمة الله وبركاته (جزاكم الله خيرا اساتذتنا الكرام عما تقومون به من مجهود فى هذا المنتدى وارجوا الله ان يتقبل منكم عملكم جميعا ويجعله خالصا لوجه الله) ان كان شيت النتيجة يتكون من عدة صفحات فهل من الممكن منفصلة فهل من الممكن ان اسمى النطاق على خلايا غير متصلة وبالتالى عند استعمال دالة vlookup استطيع ان أبحث فى الجداول الغير متصلة الذى أقوم به الان انى اعمل شهادة لكل صفحة وهذا امر مرهق فهل من حل لهذا الامر .

السلام عليكم ورحمة الله وبركاته اخوتي في الله من على هذا المنبر الطيب نذكر بعضنا بالله ، ونخصص هذه... View the full article

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

انا معلم و لدي جدول اكسل لعلامات الطلاب و لدي 12 مادة ارجو بيان كيفية استخراج الاكمالات علما بان عدد الاعمدة المخصصة لاكمالات هي ثلاث و عندما يظهر عدد الاكمالات اكثر من ثلاث تظهر عبارة راسب ارجو الرد على الايميل mis_moh1983@yahoo.com وشكرا

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

السلام عليكم سأبدأ باذن الله تعالى فى تجميع وصلات المواقع التى تحوى نماذج لإدارة المشاريع فى هذا الموضوع The International Community of Project Management PMLinks.com CVR/IT Consulting KeyConsulting Project KickStart PM Docs Project Place - Project Management Informed Solutions Cornell University CPMM example of a project management plan هذا موضوع مميز يحوي وصلات للعديد من المواقع المشار اليها اعلاه ووصفها http://www.examiner.com/x-36104-Miami-Project-Management-Examiner~y2010m5d27-How-To-Get-300-Free-Project-Management-Templates

لقد قمت برفع االبرنامج من على جهازى برنامج صناعة اللوجو والشعارات Sothink Logo Maker حمل من هنا باتش التفعيل للبرنامج

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

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

السلام عليكم الاساتذة الافاضل كيف يمكن الغاء علامة الاغلاق X من الفورم ولاتظهر من الاساس في الاطار العلوي الازرق ويظهر الاطار فقط ولاتوجد به هذه العلامة جزاكم الله خيرا

السلام عليكم الاخ الكريم / رائد بارك الله فيك اولا : اخي الكريم لاظهار الفورم عند فتح الملف يجب عليك وضع الكود التالي في حدث ThisWorkbook Private Sub Workbook_Open() UserForm1.Show End Sub ثانيا : لاظهار الفورم عن طريق استخدام الزر في داخل الملف ... قم بوضع هذا الكود في مودل جديد مثلا Sub sama() UserForm1.Show End Sub ثالثا : للقيام بجعل الفورم يختفي تدريجيا نقوم بوضع الاكواد التاليه في اكواد الفورم نفسه ... وهي كالتالي Option Explicit Private Declare Function GetActiveWindow Lib "USER32" () As Long Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal lngWinIdx As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, _ ByVal lngWinIdx As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "USER32" _ (ByVal hWnd As Long, _ ByVal crKey As Integer, _ ByVal bAlpha As Integer, _ ByVal dwFlags As Long) As Long Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Private Const GWL_EXSTYLE = &HFFEC Dim hWnd As Long Dim Transparancy As Integer Dim Running As Boolean Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Activate() Running = True Call Transparency End Sub Private Sub Transparency() Dim MyTimer As Double DoEvents MyTimer = Timer Do Do Loop While Timer - MyTimer < 0.07 MyTimer = Timer Transparancy = Transparancy - 1 If Transparancy < 0 Then Unload Me Else Call SemiTransparent(Application.WorksheetFunction.Min(Transparancy, 100)) End If DoEvents Loop While Running End Sub Private Sub SemiTransparent(ByVal intLevel As Integer) Dim lngWinIdx As Long hWnd = GetActiveWindow lngWinIdx = GetWindowLong(hWnd, GWL_EXSTYLE) SetWindowLong hWnd, GWL_EXSTYLE, lngWinIdx Or WS_EX_LAYERED SetLayeredWindowAttributes hWnd, 0, (255 * intLevel) / 100, LWA_ALPHA End Sub Private Sub UserForm_Initialize() Transparancy = 120 Call SemiTransparent(100) DoEvents End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Running = False End Sub وبذلك سيعمل معك الفورم بالشكل الذي تريده ويظهر في بداية تشغيل الملف ثم يختفي تدريجيا وعند الضغط علي الزر بداخل الملف سيظهر الفورم ثم يختفي تدريجيا ايضا ارجو ان يكون هذا هو طلبك ... واليك الملف المرفق به الاكواد السابقة جزاك الله خيرا فورم يختفي بشكل تدريجي1.rar

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

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك علي حبك دائما افادة الجميع بكل المواضيع وحرصك علي ايصال المعلومة للجميع فورم راائع وطريقة عمله اروع واستخدام أمثل للأكواد جزاك الله خيرا

السلام عليكم اخي الحبيب رجب ...............حفظكم شرح استاذ 100 % موهبة الشرح هذه مش بسيطة اخي الحبيب والله اعطاك اياها فهنيئا لك... تقبل تحياتي وشكري

ارجو من الادارة تعديل العنوان لانى لم استطع تعديله معادلات جديدة للعدد: عد الكلمات عد اوراق العمل عد الخلايا التى بها جزء من كلمة عد الخلايا الحمراء مجموع الخلايا الحمراء counting functions.rar

2-9 العلاقات بين الجداول من هنا