تفقيط مبلغ معين (من الأرقام الى الحروف) سواء باللغة العربية أو الإنجليزية بدون اكواد

**قنديل الصياد** · ديسمبر 31, 2013

تفقيط مبلغ معين (من الأرقام الى الحروف) سواء باللغة العربية أو الإنجليزية

طريقةإستخدام معادلتى التفقيط لأى مبلغ باللغة الإنجليزبة أوالعربية:-
1- أبحث عن الـFolder المسمى XLSTART عل ى جهاز الكمبيوتر الخاص بك وغالبا ستجده فى program files وداخل Microsoft office
2- أنسخ الملفين الموجودين داخلالفولدر المسمى معادلة التفقيط (فى المرفقات) وهما Copy of Copy of EHAB و Copy of Copy of PERSONALوضعهما داخل الفولدر المسمى XSTART السابق الإشارة اليه فى الخطوة رقم1
3- انت الأن جاهز لإستخدام المعادلات
4- لاستخدام المعادلة داخل أى Excel sheet كالأتى
إذهب الى الخلية التى تريد ان تكتب داخلها التفقيط وأذهب الى Formula tab واضغط على الأيقونة Insert function وفى المكان المخصص لـ Or select a category إختار User Defined بعدها ستجد المعادلات المطلوبة , إختار المعادلة المطلوبة إذا كانت باللغة العربية أو الأنجليزية وستظهر فى الخلية التى أنت واقف عليها وإختار الخلية الى بها الأرقام المطلوب تفقيطها وأضغط Enter ستجد المبلغ بالحروف المطلوبة

معادلة التفقيط.rar

؛ أحمد النجار ؛ · ديسمبر 31, 2013

شكرا على الموضوع المهم جدا

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

**قنديل الصياد** · ديسمبر 31, 2013

**احمدزمان** · ديسمبر 31, 2013

السلام عليكم و رحمة الله وبركاته

روعة × روعة

جربتها واعطتني النتائج عربي و انجليزي 100×100

العربي تفقيط جنيه وقرش ممتاز

ولكن

للأسف لم اجد عملة الريال و الهلله

جزاك الله كل خير اخي قنديل

الإنجليزي

