داله التفقيط و تحويل الارقام الي حروف
داله التفقيط و تحويل الارقام الي حروف
نتناول في هذا المقال داله التفقيط و تحويل الارقام الي حروف و هي الداله التي يمكن من خلالها تحويل الأرقام من الصيغه الرقميه الي الصيغه النصيه اي تحويل الأرقام الي حروف و نتناول في هذا المقال العديد من أشكال هذه الداله التي تدعم اللغه العربيه و الانجليزيه كما تدعم عرض اسم العمله او عدم عرض اسم العمله و تدعم كل العملات كما نتناول في هذا المقال طرق تثبيت داله التفقيط في اي إصدار من إصدارات الاوفيس بحيث لا نحتاج الي اضافه ملف الداله في كل ملف عمل نحتاج الداله به بمجرد اضافه الداله مره واحده تكفي لاستخدمها في اي ملف آخر اذا اتبعنا طريقه اضافه الداله بطريقه صحيحةتفقيط العمله
تعتبر داله التفقيط داله مهمه لاي محاسب او اي شخص يعمل في المجال المالي حيث يمكن لهذه الداله توفير الوقت والمجهود في تفقيط الأرقام بشكل يدوي حيث يمكن اضافه الداله و ستقوم هذه الداله بتفقيط الأرقام بشكل احترافي
مشاكل تثبيت الداله و طرق التغلب عليها
عدم وضوح الحروف او ان الحروف تظهر بشكل غير مفهوم في حاله بعض اللغه العربيه و الفرنسيه و بعض اللغات الاخري و هذه المشكله يمكن أن ترجع الي بعض الأسباب
الاول خاصية اللغه في محرر اكواد الفجوال بيزك الخاص بالاوفيس يحتاج إلي اضافه اللغه العربيه و يتم تعديل خاصيه عرض اللغه بخطوات بسيطه
فإذا كنا نستخدم الاكسيل نستطيع الضغط ضغطه بزر الماوس الأيمن علي اسم الشيت ( ورقه العمل ) واختيار view code فيتم فتح محرر الاكواد من خلال القائمه tools ثم اختيار options وثم اختر Editor Fomat ثم انتقل الي font و اختر من خلال القائمه المنسدله courer new ( Arabic اذا كنت تريد اللغه العربيه و كذلك الحال بالنسبه لاي لغه اخري
السبب الثاني ان الويندز يحتاج إلي اضافه حزمه ملفات دعم اللغه العربيه حتي وان كانت اللغه العربيه او اللغه التي نريدها حتي وان كانت اللغه موجوده ضمن الخيارات اللغه علي الويندز بهناك بعض الخطوات يجب علينا التأكد منها قبل أن ننتقل إلى السبب الثالث .و هذه المشكله اكتر من يعاني منها هم مستخدمي ويندز 10 حيث ان الويندز يحتاج إلي تثبيت حزمه دعم اللغه و يتم ذلك عن طريق التوجه الي لوحه التحكم control panel و انتقل الي اعدادات اللغه ثم اضغط علي اللغه العربيه او اللغه التي بها مشكله و اضغط علي تحميل حزمه دعم اللغه و بعد اكتمال التجميل قم باعده تشغيل الجهاز و اذا لم تحل المشكله انتقل الي السبب الثالث
السبب الثالث قد ترجع الي ان كود الداله نفسه تالف و هنا نستطيع أن تتأكد قبل استخدام ملف الداله ان هذا الكود يتوافق مع اللغه التي نريد أن تظهر في داله التفقيط و يتم ذلك بفتح الملف باي محرر اكواد و التأكد من ظهور الحروف اللغه بشكل صحيح و في هذه الحاله عليك البحث عن ملف اخر و يمكنك تحميل ملف الداله من خلال رابط التحميل اخر المقال
تحويل ارقام الي حروف
تستخدم داله التفقيط في تفقيط العمله و الارقام خاصا في نماذج الشيكات بصيغه اكسيل او اكسيس او برنامج تنفيذي او يمكن ان تستخدم في تفقيط الفواتير او تفقيط درجات الطلاب او اي شئ اخر
Function tefket(Number, Curncey, txtdec) Dim dec As Currency Dim dec1 As Currency Dim ct1 As String If Not IsNumeric(Number) Or Number = "" Or Len(Int(Number)) > 10 Then Exit Function 'If Len(Int(Number)) > 10 Then MsgBox "max 10 numbers": Exit Function dec = Number - Int(Val(Number)) ST = Trim(Str(Int(Round(Number, 2)))) xol = Len(ST) wa = " æ " vn = Val(ST) Select Case xol Case 1 ct = AHAD(vn) Case 2 ct = ASHRAT(vn) Case 3 ct = MIAT(vn) Case 4 vn4 = Val(Mid(ST, 1, 1)) Select Case vn4 Case 1 ct = "ÃáÝ" Case 2 ct = "ÃáÝíä" Case Else ct = AHAD(vn4) & " ÂáÇÝ " End Select vn4 = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn4 > 99, wa, "") & MIAT(vn4) Case 5 vn5 = Val(Mid(ST, 1, 2)) ct = IIf(vn5 = 10, ASHRAT(vn5) & " ÂáÇÝ ", ASHRAT(vn5) & " ÃáÝ") vn5 = Val(Mid(ST, 3, 3)) ct = ct & IIf(vn5 > 99, wa, "") & MIAT(vn5) Case 6 VN6 = Val(Mid(ST, 1, 3)) ct = MIAT(VN6) VN6 = Val(Mid(ST, 4, 3)) ct = ct & " ÃáÝ " & IIf(VN6 > 99, wa, "") & MIAT(VN6) Case 7 vn = Val(Mid(ST, 1, 1)) Select Case vn Case 1 ct = "ãáíæä " Case 2 ct = "ãáíæäíä " Case Else ct = IIf(vn > 0, AHAD(vn), "") & " ãáÇííä " End Select vn = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ÃáÝ ", "") vn = Val(Mid(ST, 5, 3)) ct = ct & IIf(vn > 99, "æ", "") & MIAT(vn) Case 8 vn = Val(Mid(ST, 1, 2)) ct = ASHRAT(vn) & " ãáíæä " ct = IIf(vn = 10, ASHRAT(vn) & " ãáÇííä ", ct) vn = Val(Mid(ST, 3, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ÃáÝ ", "") vn = Val(Mid(ST, 6, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) Case 9 vn = Val(Mid(ST, 1, 3)) ct = MIAT(vn) & " ãáíæä " vn = Val(Mid(ST, 4, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ÇáÝ ", "") vn = Val(Mid(ST, 7, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) Case 10 vn = Val(Mid(ST, 1, 1)) Select Case vn Case 1 ct = "ãáíÇÑ " Case 2 ct = "ãáíÇÑíä " Case Else ct = IIf(vn > 0, AHAD(vn), "") & " ãáíÇÑ" End Select vn = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ãáíæä ", "") vn = Val(Mid(ST, 5, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ÇáÝ ", "") vn = Val(Mid(ST, 8, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) End Select dec = Round(dec, 2) dec1 = dec * 100 If dec1 < 10 Then ct1 = AHAD(dec1) ElseIf dec1 > 10 Then ct1 = ASHRAT(dec1) 'ct1 = AHAD(dec1 - Int(dec1 / 10)) & " " & ct1 End If If dec1 > 0 And dec1 < 100 Then If Right(dec1, 1) = 0 Then ct1 = ct1 & " ÞÑÔÜÜÜÇ " Else ct1 = "æ" & ct1 & " ÞÑÔÜÜÜÇ " End If End If 'ct = " ÝÞØ " & ct & " " & Curncey & " " & IIf(Val(dec) > 0, wa & (dec * 100) & txtdec, "") & " áÇÛíÑ" ct = " ÝÞØ " & ct & " " & Curncey & " " & ct1 & "ÝÞØ áÇÛíÑ" If Val(Number) = 0 Then ct = "ÕÝÑ" 'ct = "ÝÞØ " & ct & " " & Curncey & " " & IIf(Val(dec) > 0, wa & (dec * 100) & " " & CRNCY2, "") & " áÇÛíÑ" tefket = ct End Function Function MIAT(NUM3) vn3 = Int(NUM3 / 100) Select Case vn3 Case 1 HARF3 = "ãÇÆÉ" Case 2 HARF3 = "ãÆÊÇä" Case 3 To 9 HARF3 = AHAD(vn3) F = "É" B = "" D = "íÉ" If vn3 = 8 Then HARF3 = Left(HARF3, Len(HARF3) - 2) & "ãÇÆÉ" Else HARF3 = Left(HARF3, Len(HARF3) - 1) & "ãÇÆÉ" End If Case Else HARF3 = "" End Select vn3 = NUM3 - vn3 * 100 If Val(Right(vn3, 1)) = 0 Then wa = " " Else: wa = " æ " HARF3 = HARF3 & IIf(vn3 > 0, wa & IIf(vn3 < 10, AHAD(vn3), ASHRAT(vn3)), "") MIAT = HARF3 End Function Function ASHRAT(NUM2) wa = " æ " vn2 = Int(NUM2 / 10) Select Case NUM2 Case 10 HARF2 = " ÚÔÑÉ" Case 11 HARF2 = "ÅÍÏì ÚÔÑ" Case 12 HARF2 = "ÅËäì ÚÔÑ" Case 13 To 19 HARF2 = IIf(NUM2 * (10 / 100) <> 0, AHAD(Right(NUM2, 1)) & " ", "") & " ÚÔÑ" End Select Select Case vn2 Case 2 HARF2 = IIf(AHAD(Right(NUM2, 1)) <> "", AHAD(Right(NUM2, 1)), "") & wa & "ÚÔÑæä" Case 3 HARF2 = IIf(AHAD(Right(NUM2, 1)) <> "", AHAD(Right(NUM2, 1)), "") & wa & "ËáÇËæä" Case 4 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÃÑÈÚæä" Case 5 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÎãÓæä" Case 6 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÓÊæä" Case 7 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÓÈÚæä" Case 8 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ËãÇäæä" Case 9 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÊÓÚæä" End Select ASHRAT = HARF2 End Function Function AHAD(num1) Select Case num1 Case 0 harf1 = "" Case 1 harf1 = "æÇÍÏ" Case 2 harf1 = "ÅËäÇä" Case 3 harf1 = "ËáÇËÉ" Case 4 harf1 = "ÃÑÈÚÉ" Case 5 harf1 = "ÎãÓÉ" Case 6 harf1 = "ÓÊÉ" Case 7 harf1 = "ÓÈÚÉ" Case 8 harf1 = "ËãÇäíÉ" Case 9 harf1 = "ÊÓÚÉ" End Select AHAD = harf1 End Function
Function tefket(Number, Curncey, txtdec) Dim dec As Currency Dim dec1 As Currency Dim ct1 As String If Not IsNumeric(Number) Or Number = "" Or Len(Int(Number)) > 10 Then Exit Function 'If Len(Int(Number)) > 10 Then MsgBox "max 10 numbers": Exit Function dec = Number - Int(Val(Number)) ST = Trim(Str(Int(Round(Number, 2)))) xol = Len(ST) wa = " æ " vn = Val(ST) Select Case xol Case 1 ct = AHAD(vn) Case 2 ct = ASHRAT(vn) Case 3 ct = MIAT(vn) Case 4 vn4 = Val(Mid(ST, 1, 1)) Select Case vn4 Case 1 ct = "ÃáÝ" Case 2 ct = "ÃáÝíä" Case Else ct = AHAD(vn4) & " ÂáÇÝ " End Select vn4 = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn4 > 99, wa, "") & MIAT(vn4) Case 5 vn5 = Val(Mid(ST, 1, 2)) ct = IIf(vn5 = 10, ASHRAT(vn5) & " ÂáÇÝ ", ASHRAT(vn5) & " ÃáÝ") vn5 = Val(Mid(ST, 3, 3)) ct = ct & IIf(vn5 > 99, wa, "") & MIAT(vn5) Case 6 VN6 = Val(Mid(ST, 1, 3)) ct = MIAT(VN6) VN6 = Val(Mid(ST, 4, 3)) ct = ct & " ÃáÝ " & IIf(VN6 > 99, wa, "") & MIAT(VN6) Case 7 vn = Val(Mid(ST, 1, 1)) Select Case vn Case 1 ct = "ãáíæä " Case 2 ct = "ãáíæäíä " Case Else ct = IIf(vn > 0, AHAD(vn), "") & " ãáÇííä " End Select vn = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ÃáÝ ", "") vn = Val(Mid(ST, 5, 3)) ct = ct & IIf(vn > 99, "æ", "") & MIAT(vn) Case 8 vn = Val(Mid(ST, 1, 2)) ct = ASHRAT(vn) & " ãáíæä " ct = IIf(vn = 10, ASHRAT(vn) & " ãáÇííä ", ct) vn = Val(Mid(ST, 3, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ÃáÝ ", "") vn = Val(Mid(ST, 6, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) Case 9 vn = Val(Mid(ST, 1, 3)) ct = MIAT(vn) & " ãáíæä " vn = Val(Mid(ST, 4, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ÇáÝ ", "") vn = Val(Mid(ST, 7, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) Case 10 vn = Val(Mid(ST, 1, 1)) Select Case vn Case 1 ct = "ãáíÇÑ " Case 2 ct = "ãáíÇÑíä " Case Else ct = IIf(vn > 0, AHAD(vn), "") & " ãáíÇÑ" End Select vn = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ãáíæä ", "") vn = Val(Mid(ST, 5, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ÇáÝ ", "") vn = Val(Mid(ST, 8, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) End Select dec = Round(dec, 2) dec1 = dec * 100 If dec1 < 10 Then ct1 = AHAD(dec1) ElseIf dec1 > 10 Then ct1 = ASHRAT(dec1) 'ct1 = AHAD(dec1 - Int(dec1 / 10)) & " " & ct1 End If If dec1 > 0 And dec1 < 100 Then If Right(dec1, 1) = 0 Then ct1 = ct1 & " ÞÑÔÜÜÜÇ " Else ct1 = "æ" & ct1 & " ÞÑÔÜÜÜÇ " End If End If 'ct = " ÝÞØ " & ct & " " & Curncey & " " & IIf(Val(dec) > 0, wa & (dec * 100) & txtdec, "") & " áÇÛíÑ" ct = " ÝÞØ " & ct & " " & Curncey & " " & ct1 & "ÝÞØ áÇÛíÑ" If Val(Number) = 0 Then ct = "ÕÝÑ" 'ct = "ÝÞØ " & ct & " " & Curncey & " " & IIf(Val(dec) > 0, wa & (dec * 100) & " " & CRNCY2, "") & " áÇÛíÑ" tefket = ct End Function Function MIAT(NUM3) vn3 = Int(NUM3 / 100) Select Case vn3 Case 1 HARF3 = "ãÇÆÉ" Case 2 HARF3 = "ãÆÊÇä" Case 3 To 9 HARF3 = AHAD(vn3) F = "É" B = "" D = "íÉ" If vn3 = 8 Then HARF3 = Left(HARF3, Len(HARF3) - 2) & "ãÇÆÉ" Else HARF3 = Left(HARF3, Len(HARF3) - 1) & "ãÇÆÉ" End If Case Else HARF3 = "" End Select vn3 = NUM3 - vn3 * 100 If Val(Right(vn3, 1)) = 0 Then wa = " " Else: wa = " æ " HARF3 = HARF3 & IIf(vn3 > 0, wa & IIf(vn3 < 10, AHAD(vn3), ASHRAT(vn3)), "") MIAT = HARF3 End Function Function ASHRAT(NUM2) wa = " æ " vn2 = Int(NUM2 / 10) Select Case NUM2 Case 10 HARF2 = " ÚÔÑÉ" Case 11 HARF2 = "ÅÍÏì ÚÔÑ" Case 12 HARF2 = "ÅËäì ÚÔÑ" Case 13 To 19 HARF2 = IIf(NUM2 * (10 / 100) <> 0, AHAD(Right(NUM2, 1)) & " ", "") & " ÚÔÑ" End Select Select Case vn2 Case 2 HARF2 = IIf(AHAD(Right(NUM2, 1)) <> "", AHAD(Right(NUM2, 1)), "") & wa & "ÚÔÑæä" Case 3 HARF2 = IIf(AHAD(Right(NUM2, 1)) <> "", AHAD(Right(NUM2, 1)), "") & wa & "ËáÇËæä" Case 4 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÃÑÈÚæä" Case 5 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÎãÓæä" Case 6 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÓÊæä" Case 7 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÓÈÚæä" Case 8 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ËãÇäæä" Case 9 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", "", "") & wa & "ÊÓÚæä" End Select ASHRAT = HARF2 End Function Function AHAD(num1) Select Case num1 Case 0 harf1 = "" Case 1 harf1 = "æÇÍÏ" Case 2 harf1 = "ÅËäÇä" Case 3 harf1 = "ËáÇËÉ" Case 4 harf1 = "ÃÑÈÚÉ" Case 5 harf1 = "ÎãÓÉ" Case 6 harf1 = "ÓÊÉ" Case 7 harf1 = "ÓÈÚÉ" Case 8 harf1 = "ËãÇäíÉ" Case 9 harf1 = "ÊÓÚÉ" End Select AHAD = harf1 End Function
الكود باللغه الانجليزيه من موقع شركه مايكروسوفت
او تحميل كود داله التفقيط باللغه العربيه
مواضيع ذات صله
- يمكنك مشاهده دوال التجميع و التجميع الشرطي
- يمكنك مشاهده الدوال المبرمجه في الاكسيل
- يمكنك مشاهده مهارات كتابه المعادلات في الاكسيل
- يمكنك مشاهده تحويل pdf الي ورد او اكسيل بدون برامج
- يمكنك مشاهده تجميع و دمج عده ملفات عمل اكسيل في ملف عمل واحد
- يمكنك مشاهده الطباعه في الاكسيل
- يمكنك مشاهده حمايه البيانات في الاكسيل
- يمكنك مشاهده تصميم شيت اليوميه الامريكيه
- يمكنك مشاهده دوال الوقت و التاريخ في الاكسيل
- يمكنك مشاهده شرح داله البحث الداله vlookup بالامثله و التطبيقات العمليه
ليست هناك تعليقات