قنديل الصياد

اخى العزيز راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=40157&hl= وهذا الرابط أيضا http://www.officena.net/ib/index.php?showtopic=50408&hl= وهذا الرابط أيضا http://www.officena.net/ib/index.php?showtopic=50219&hl= وهذا الرابط أيضا http://www.officena.net/ib/index.php?showtopic=47468&hl= وهذا الرابط أيضا http://www.officena.net/ib/index.php?showtopic=50077&hl= تحياتى

الاخ الاستاذ / اسامة عطا الله اسم المستخدم لدخول البرنامج : الصياد كلمة السر : 1964 كلمة سر حماية الصفحات : 1900 كلمة سر محرر الاكواد : 2014 كلمة سر تعديل السرى : 123 لكل الصفوف تحياتى

الاخوة الاعزاء تم تعديل الكنترول وتصويبه من اى اخطاء التحميل من أحد هذه الروابط http://www.qzal.net/downloadf-4bd53b4ead1-rar.html http://www.gulfup.com/?L4y2Tu http://www.m5zn.com/d/?15111696 اسم المستخدم : الصياد كلمة السر : 1964

تجميد الغاء تجميد الالواح اظهار اخفاء أعمدة صفوف مصنف

دالة العد count

شرح تصميم دورة دفترية علي الإكسل

شرح دوال إكسل لتعريف وحدتين إدخال للصنف

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

اخى الحبيب كل بيانات الجدول موجود فى تزييل الصفحة وستظهر فى كل الصفحات

اخى العزيز اليك الملف بعد التعديل الأول أساسي تجربة.rar

كنترول المرحلة الابتدائية بعد تأجيل القرار 460 http://www.qzal.net/downloadf-e3653c55d11-rar.html اسم المستخدم : الصياد كلمة السر : 1964

اخى العزيز ارفق الملف الخاص بك وسيتم العمل عليه ان شاء الله

استاذى الحبيب الاستاذ الفاضل / جمال دغيدى كل يوم يزداد اعجابى بافكارك وموضوعاتك المتميزة فانا عرفتك متميزا وما زلت اتعلم المزيد من روائعك وما زلت تلميذا فى مدرستك التى لا تنتهى بصف معين وانما مدرسة متزايدة كل لحظة

رِنيَن صآِدقْ يَعزفَ ألحآِن آلحْيآِة تشِــدو به الآشْــجآِنَ وِطَيوِرِ تحْــلقَ فيْ آلسِــمآِءَ وِتهْتِفَ آلعْصِآفيِرَ فرْحاً بكً فــِ قدْومِكَ اِلًينآِ وِ وِجْوِدكَ مْـــعنآِ زِادنآِ فرْحاً و سَروَراً ولأجْــلكَ نفرِش الآِرْضَ بدَلْ آلترِآب زِهْـورَ وٌ مآِ أسْعِد مًنتِدآنآِ بــِ عودتك مرحبا بعودتك ..وأهلا بحضورك ..الذي افتقدناه .. بالفعل كنا ..ننتظر اطلالتك ..وتألقك الذي أعتدناه .. وهاأنت تبهجنا .. بطلتك التي ننتظر معها جديدك الذي يحمل بصماتك المميزه سنشعل قناديل الفرح بعودتك .. وسنغني من حروفك ألحانا ..ترحب بك من جديد .. ونقول لك.. عودا حميد لبيتك الذي افتقدك بأجمل كلمات الترحيب .. وأسمى عباراته.. وأنبل خطابات يستخدمها المرحبون .. مرحبا بك عدد ما خطته الأقلام من حروف.. وبعدد ما أزهر بالأرض زهور.. مرحبا ممزوجة بعطر الورود ورائحة البخور.. مرحبا فيك .. بكل كلمه ومعنى ..... وجودك زاد المنتدى .. نورا .. وبهااء ..... وبالورد .. والبخور .. نستقبلك ..... .. فمن قلوبنــا ..... .. نهديك تحياتي قنديل الصياد

