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

[قنديل الصياد]

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

طريقةإستخدام معادلتى التفقيط لأى مبلغ باللغة الإنجليزبة أوالعربية:-
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

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

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

 

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

[قنديل الصياد]

[احمدزمان]

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

 

روعة × روعة

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

 

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

 

ولكن

 

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

 

 

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

 

 

الإنجليزي

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

و

العربي

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

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

[قنديل الصياد]

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

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

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

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

 

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

 

Copy of Copy of PERSONAL.rar

[احمدزمان]

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

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

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

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

 

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

 

Copy of Copy of PERSONAL.rar

 

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

 

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

[احمد فضيله]

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

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

[قنديل الصياد]

 

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

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

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

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

 

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

 

Copy of Copy of PERSONAL.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, 2014 بواسطه محمد ابو البـراء

[hitman202025]

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

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

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

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

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

 

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

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

 

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

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

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

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

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

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

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

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

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

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

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

   

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

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

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

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

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

[ابو جودى]

عمل رائع

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

[أبو إيمان]

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

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

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

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

[قنديل الصياد]

اخى العزيز

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

 

 

 

تفقيط.rar

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

[أبو إيمان]

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

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

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

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

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

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

[emad adly]

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

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

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

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

 

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

 

 

[اسلام سامى]

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

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

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

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

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

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

[نادي الخولي]

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

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

[ناصر سعيد]

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

[Helmy Saadoun]

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

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

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

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