ناصر سعيد

للرفع

جزاك ربي الجنة واسعدك في الداريين

جزاك ربي الجنة واسعدك في الداريين

جزاك ربي الجنة واسعدك في الداريين

اعمال العزيز الاستاذ // محمد على " ابو براء " قمه وهذا ماأتمناه ولكن تعطي معي هذه الرساله عند تغيير عدد اللجنه اريد لو سمحتم ورقة بيانات الطلبه وورقة اخرى بها الكود مضبوطا ويعمل على 2003 لتوزيع اللجان حسب عدد خاص بكل لجنه

اعمال العلامة بن عليه رائعه جدا ولكني اريدها لجنتين في الورقه يعني اللحنه الواحدة في نصف الورقة

الاخوة الكرام اسعد الله اوقاتكم ارجو كشف مناداه لجان الطلاب حسب عدد خاص بكل لجنه .. بالكود ولكم جزيل الشكر

جزاك الله كل خير ولماذا تريد ان تجعل برنامجك ينتهي؟ هل هو مجهودك الخاص ولم تستعن بأي شخص اخر؟ او لم تستعن ببرنامج او دوال موجوده في برنامج آخر اخي الكريم اترك العلم ينتشر فلو وقف عند غيرك .. ماوصلك

جزاك الله على هذا المجهود الراائع وعلى هذا الكود المفيد حقا Function NoToTxt2(TheNo As Double) As String Dim MyArry1(0 To 9) As String, MyArry2(0 To 9) As String, MyArry3(0 To 9) As String Dim Myno As String, GetNo As String, RdNo As String Dim My100 As String, My10 As String, My1 As String, My11 As String, My12 As String Dim GetTxt As String, Mybillion As String, MyMillion As String, MyThou As String, MyHun As String Dim MyFraction As String, MyAnd As String, I As Integer, ReMark As String If TheNo > 999999999999.999 Then Exit Function If TheNo = 0 Then NoToTxt2 = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "اربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "اربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "احدي" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "اربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" GetNo = Round(TheNo, 3) GetNo = Format(TheNo, "000000000000.000") I = 0 Do While I < 16 If I < 12 Then Myno = Mid$(GetNo, I + 1, 3) Else Myno = Mid$(GetNo, I + 2, 3) + "0" ' "0" + Mid$(GetNo, I + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "احدي عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "اثني عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (I = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (I = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt = " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (I = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " الف" Else MyThou = GetTxt + " الاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " الف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " الفان" End If End If If (I = 9) And (GetTxt <> "") Then MyHun = GetTxt If (I = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If I = I + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt2 = Mybillion + MyMillion + MyThou + MyHun + " " + MyAnd + MyFraction Else NoToTxt2 = MyFraction + " " + MySubCur End If Else NoToTxt2 = Mybillion + MyMillion + MyThou + MyHun + " " End If End Function ولي سؤال للاسناذ العظيم سعيد لماذا لااجد مواضبعك المفيده بالمنتدى ؟ لماذا يتم ازالتها ؟ ام اني مش عارف اعمل بحث لمواضيعك ؟ قل لي طمني

من محرر الاكود في Module1 غير في هذا الكود Sub Ra_1() Dim Pw Pw = InputBox("Password SVP") If Pw = 1111 Then Application.Visible = True UrFman.Hide Else ActiveWorkbook.Save Workbooks.Application.Quit End If End Sub ام افهم السؤال جيدا هل تقصد الفونت او التسميات الموجود في الفورم مثل الاسم والقب ’’’’’ الاسم واللقب مكتوبه بخط نهامه وانا اريد ان اجعل الخط اريال .. كيف شكرا لسعة الصدر

جزاكم الله خيرا هذه هي الرساله عند تغيير عدد اللجنه

جزاك الله الف خير كيف اغير الرقم السري 1111 ؟ اذا اردت تغيير اسم الخط المكتوب في الفورم .. كيف يتم ذلك ؟ بارك الله لك

في صفحة كشف المناداه عند تغيير عدد اللجنة تأتي برسائل خطأ جزاكم الله خيرا

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

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

بارك الله فيك و جزاك خير الثواب

الاستاذ الفاضل منير شروط النجاح للطالب ليست فقط ان يكون درجته اقل من 50 %

في صفحة كشوف المناداه عند تغيير عدد اللجنه تعطي رسائل خطأ

ربنا يبارك لك

تظهر هذه الرساله عند الفتح

عمل رائع وحياكته حياكة الماهر المتمكن بارك الله فيك وجزاك خيرا

جزاك الله كل خير

جزاك الله كل خير

للرفع للفائده

نعم يا اخي الطيب توفيرا للورق ولان جميع كشوف اللجان في نصف ورقه دائما لك شكري وتقديري