"التعليم" تؤجل العمل بقرار تعديل تنظيم التقويم الشامل الأحد، 15 ديسمبر 2013 - 19:17 التربية والتعليم محمود أبو النصر كتبت سارة علام وافق وزير التربية والتعليم محمود أبو النصر، على المذكرة المقدمة من قطاع التعليم العام، والمتضمنة تأجيل العمل بالقرار الوزارى رقم 460 بتاريخ 1/12/2013، والصادر بشأن تعديل أحكام القرار رقم 313 لسنة 2011 والخاص بتنظيم التقويم التربوى الشامل بمرحلة التعليم الأساسى بحلقتيها الابتدائية والإعدادية. وجاء بمذكرة قطاع التعليم العام، أن تطبيق القرار 460 هذا العام سيكلف المديريات التعليمية طباعة شيتات جديدة لتوزيع الدرجات، الأمر الذى سيسبب حالة من الارتباك. وورد بالمذكرة، أن الإدارة العامة للامتحانات ترى تأجيل تنفيذ القرار، حيث تم طباعة الأسئلة ونماذج الإجابة طبقًا للقرار 313 لسنة 2011، وجارى إرسالها لجميع السفارات الموجودة بها مدارس تدرس المنهج المصرى. ووافق الوزير على تأجيل العمل بالقرار المذكور، وستعاد دراسته لما فيه مصلحة الطالب والمعلم.

الكود المستخدم فى التفقيط باللغة الانجليزية Option Explicit Global NUM As Variant Global HALLH As Variant Global subnum As Variant Global wrd As Variant Function NO_TO_WORD(Amount As Variant) If IsNull(Amount) Then Exit Function HALLH = "" If InStr(Amount, ".") = 0 Then NUM = Amount Else NUM = Left(Amount, InStr(Amount, ".") - 1) HALLH = Right(Amount, Len(Amount) - InStr(Amount, ".")) If Len(HALLH) = 1 Then HALLH = HALLH + "0" End If wrd = "" Call n1000000_999999999(NUM) Call n1000_999999(NUM) Call n100_999(NUM) Call n1_99(NUM) If wrd <> "" Then NO_TO_WORD = wrd + " " If HALLH <> "" Then wrd = "" Call HALLH_999(HALLH) If Left(HALLH, 1) = " Zero Zero " Then NO_TO_WORD = NO_TO_WORD + " and" + wrd + " " Else NO_TO_WORD = NO_TO_WORD + " and" + wrd + " " End If End If End If End Function Function n1000_999999(XsX As Variant) If NUM >= 1000 And NUM <= 999999 Then If NUM < 2000 Then wrd = " Thousand" NUM = NUM - 1000 If NUM <> 0 Then wrd = wrd + " and" ElseIf NUM >= 2000 And NUM <= 2999 Then wrd = " Two thousand " NUM = NUM - 2000 If NUM <> 0 Then wrd = wrd + " and" ElseIf NUM <= 9999 Then Call g1((Val(Left(NUM, 1)))) wrd = wrd + " Thousands " NUM = NUM - (Val(Left(NUM, 1)) * 1000) If NUM <> 0 Then wrd = wrd + " and" Else Dim old_num As Double old_num = NUM NUM = Val(Mid(NUM, 1, Len(NUM) - 3)) Call n100_999(NUM) Call n1_99(NUM) wrd = wrd + " Thousand " NUM = old_num If Val(Right(NUM, 3)) <> 0 Then wrd = wrd + " and" NUM = Val(Right(NUM, 3)) End If End If End Function Function n100_999(XsX As Variant) If NUM >= 100 And NUM <= 999 Then Call g3(Val(Left(LTrim(Str(NUM)), 1)) * 100) NUM = NUM - (Val(Left(LTrim(Str(NUM)), 1)) * 100) If NUM <> 0 Then wrd = wrd + " and" End If End Function Function n1_99(XsX As Variant) If NUM >= 20 And NUM <= 99 Then If Val(Right(Str(NUM), 1)) <> 0 Then Call g1(Val(Right(Str(NUM), 1))) wrd = wrd + " and" End If Call g2((Val(Left(LTrim(Str(NUM)), 1)) * 10)) ElseIf NUM >= 13 And NUM <= 19 Then Call g1(Val(Right(Str(NUM), 1))) wrd = wrd + " Ten " ElseIf NUM >= 1 And NUM <= 12 Then Call g1(NUM) End If End Function Function HALLH_99(XsX As Variant) If HALLH >= 20 And HALLH <= 99 Then If Val(Right(Str(HALLH), 1)) <> 0 Then Call g1(Val(Right(Str(HALLH), 1))) wrd = wrd + " And " End If Call g2((Val(Left(LTrim(Str(HALLH)), 1)) * 10)) ElseIf HALLH >= 13 And HALLH <= 19 Then Call g1(Val(Right(Str(HALLH), 1))) wrd = wrd + " Ten " ElseIf HALLH >= 1 And HALLH <= 12 Then Call g1(HALLH) End If End Function Function g1(X As Variant) subnum = X If subnum = 1 Then wrd = wrd + " One " ElseIf subnum = 2 Then wrd = wrd + " Two " ElseIf subnum = 3 Then wrd = wrd + " Three " ElseIf subnum = 4 Then wrd = wrd + " Four " ElseIf subnum = 5 Then wrd = wrd + " Five " ElseIf subnum = 6 Then wrd = wrd + " Six " ElseIf subnum = 7 Then wrd = wrd + " Seven " ElseIf subnum = 8 Then wrd = wrd + " Eight " ElseIf subnum = 9 Then wrd = wrd + " Nine " ElseIf subnum = 10 Then wrd = wrd + " Ten " ElseIf subnum = 11 Then wrd = wrd + " eleven " ElseIf subnum = 12 Then wrd = wrd + " Twelve " End If End Function Function g2(X As Variant) subnum = X If subnum = 20 Then wrd = wrd + " Twenty " ElseIf subnum = 30 Then wrd = wrd + " Thirty " ElseIf subnum = 40 Then wrd = wrd + " Forty " ElseIf subnum = 50 Then wrd = wrd + " Fifty " ElseIf subnum = 60 Then wrd = wrd + " Sixty " ElseIf subnum = 70 Then wrd = wrd + " Seventy " ElseIf subnum = 80 Then wrd = wrd + " Eighty " ElseIf subnum = 90 Then wrd = wrd + " Ninety " End If End Function Function g3(X As Variant) subnum = X If subnum = 100 Then wrd = wrd + " Hundred " ElseIf subnum = 200 Then wrd = wrd + " Two hundred " ElseIf subnum = 300 Then wrd = wrd + " Three hundred " ElseIf subnum = 400 Then wrd = wrd + " Four hundred " ElseIf subnum = 500 Then wrd = wrd + " Five hundred " ElseIf subnum = 600 Then wrd = wrd + " Six hundred " ElseIf subnum = 700 Then wrd = wrd + " Seven hundred " ElseIf subnum = 800 Then wrd = wrd + " Eight hundred " ElseIf subnum = 900 Then wrd = wrd + " Nine hundred " End If End Function Function HALLH_999(XsX As Variant) If HALLH >= 100 And HALLH <= 999 Then Call g3(Val(Left(LTrim(Str(HALLH)), 1)) * 100) HALLH = HALLH - (Val(Left(LTrim(Str(HALLH)), 1)) * 100) If HALLH <> 0 Then wrd = wrd + " æ" Call HALLH_99(HALLH) ElseIf HALLH >= 20 And HALLH <= 99 Then If Val(Right(Str(HALLH), 1)) <> 0 Then Call g1(Val(Right(Str(HALLH), 1))) wrd = wrd + " And " End If Call g2((Val(Left(LTrim(Str(HALLH)), 1)) * 10)) ElseIf HALLH >= 13 And HALLH <= 19 Then Call g1(Val(Right(Str(HALLH), 1))) wrd = wrd + " Ten " ElseIf HALLH >= 1 And HALLH <= 12 Then Call g1(HALLH) End If End Function Private Function n1000000_999999999(XsX As Variant) If NUM >= 1000000 And NUM <= 999999999 Then If NUM < 2000000 Then wrd = " Million " NUM = NUM - 1000000 If NUM <> 0 Then wrd = wrd + " and" ElseIf NUM >= 2000000 And NUM <= 2999999 Then wrd = " Two million " NUM = NUM - 2000000 If NUM <> 0 Then wrd = wrd + " and" ElseIf NUM <= 9999999 Then Call g1((Val(Left(NUM, 1)))) wrd = wrd + " Millions " NUM = NUM - (Val(Left(NUM, 1)) * 1000000) If NUM <> 0 Then wrd = wrd + " and" Else Dim old_num As Double old_num = NUM NUM = Val(Mid(NUM, 1, Len(NUM) - 6)) Call n100_999(NUM) Call n1_99(NUM) wrd = wrd + " Million " NUM = old_num If Val(Right(NUM, 6)) <> 0 Then wrd = wrd + " and" NUM = Val(Right(NUM, 6)) End If End If End Function المعادلة المستخدمة =NO_TO_WORD(A1)