='Copy of Copy of EHAB.XLS'!only(

و

العربي

='Copy of Copy of PERSONAL.XLS'!sayit(

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

**قنديل الصياد** · ديسمبر 31, 2013

استاذى الحبيب

الاستاذ / أحمد زمان

قم بتغيير الملف المسمى ( Copy of Copy of PERSONAL) بالملف المرفق

وسيتم التغيير من الجنيه المصرى والقروش الى ريال وهللة

تحياتى لك استاذى الحبيب

Copy of Copy of PERSONAL.rar

**احمدزمان** · ديسمبر 31, 2013

استاذى الحبيب

الاستاذ / أحمد زمان

قم بتغيير الملف المسمى ( Copy of Copy of PERSONAL) بالملف المرفق

وسيتم التغيير من الجنيه المصرى والقروش الى ريال وهللة

تحياتى لك استاذى الحبيب

Copy of Copy of PERSONAL.rar

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

وتسلم الأيادي ياريس

**احمد فضيله** · ديسمبر 31, 2013

السلام عليكم و رحمة الله و بركاته

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

**قنديل الصياد** · يناير 1, 2014

استاذى الحبيب

الاستاذ / أحمد زمان

قم بتغيير الملف المسمى ( Copy of Copy of PERSONAL) بالملف المرفق

وسيتم التغيير من الجنيه المصرى والقروش الى ريال وهللة

تحياتى لك استاذى الحبيب

Copy of Copy of PERSONAL.rar

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

وتسلم الأيادي ياريس

**قنديل الصياد** · يناير 1, 2014

السلام عليكم و رحمة الله و بركاته

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

**محمد ابو البـراء** · يناير 1, 2014

جزاك الله خيراُ استاذ قنديل المنتدي استاذ قنديل الصياد

دائما سباق................................. :fff: :fff: :fff: :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, 2014 بواسطه محمد ابو البـراء

hitman202025 · يوليو 21, 2014

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

ÇáÝ æ ãÇÆÊÇä æ ÎãÓå æ ËáÇËæä Ìäíå æ ÇËäÇä æ ÚÔÑæä ÞÑÔÇ ÝÞØ áÇ ÛíÑ.

انا تعبااااااااااااااااان من الموضوع ده

يوليو 24, 2014

السلام عليكم ورحمة الله وبركاته

الاخ الفاضل / استاذ قنديل

الاخ الفاضل محمد ابو براء

اود اشكركم واشكر هذا المنتدى لانه يجمع نخبة فاضلة

واهم ما يتميزون به سرعة الاستجابة والمساعدة

ولا ينتظروا كلمة شكرا

وهذا من افضل الاعمال مساعدة الاخرين

وقد لا يكون هناك تعارف مسبق

ثانيا : اعجبى الملف جدا وهو سهل الاستخدام

وكنت اتمنى ان يكون شامل من العملات

فقد حصلت عليها من ملف ابو براء

وجزاكم الله خيرا على مجهودكم وجعله فى ميزان حسناتكم

وكل عام وانتم بخير

اخوكم عصام ابو محمد

:fff: :fff: :fff:

مصطفى أبو العينين · أكتوبر 31, 2014

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

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

وأيضاً عند كتابة مبلغ 102000 يكتب ( مائة والفان جنية فقط لا غير ) والصحيح هو ( مائة واثنان الف جنية فقط لاغير )

وتقبل مروري ومنتظر التصحيح ورفع الملف الصحيح للأهمية وجزاكم الله كل خير

ابو جودى · نوفمبر 1, 2014

عمل رائع

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

**أبو إيمان** · نوفمبر 2, 2014

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

لكن لم أجد المجلد Xstart لدي وأنا أستخدم أوفيس 2003

عبد الحميد عبد الفتاح · نوفمبر 2, 2014

شكرا كل الشكر للسادة الاساتذه الذين لم يبخلوا بعلمهم بارك الله كلم جميعا وزادكم علما الى علمكم

**قنديل الصياد** · نوفمبر 2, 2014

اخى العزيز

جرب هذا المرفق واعلمنى بالنتيجةعلما بانى ادرجت كود يعمل على كل العملات

تفقيط.rar

تم تعديل نوفمبر 2, 2014 بواسطه قنديل الصياد

**أبو إيمان** · نوفمبر 3, 2014

جزاكم الله خيرا وكنت أود أن أستفيد من ميزة استدعاء الدالة في أي ملف

ولكم مني وافر الاحترام

ومن الواضح أنه يجب علي مواكبة التطور وتثنيت اوفيس 2010 على الأقل

مصطفى أبو العينين · نوفمبر 3, 2014

الله ينور عليك يا أستاذ / قنديل .. بس أريد تعديل

الملفين الموجودين وهما Copy of Copy of EHAB و Copy of Copy of PERSONAL حتى أقوم بوضعهما في مكانهما مرة أخرى داخل الفولدر المسمى XSTART ولك جزيل الشكر على الرد

emad adly · نوفمبر 12, 2014

^{السلام عليكم ورحمة الله وبركاته}

^{استاذى الفاضل ...}

^{جزاك الله خيرا}

^{لقد استفدت كثيرا من موضعك فشكرا جزيلا لك على مجهودك}

^{اخوك / عماد}

اسلام سامى · مارس 12, 2015

مشكور ياباشا بس انا نسخت الملفات داخل الفولدر بس انا مش فاهم الجزئ ده (

إذهب الى الخلية التى تريد ان تكتب داخلها التفقيط وأذهب الى Formula tab واضغط على الأيقونة Insert function وفى المكان المخصص لـ Or select a category إختار User Defined بعدها ستجد المعادلات المطلوبة , إختار المعادلة المطلوبة إذا كانت باللغة العربية أو الأنجليزية وستظهر فى الخلية التى أنت واقف عليها وإختار الخلية الى بها الأرقام المطلوب تفقيطها وأضغط Enter ستجد المبلغ بالحروف المطلوبة) بمعنى اخر مش لاقى Formula tab عندى و مش عارف المعادلة اسمها اية ارجو المساعدة بشكرك مرة اخرى .

ياسر خليل أبو البراء · مارس 13, 2015

الأخ الفاضل إسلام سامي

شوف عناوين الأعمدة A - B - C - D - E ، بص فوق العناوين مباشرة .. شايف الشريط الطويل اللي جنبه كلمة fx أيوا هو دا شريط المعادلات Formula Bar ..

اعمل كليك على كلمة fx هيطلعلك نافذة في أولها قايمة منسدلة افتحها (متخافش مش هتطلع عفريت) ..هتلاقي في آخرها User-Defined .. في الجزء السفلي هتلاقي الدوال UDFs الموجودة في الملفين اللي إنت وضعتهم في المجلد XLSTART .. بس خلاص ..

نادي الخولي · يونيو 13, 2017

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

وزادكم الله من علمه

**ناصر سعيد** · يونيو 17, 2017

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

Helmy Saadoun · ديسمبر 28, 2018

نفس المشكلة دى عندى برجاء الرد مع خالص الشكر

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

ÇáÝ æ ãÇÆÊÇä æ ÎãÓå æ ËáÇËæä Ìäíå æ ÇËäÇä æ ÚÔÑæä ÞÑÔÇ ÝÞØ áÇ ÛíÑ.

انا تعبااااااااااااااااان من الموضوع ده

تسجيل الدخول

تفقيط مبلغ معين (من الأرقام الى الحروف) سواء باللغة العربية أو الإنجليزية بدون اكواد

الردود الموصى بها

قنديل الصياد

؛ أحمد النجار ؛

قنديل الصياد

احمدزمان

قنديل الصياد

احمدزمان

احمد فضيله

قنديل الصياد

قنديل الصياد

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

hitman202025

عصام عبدالرحمن بو محمد

مصطفى أبو العينين

ابو جودى

أبو إيمان

عبد الحميد عبد الفتاح

قنديل الصياد

أبو إيمان

مصطفى أبو العينين

emad adly

اسلام سامى

ياسر خليل أبو البراء

نادي الخولي

ناصر سعيد

Helmy Saadoun

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information