مهند محسن

بارك الله فيك استاذ ابراهيم معادلة ممتازة جعله الله فى ميزان حسناتك anatshih .... انتبه من فضلك فهذه ليست معادلة عادية ولكنها معادلة مصفوفة فلابد الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات .. وشكرا

وعليكم السلام ... لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ... وذلك تجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية !!!

مشاركة غير مكتملة نهائيا ... لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ... وذلك تجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية !!!

على الرغم انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب ... وكما تعلم والجميع يعلم ان هذا بدوره يؤدى الى اهدار وقت كل من يطلع على مشاركتك دون جدوى ,, فسأجيبك أيضا بدون ملف .. هذا هو الكود المطلوب Function NumberToText(Number As Double, MainCurrency As String, SubCurrency As String) Dim Array1(0 To 9) As String Dim Array2(0 To 9) As String Dim Array3(0 To 9) As String Dim MyNumber As String Dim GetNumber As String Dim ReadNumber As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetText As String Dim Billion As String Dim Million As String Dim Thousand As String Dim Hundred As String Dim Fraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If Number > 999999999999.99 Then Exit Function If Number < 0 Then Number = Number * -1 ReMark = "سالب " End If If Number = 0 Then NumberToText = "صفر" Exit Function End If MyAnd = " و" Array1(0) = "" Array1(1) = "مائة" Array1(2) = "مائتان" Array1(3) = "ثلاثمائة" Array1(4) = "أربعمائة" Array1(5) = "خمسمائة" Array1(6) = "ستمائة" Array1(7) = "سبعمائة" Array1(8) = "ثمانمائة" Array1(9) = "تسعمائة" Array2(0) = "" Array2(1) = " عشر" Array2(2) = "عشرون" Array2(3) = "ثلاثون" Array2(4) = "أربعون" Array2(5) = "خمسون" Array2(6) = "ستون" Array2(7) = "سبعون" Array2(8) = "ثمانون" Array2(9) = "تسعون" Array3(0) = "" Array3(1) = "واحد" Array3(2) = "اثنان" Array3(3) = "ثلاثة" Array3(4) = "أربعة" Array3(5) = "خمسة" Array3(6) = "ستة" Array3(7) = "سبعة" Array3(8) = "ثمانية" Array3(9) = "تسعة" GetNumber = Format(Number, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then MyNumber = Mid$(GetNumber, I + 1, 3) Else MyNumber = "0" + Mid$(GetNumber, I + 2, 2) End If If (Mid$(MyNumber, 1, 3)) > 0 Then ReadNumber = Mid$(MyNumber, 1, 1) My100 = Array1(ReadNumber) ReadNumber = Mid$(MyNumber, 3, 1) My1 = Array3(ReadNumber) ReadNumber = Mid$(MyNumber, 2, 1) My10 = Array2(ReadNumber) If Mid$(MyNumber, 2, 2) = 11 Then My11 = "إحدى عشرة" If Mid$(MyNumber, 2, 2) = 12 Then My12 = "إثنى عشرة" If Mid$(MyNumber, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNumber, 1, 1)) > 0) And ((Mid$(MyNumber, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNumber, 3, 1)) > 0) And ((Mid$(MyNumber, 2, 1)) > 1) Then My1 = My1 + MyAnd GetText = My100 + My1 + My10 If ((Mid$(MyNumber, 3, 1)) = 1) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My11 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My11 End If If ((Mid$(MyNumber, 3, 1)) = 2) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My12 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My12 End If If (I = 0) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Billion = GetText + " مليار" Else Billion = GetText + " مليارات" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليار" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليارن" End If End If If (I = 3) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Million = GetText + " مليون" Else Million = GetText + " ملايين" If ((Mid$(MyNumber, 1, 3)) = 1) Then Million = " مليون" If ((Mid$(MyNumber, 1, 3)) = 2) Then Million = " مليونان" End If End If If (I = 6) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Thousand = GetText + " ألف" Else Thousand = GetText + " ألاف" If ((Mid$(MyNumber, 3, 1)) = 1) Then Thousand = " ألف" If ((Mid$(MyNumber, 3, 1)) = 2) Then Thousand = " ألفان" End If End If If (I = 9) And (GetText <> "") Then Hundred = GetText If (I = 12) And (GetText <> "") Then Fraction = GetText End If I = I + 3 Loop If (Billion <> "") Then If (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then Billion = Billion + MyAnd End If If (Million <> "") Then If (Thousand <> "") Or (Hundred <> "") Then Million = Million + MyAnd End If If (Thousand <> "") Then If (Hundred <> "") Then Thousand = Thousand + MyAnd End If If Fraction <> "" Then If (Billion <> "") Or (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency + MyAnd + Fraction + " " + SubCurrency Else NumberToText = ReMark + Fraction + " " + SubCurrency End If Else NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency End If End Function

بسيطة وذلك لأن نظام الكمبيوتر لديك 64بت وهذا الكود لا يعمل الا على 32 بت .... وشكراً

لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!

تفضل وبما انك لم تقم برفع ملف ... فهذا سيكون مفيد لطلبك كيفية تقسيم خلية قطريا في إكسيل؟ كما انه كان يجب عليك استخدام خاصية البحث أيضاً بالمنتدى ..فبه أيضا طلبك اريد تقسيم خليه 3 اقسام

تجنبا لإهدار وقت الأساتذة وبما انه لا يمكن العمل على التخمين !!!! لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!

عذرا لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!! تجنباً لإهدار وقت الأساتذة

لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!

وعليكم السلام-تجنباً لإهدار وقت الأساتذة وحيث انه لا يمكن العمل على التخمين ... فعليك برفع ملف موضح فيه المطلوب بكل دقة !!!

لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!!!!!!!!!!!

وعليكم السلام - وكيف تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ؟!!!!

لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!

انتبه من فضلك ... فلا يمكن المساعدة من احد هكذا !!! فلابد من رفع ملف مدعوم بشرح كافى عن المطلوب فلا يمكن العمل من خلال صورة

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

فين الملف ؟!!! وكيف تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!

أهلا بك اخى الكريم فى المنتدى ... لنجاح اى مشاركة وجعل الأساتذة تعمل على مساعدتك لعدم اهدار الوقت ,,, عليك برفع ملف مدعوم بشرح كافى عن المطلوب وشكرا !!!

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

من فضلك لابد من رفع الملف نفسه حتى تتمكن الأساتذة من مساعدتك ... فلايمكن المساعدة بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!

وعليكم السلام لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!!!

وعليكم السلام .. بالتأكيد لا يمكن عمل هذا وشكراً

ارفع من فضلك ملف لما تريد موضح به المطلوب بكل دقة .. تجنباً لإهدار وقت الأساتذة !!!

ارفع من فضلك ملف لما تريد موضح به المطلوب بكل دقة .. تجنباً لإهدار وقت الأساتذة !!!

وعليكم السلام - لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب وشكرا !!!!