اخى العزيز انظر المرفق ( تفقيط باللغة الانجليزية ) Book1.rar

ضع هذا الكود فى موديل Option Explicit Global NUM As Variant Global HALLH As Variant Global subnum As Variant Global wrd As Variant Function NO_TO_WORD(Amount As Variant) If IsNull(Amount) Then Exit Function HALLH = "" If InStr(Amount, ".") = 0 Then NUM = Amount Else NUM = Left(Amount, InStr(Amount, ".") - 1) HALLH = Right(Amount, Len(Amount) - InStr(Amount, ".")) If Len(HALLH) = 1 Then HALLH = HALLH + "0" End If wrd = "" Call n1000000_999999999(NUM) Call n1000_999999(NUM) Call n100_999(NUM) Call n1_99(NUM) If wrd <> "" Then NO_TO_WORD = wrd + " " If HALLH <> "" Then wrd = "" Call HALLH_999(HALLH) If Left(HALLH, 1) = "00" Then NO_TO_WORD = NO_TO_WORD + " و" + wrd + " " Else NO_TO_WORD = NO_TO_WORD + " و" + wrd + " " End If End If End If End Function Function n1000_999999(XsX As Variant) If NUM >= 1000 And NUM <= 999999 Then If NUM < 2000 Then wrd = " ألف " NUM = NUM - 1000 If NUM <> 0 Then wrd = wrd + " و" ElseIf NUM >= 2000 And NUM <= 2999 Then wrd = "ألفان " NUM = NUM - 2000 If NUM <> 0 Then wrd = wrd + " و" ElseIf NUM <= 9999 Then Call g1((Val(Left(NUM, 1)))) wrd = wrd + " آلاف " NUM = NUM - (Val(Left(NUM, 1)) * 1000) If NUM <> 0 Then wrd = wrd + " و" Else Dim old_num As Double old_num = NUM NUM = Val(Mid(NUM, 1, Len(NUM) - 3)) Call n100_999(NUM) Call n1_99(NUM) wrd = wrd + " ألفاً " NUM = old_num If Val(Right(NUM, 3)) <> 0 Then wrd = wrd + " و" NUM = Val(Right(NUM, 3)) End If End If End Function Function n100_999(XsX As Variant) If NUM >= 100 And NUM <= 999 Then Call g3(Val(Left(LTrim(Str(NUM)), 1)) * 100) NUM = NUM - (Val(Left(LTrim(Str(NUM)), 1)) * 100) If NUM <> 0 Then wrd = wrd + " و" End If End Function Function n1_99(XsX As Variant) If NUM >= 20 And NUM <= 99 Then If Val(Right(Str(NUM), 1)) <> 0 Then Call g1(Val(Right(Str(NUM), 1))) wrd = wrd + " و" End If Call g2((Val(Left(LTrim(Str(NUM)), 1)) * 10)) ElseIf NUM >= 13 And NUM <= 19 Then Call g1(Val(Right(Str(NUM), 1))) wrd = wrd + " عشر" ElseIf NUM >= 1 And NUM <= 12 Then Call g1(NUM) End If End Function Function HALLH_99(XsX As Variant) If HALLH >= 20 And HALLH <= 99 Then If Val(Right(Str(HALLH), 1)) <> 0 Then Call g1(Val(Right(Str(HALLH), 1))) wrd = wrd + " و" End If Call g2((Val(Left(LTrim(Str(HALLH)), 1)) * 10)) ElseIf HALLH >= 13 And HALLH <= 19 Then Call g1(Val(Right(Str(HALLH), 1))) wrd = wrd + " عشر" ElseIf HALLH >= 1 And HALLH <= 12 Then Call g1(HALLH) End If End Function Function g1(X As Variant) subnum = X If subnum = 1 Then wrd = wrd + "واحد" ElseIf subnum = 2 Then wrd = wrd + "إثنان" ElseIf subnum = 3 Then wrd = wrd + "ثلاثة" ElseIf subnum = 4 Then wrd = wrd + "أربعة" ElseIf subnum = 5 Then wrd = wrd + "خمسة" ElseIf subnum = 6 Then wrd = wrd + "ستة" ElseIf subnum = 7 Then wrd = wrd + "سبعة" ElseIf subnum = 8 Then wrd = wrd + "ثمانية" ElseIf subnum = 9 Then wrd = wrd + "تسعة" ElseIf subnum = 10 Then wrd = wrd + "عشرة" ElseIf subnum = 11 Then wrd = wrd + "أحد عشر" ElseIf subnum = 12 Then wrd = wrd + "إثنا عشر" End If End Function Function g2(X As Variant) subnum = X If subnum = 20 Then wrd = wrd + "عشرون" ElseIf subnum = 30 Then wrd = wrd + "ثلاثون" ElseIf subnum = 40 Then wrd = wrd + "أربعون" ElseIf subnum = 50 Then wrd = wrd + "خمسون" ElseIf subnum = 60 Then wrd = wrd + "ستون" ElseIf subnum = 70 Then wrd = wrd + "سبعون" ElseIf subnum = 80 Then wrd = wrd + "ثمانون" ElseIf subnum = 90 Then wrd = wrd + "تسعون" End If End Function Function g3(X As Variant) subnum = X If subnum = 100 Then wrd = wrd + "مائة" ElseIf subnum = 200 Then wrd = wrd + "مائتان" ElseIf subnum = 300 Then wrd = wrd + "ثلاثمائة" ElseIf subnum = 400 Then wrd = wrd + "اربعمائة" ElseIf subnum = 500 Then wrd = wrd + "خمسمائة" ElseIf subnum = 600 Then wrd = wrd + "ستمائة" ElseIf subnum = 700 Then wrd = wrd + "سبعمائة" ElseIf subnum = 800 Then wrd = wrd + "ثمانمائة" ElseIf subnum = 900 Then wrd = wrd + "تسعمائة" End If End Function Function HALLH_999(XsX As Variant) If HALLH >= 100 And HALLH <= 999 Then Call g3(Val(Left(LTrim(Str(HALLH)), 1)) * 100) HALLH = HALLH - (Val(Left(LTrim(Str(HALLH)), 1)) * 100) If HALLH <> 0 Then wrd = wrd + " و" Call HALLH_99(HALLH) ElseIf HALLH >= 20 And HALLH <= 99 Then If Val(Right(Str(HALLH), 1)) <> 0 Then Call g1(Val(Right(Str(HALLH), 1))) wrd = wrd + " و" End If Call g2((Val(Left(LTrim(Str(HALLH)), 1)) * 10)) ElseIf HALLH >= 13 And HALLH <= 19 Then Call g1(Val(Right(Str(HALLH), 1))) wrd = wrd + " عشر" ElseIf HALLH >= 1 And HALLH <= 12 Then Call g1(HALLH) End If End Function Private Function n1000000_999999999(XsX As Variant) If NUM >= 1000000 And NUM <= 999999999 Then If NUM < 2000000 Then wrd = "مليون " NUM = NUM - 1000000 If NUM <> 0 Then wrd = wrd + " و" ElseIf NUM >= 2000000 And NUM <= 2999999 Then wrd = "مليونان " NUM = NUM - 2000000 If NUM <> 0 Then wrd = wrd + " و" ElseIf NUM <= 9999999 Then Call g1((Val(Left(NUM, 1)))) wrd = wrd + "ملايين " NUM = NUM - (Val(Left(NUM, 1)) * 1000000) If NUM <> 0 Then wrd = wrd + " و" Else Dim old_num As Double old_num = NUM NUM = Val(Mid(NUM, 1, Len(NUM) - 6)) Call n100_999(NUM) Call n1_99(NUM) wrd = wrd + " مليون " NUM = old_num If Val(Right(NUM, 6)) <> 0 Then wrd = wrd + " و" NUM = Val(Right(NUM, 6)) End If End If End Function ثم ضع المعادلة التالية فى اى خلية تريد =NO_TO_WORD(A12)