محمد ابو البـراء

اولا : الشكر موصول لعمالقة المنتدى الاستاذ / سعيد بيرم.... :fff: ------------------------ في خدمتكم استاذ اكرامي ارسل اسماء المفاتيح التي تريد تصميمها

أخي الكريم ما اعلمه ان درجة الاختبار تضرب في ( 2 ) الطلبة المنازل

بارك الله فيك استاذي الحبيب / استاذ جمال دائما في الخدمة بارك الله لك في مالك واهلك.... :fff: :fff:

السلام عليكم ورحمة الله وبركاته تفضل أخي الحبيب ولعله يفي بالغرض نتيجة1.rar

بارك الله فيك استاذي الحبيب / استاذ رجب وجزاك الله خيراً ..................

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

كم انا سعيد برجوعك استاذي الحبيب ومعلمي استاذ / رجب جاويش يالك من مبدع بحق ----------------------- واستاذنا الاستاذ الفاضل/ ابو حنين اقدم لك ارق واجمل تحية.... :fff: :fff: ----------- الشكر لكما ----------- ولكن لم تكتمل اجابة السوال بعد وهو الجزء المرتبط بالفرز كيف اجعل الفرز يتغاضى عن الخلايا الفارغة عند الترتيب من الاصغر الى الاكبر؟

السلام عليكم ورحمة الله وبركاته اشكر جميع العاملين بالمنتدى وعمالقته وبعد لي سؤال بسيط وهو كيفية تجاهل الخلايا الفارغة بمعني انني اريد مثلاً تنسيق شرطي وتلوين العمود الذي به الخلية اصغر من 10 - مثلا -باللون الاصفر ولكن الاكسيل يعتبر الخلية الفارغة صفر ويقوم بتظليلها ----------------------- كذلك في الترتيب من الاصغر الي الاكبر وعند تحديد خلايا فارغة يرتب الخلايا الفارغة على انها صفر --------- فما الحل بارك الله فيكم اخواني

رائع .... كم سعادتي بين اثنين من عمالقة المنتدى ملك المعادلات / استاذ جمال وصاحب الاكواد البسيطة المميزة استاذي ومعلمي /استاذ رجب جاويش جزاكما الله خيراً :fff: :fff:

بارك الله فيك أخي الكريم/ جمال الفار على هذه الاعمال الرائعة وانا في خدمتك في تصميم ائ شعار لك واى صورة كما تحب....

بالفعل موضوع مميز اثابكم الله وجعله في ميزان حسناتكم

بارك الله فيك استاذ جمال على هذا العمل المتميز والروعة فئ تصميمه جعله الله في ميزان حسناتك ولي سوال بارك الله فيك ممكن شرح هذه السطر باختصار بارك الله فيك [l6] = 3 * (I - 1) + 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

اضم صوتي لصوت الاخ محمود واقول بصراحة شديدة ان اكثر ما يميز المنتدي هي اعمدته الشامخة من اساتذة قدوة في الذوق الرفيع والادب الجم وحبهم وسؤالهم على بعضهم البعض ولكن يا حبذا لو كان المنتدى كما قال الاخ محمود لصار صرحا يقتدي به الحيارة في مجالاتهم وشكراً

ونحن معكم بدعائنا لكم بالتوفيق وان يجعله الله في ميزانكم يوم لا ينفع مال ولا بنون -------------------------- مرحباً بك استاذي/ أبو خليل وارحب بالاخ الكريم استاذ /engineer101

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

رائع استاذنا ابو حنين.......... :fff: :fff:

شكرا استاذ /الحسامي على هذا الموضوع المتميز كما اشكر عميد المنتدي الاستاذ /دغيدي لتداخلاته الرائعة لتكمل الموضوع جمالا على جماله موضوع رائع يستحق الرفع ليستفيد منه اخواني من المعلمين.....

للرفع

كم انت رائع أخي الحبيب أبو حنين فكلماتك تدل على حسن خلقك بارك الله فيك.... :fff: :fff:

بارك الله فيك أخي /مراد الجزائر وشكراُ على الاهتمام ---------------------- أخي الحبيب ابو حنين شكراً على التصحيح وبصراحة كانت فكرة التعديل على الكود مما دار في خاطري ... وعرفت من اين الخطا عند تعليق الاخ مراد ولكن لم اريد الرد بل اردت حذف الموضوع من الخجل وذلك لما رايته من ابداع العمالقة في هذا المجال اثناء بحثي على نفس الموضوع " ترتيب الاوائل " وعلى سبيل المثال هذا الكود في هذه المشاركة http://www.officena.net/ib/index.php?showtopic=38989

السلام عليكم ورحمة الله وبركاته هذا الموضوع اتمنى ان يخدم البعض في تحويل ترتيب الطلاب بدلا من ارقام ليكون حروف باللغة العربية ------------------------------- وللعلم انا لم اقم الا بتعديل هذا الكود في احد مشاركات للاستاذ / سالم شباني من تحويل الارقام الى دينارات الى تحويل الارقام الى حروف لترتيب الطلبة ------------------------------- في المرفقات تحويل ترتيب الطلاب من ارقام الى حروف باللغة العربية.rar

جزاك الله خيراُ استاذ قنديل المنتدي استاذ قنديل الصياد دائما سباق................................. :fff: :fff: ------------------------ لاثراء الموضوع هذا كود لتحويل ترتيب الطلاب من الارقام الى حروف وللعلم انا لم افعل الا قمت بتعديل هذا الكود في احد مشاركات للاستاذ / سالم شباني من تحويل الارقام الى دينارات الى تحويل الارقام الى حروف لترتيب الطلبة 'NombreToArabe(Cellule) 'Conversion Automatique de Chiffre en Lettres Arabes 'Date: 01 juillet 2003 'Bou-Saada Function lireCentaine(ByVal Montant As Double) As String Dim ChiffreLettre Dim Centaine As Double Dim Dizaine As Double Dim T As String Dim Chaine As String ChiffreLettre = Array("الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر", "الحادي عشر", "الثاني", "الثالث", "الرابع عشر", "الخامس عشر", "السادس عشر", "السابع عشر", "الثامن عشر", "التاسع عشر") Centaine = Int(Montant / 100) Select Case Centaine Case 0 Chaine = "" Case 1 Chaine = "مائة" Case 2 Chaine = "مائتان" Case 3 Chaine = "ثلاثمائة" Case 4 Chaine = "أربعمائة" Case 5 Chaine = "خمسمائة" Case 6 Chaine = "ستمائة" Case 7 Chaine = "سبعمائة" Case 8 Chaine = "ثمانمائة" Case 9 Chaine = "تسعمائة" End Select Dizaine = Modulo(Montant, 100) Select Case Dizaine Case 0 T = "" Case 1 To 19 T = ChiffreLettre(Dizaine - 1) Case 20 T = " العشرون" Case 21 To 29 T = ChiffreLettre(Dizaine - 21) & " والعشرون" Case 30 T = " الثلاثون" Case 31 To 39 T = ChiffreLettre(Dizaine - 31) & " والثلاثون" Case 40 T = " الأربعون" Case 41 To 49 T = ChiffreLettre(Dizaine - 41) & " والأربعون" Case 50 T = " الخمسون" Case 51 To 59 T = ChiffreLettre(Dizaine - 51) & " والخمسون" Case 60 T = " الستون" Case 61 To 69 T = ChiffreLettre(Dizaine - 61) & " والستون" Case 70 T = " السبعون" Case 71 To 79 T = ChiffreLettre(Dizaine - 71) & " والسبعون" Case 80 T = " الثمانون" Case 81 To 89 T = ChiffreLettre(Dizaine - 81) & " والثمانون" Case 90 T = " التسعون" Case 90 To 99 T = ChiffreLettre(Dizaine - 91) & " والتسعون" Case Else T = "Erreur de conversion !" End Select If Chaine <> "" Then If (T <> "") Then Chaine = Chaine T = " و" & T End If End If If Chaine = "" Then If (T <> "") Then Chaine = Chaine T = T End If End If If (Chaine & " " & T) = " " Then lireCentaine = "" Else lireCentaine = LTrim(Chaine & " ") & T End If End Function Function Modulo(ByVal Nombre As Double, ByVal Diviseur As Double) As Double Modulo = Nombre - (Diviseur * Int(Nombre / Diviseur)) End Function Function Arrondir(ByVal ValeurArrondi As Double, ByVal NbreDeci As Integer) As Double Arrondir = ValeurArrondi + (5 * 10 ^ -(NbreDeci + 1)) Arrondir = Int(Arrondir * 10 ^ NbreDeci) / 10 ^ NbreDeci End Function Function NombreToArabe(ByVal Total As Double) As String Dim Millions As Double Dim Milliers As Double Dim cent As Double Dim decimales As Double Dim T0 As String Dim T1 As String Dim T2 As String Dim T3 As String Dim Resultat As String Dim T As String Total = Arrondir(Total, 2) Millions = Int(Modulo(Int(Total / 1000000), 1000)) Milliers = Int(Modulo(Int(Total / 1000), 1000)) cent = Int(Modulo(Total, 1000)) decimales = Arrondir((Modulo(Total * 100, 100)), 0) T0 = lireCentaine(Millions) T1 = lireCentaine(Milliers) T2 = lireCentaine(cent) T3 = lireCentaine(decimales) If T0 <> "" Then If (T1 <> "") Then If (T2 <> "") Then T0 = T0 T1 = " و" & T1 T2 = " و" & T2 End If End If End If If T0 = "" Then If (T1 <> "") Then If (T2 <> "") Then T0 = T0 T1 = T1 T2 = " و" & T2 End If End If End If If T0 <> "" Then If (T1 <> "") Then If (T2 = "") Then T0 = T0 T1 = " و" & T1 T2 = T2 End If End If End If If T0 = "" Then If (T1 <> "") Then If (T2 = "") Then T0 = T0 T1 = T1 T2 = T2 End If End If End If If T0 <> "" Then If (T2 <> "") Then If (T1 = "") Then T0 = T0 T2 = " و" & T2 T1 = T1 End If End If End If If T0 = "" Then If (T2 <> "") Then If (T1 = "") Then T0 = T0 T1 = T1 T2 = T2 End If End If End If If T0 = "واحد" Then T0 = "" Resultat = Resultat & T0 & " مليون " End If If T0 = "اثنان" Then T0 = "" Resultat = Resultat & T0 & " مليونان " End If If Millions >= 3 And Millions <= 10 Then Resultat = Resultat & T0 & " ملايين " End If If Millions >= 11 And Millions <= 999 Then Resultat = Resultat & T0 & " مليون " Else Resultat = Resultat & "" End If If T1 = "واحد" Then T1 = "" Resultat = Resultat & T1 & " ألف " End If If T1 = "اثنان" Then T1 = "" Resultat = Resultat & T1 & " ألفان " End If If Milliers >= 3 And Milliers <= 10 Then Resultat = Resultat & T1 & " آلاف " End If If Milliers >= 11 And Milliers <= 999 Then Resultat = Resultat & T1 & " ألف" Else Resultat = Resultat & "" End If If T2 <> "" Then Resultat = Resultat & T2 & "" Else If Resultat <> "" Then Resultat = Resultat & "" End If End If If T3 <> "" Then If Resultat <> "" Then Resultat = Resultat & " و" & T3 & "" Else Resultat = T3 & "" End If End If NombreToArabe = Resultat End Function تحويل ترتيب الطلاب من ارقام الى حروف باللغة العربية.rar

السلام عليكم ورحمة الله وبركاته اولا اشكر كل من ساعد لان اقوم بهذا العمل ---------------------- ثانياً لي طلب لضبط طباعة الشهادات 1 ) اريد عند طباعة كل الشهادات يقوم بطباعة الشهادات على قدر الاسماء الموجودة في ورقة الدرجات فقط واخرها محمد 96 ولا يقوم بطباعة كل الشهادات التي قمت بتصميمها وشكراً لكم على حسن تعاونكم الشهادات-----------.rar

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

جزاك الله خيراً استاذ / محمد يوسف اسعدني مرورك العطر...... :fff: :fff: