البحث في الموقع

بسم الله الرحمن الرحيم تطرق الكثير من المبرمجين إلى موضوع التفقيط وهو تحويل الأرقام إلى كلمات عربية ولكني كمعلم لمادة اللغة العربية لم أجد من هذه الدوال ما يتوافق مع قواعد اللغة العربية قاعدة كتابة الأعداد العربية بطريقة مضبوطة وصحيحة وتجد في هذا الرابط شرح مبسط للعدد وتمييزه http://www.reefnet.g.../AdadMadoud.htm وبفضل الله قمت ببرمجة دالة تقوم بتحويل الرقم إلى كلمات عربية مضبوطة تماماً وموافقة لجميع قواعد كتابة العدد في اللغة العربية تجدها هنا https://officena.net/team/mas/tafkeet وتم برمجة هذه الصفحة بلغة php وهذا الإصدار الجديد يعتمد فقط علي جافاسكريبت https://www.mr-mas.com/p/tafqeet.html وإذا لاقى الموضوع قبولا وإعجابا فسوف أعرض عليكم الكود الخاص بهذه الدالة أخوكم محمد صالح مبرمج بأكثر من لغة برمجة ومصمم ومطور مواقع

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة Option Explicit '========================================================" ' بسم الله الرحمن الرحيم " '========================================================" ' (دالة تحويل الرقم الى نص باللغة العربية (تفقيط " ' kh_TextNum " '========================================================" 'Num الرقم " '========================================================" 'sex جنس العملة " 'FALSE ( فارغ او صفر مذكر ) " 'TRUE ( أو اي رقم غير الصفر مؤنث ) " '========================================================" 'sNameCurr اسم العملة الرئيسية مفرد " 'pNameCurr اسم العملة الرئيسية جمع " 'NameCurrDec اسم العملة الكسرية " 'Decimal_Count طول الكسر افتراضـياً : بدون اظهار الكسر " '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" ' ملاحظات ' (اولاً : العملة الرئيسية مثنى (يقوم بها الكود تلقائيا ' مع ملاحظة اذا اسم العملة ينتهي بالتاء المربوطة ' يجب ان يكتب كذلك وليس بالهاء ' ----------------------- ' ثانياً : اذا كانت العملة الرئيسية مفرد فارغاً تعتبر ' اسماء العملات (الجمع والكسري) فارغة تلقائيا ' ----------------------- 'ثالثاً : الكلمة الابتدائية بامكانك تغييرها او تجعلها فارغة Private Const MyBegTx As String = "فقط " ' "" ' ----------------------- ' MyTNum رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت ' للفئات الصفرية للرقم ادناه Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات" '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" Function kh_TextNum(Num As String, Optional sex As Boolean = False, Optional sNameCurr As String = "", Optional pNameCurr As String = "", Optional NameCurrDec As String = "", Optional Decimal_Count As Byte = 2) As String Dim Spp, zt Dim i%, ii%, pr% Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$ '====================================== If Not IsNumeric(Num) Then GoTo kh_Exit Spp = Split("/" & MyTNum, "/") ii = UBound(Spp) If Num < 0 Then Num = Abs(Num) '====================================== If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit '====================================== nCurr = sNameCurr & "-" & IIf(pNameCurr = "", sNameCurr, IIf(sNameCurr = "", "", pNameCurr)) '====================================== Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000") For i = 0 To ii MyMid = Mid(Txt1, (i * 3) + 1, 3) If MyMid Then zt = Mid(Txt1, (i * 3) + 4, Len(Txt1)) zt = IIf(ii - i, Int(zt), zt) Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr) pr = 1 + IIf(ii - i, 1, CInt(sex)) Txt = Txt & IIf(Len(Txt), " و", "") & kh_nText(MyMid, Txt2, pr, zt, CBool(sNameCurr <> "")) End If If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " ", "صفر ") & sNameCurr Next '====================================== Txt = MyBegTx & Txt & kh_dText(Num, sNameCurr, NameCurrDec, Decimal_Count) '====================================== kh_Exit: kh_TextNum = Trim(Txt) End Function ' معالجة العدد من 1 الى 999 لكل فئات الرقم Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal z As Boolean, ByVal tCu As Boolean) As String Dim Sp Dim Num1%, Num2%, Num3% Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$ '====================================== Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",") '====================================== If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة" oM = Trim(Split(oMm, "-")(0)) '====================================== Num1 = Left(iNum, 1) Num2 = Right(iNum, 2) Select Case Num1 Case 1: nT0 = "مائة" Case 2: nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن")) Case 3 To 9: nT0 = Sp(Num1) & "مائة" End Select '========================================= Num1 = Right(iNum, 2) Select Case Num1 Case 1, 2: If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM Case 11 To 99: If oM <> "" Then If ibs Then If z Then oM = oM & "اً" End Select '----------------------------------------- Select Case Num1 Case 1 nT = IIf(oM = "", Sp(0) & S1, oM) oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "") Case 2 nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(z = 0 And ibs = 2 And tCu, "ا", "ان")) oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "") Case 3 To 10 oM = Trim(Split(oMm, "-")(1)) nT = Sp(Num1) & S Case 11, 12 nT = Sp(Num1) & Sp(10) & S1 Case 13 To 19 nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1 Case 20 To 99 Num2 = Right(Num1, 1) Num3 = Left(Num1, 1) If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون" nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & " و" & nT1 If Num2 = 0 Then nT2 = nT1 nT = nT2 End Select '====================================== S = IIf(nT = "" Or iNum < 100, "", " و") nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية") kh_nText = Trim(nT0 & S & nT & " " & oM) '====================================== End Function ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte) As String Dim Td$, Td1$ On Error GoTo 1 If NCur = "" Then Ndec = "" Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0")) If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1 If Len(Ndec) Then Ndec = " " & Ndec: Td1 = Td * CVar("1" & String(co, "0")) Else Ndec = " " & NCur: Td1 = Td Td1 = " و " & Chr(40) & Td1 & Chr(41) & Ndec 1: kh_dText = Td1 End Function دالة تحويل الرقم الى نص عربي.rar ================================================= الملف المعدل: هذا المرفق بامكانية تفقيط الكسر وامكانية ادخال كلمة نهاية النص دالة تحويل الرقم الى نص عربي.rar ================================================= رابط مباشر للملف

التفقيط وتحويل الارقام إلى حروف بالعربية في اكسل أخواني الأعزاء اقدم لكم ملف اكسل يحتوي على ماكرو تفقيط الارقام باللغة العربية https://youtu.be/yzDZmVH8WuM

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

السلام عليكم اخواني اريد تفقيط الارقام ولكن باللغة التركية بحثت بالنت ووجدت هذه المعادلة ولكن لا تظهر القروش وعند كتاية الرقم مع الفروش لا يظهر الكتابة ارجو المساعدة try.xlsm

بسم الله الرحمن الرحيم كيف الحال أحبابي في الله إن شاء الله بخير وسعادة ورضا كل عام أنتم جميعا بخير نلتقي من جديد في شهر ميلاد سيد الخلق وهديتي لكم بمناسبة المولد النبوي الشريف هي ********** بناء على طلب الأخ الفاضل @عبدالرحمن وسلمى قمت بعمل دالة معرفة لجلب ناتج التفقيط الموجود في صقحتي الشخصية فس موقع أوفيسنا https://officena.net/team/mas/tafkeet/ إلى ملف إكسل أو أكسس بشرط الاتصال بالانترنت ============== الجميل في الصفحة أنها تراعي بإذن الله كل قواعد صياغة العدد في اللغة العربية ولا تحتوي على أخطاء إملائية ولا نحوية وتمت برمجتها بلغة php لأني لم أجد من المرونة في لغة فيجوال بيسك للتطبيقات vba ما يسمح بنفس البرمجة المستخدمة في لغة الويب php لذا تم التحايل على الأمر بكود يقوم بطلب الصفحة الخاصة بالتفقيط وتمرير البيانات الخاصة بنا من صفحة الإكسل إلى الموقع ثم يسجل ما يعود به الموقع في الخلية ============ ويمكن الاستفادة من الكود في جلب بيانات أي صفحة من الانترنت عن طريقة vba والآن أترككم مع الملف التفقيط من الانترنت.rar

السلام عليكم تحية طيبة للادارة والاعضاء المحترمون احتاج الى دالة تقوم بتحويل الارقام الى كتابة مثلاً 65 تكتب خمس وستون

في كود التفقيط يعرض التاريخ 1/2/2012 يعطي الواحد اثنان الفان واثنى عشر والمطلوب لازم يعطي اليوم الاول من شهر شباط لعام الفان واثنى عشر ميلادي

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله أحبتي الكرام رجاء هناك عدة مطالب 1- أعادة كتابة فترة زمنية معينة ولكن بدون العطلات 2- اعادة كتابة الاسماء بدون تكرار مع ذكر التاريخ 3- التفقيط إلي أيام وساعات وكل ده في مصنف واحد رجاء لا تردوا مصنفي صفر اليدين المصنف.rar

أخي الكريم المسألة بسيطة جداً فقط اتبع الخطوات ولا تهمل منها شيء 1-حمل الملفات المرفقة بالمقال والموضوعة بملف مضغوط وبعد فك الضغط ينتج لك الملفين التاليين Module1 و NewMacros 2-افتح وورد ومن قائمة أدوات اختر : ماكرو > محرر Visual Basic 3-من قائمة File اختر Import file ثم اختر الملفات التي قمت بتحميلها من المرفق 4-اغلق صفحة Visual Basic وارجع لصفحة وورد 5-من قائمة عرض اختر أشرطة أدوات > تخصيص ، ومن التبويب الأوامر وتحت قائمة فئات اختر وحدات ماكرو لتظهر فى القائمة المقابلة أمر Normal.NewMacros.تفقيط واضغط علية بالماوس مع السحب إلى شريط القوائم أو أي مجموعة من الأزرار 6-يمكنك تعديل الاسم والخواص بالضغط بالزر الأيمن على الأمر الجديد وذلك قبل غلق مربع حوار تخصيص 7-اكتب أي رقم مرغوب في وورد ثم حدده وهذه النقطة مهمة " التحديد" ثم اكبس الزر أز الأمر الذي أنتجته فيظهر التفقيط فوراً 8- لتغيير الليرة السورية والقرش افتح وورد ومن قائمة أدوات اختر : ماكرو > محرر Visual Basic ثم اتجه لمجموعة النورمال Normal > ومنها Modules ثم افتح المسمى New Macros فتجد نوع العملة قم بتغييرها من هنا نجاح العملية معك يعتبر نجاح لي ولك على السواء scorpion4ever المرفق Tafqeet.rar

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام علي سيدنا محمد النبي الامين وعلي من سار بهديه الي يوم الدين اما.....بعد في موضوع لي سابق طرحت كود تفقيط لتحويل الأرقام من أرقام إلى كتابة لكن (إنجليزي) http://www.officena.net/ib/index.php?showtopic=45828&hl= اليوم سأطرح لكم كود تفقيط أو ملف جاهز لإضافته في الفيجول بيسك بكل سهوله وإستخدامه كداله كاي داله أساسيه في الإكسيل طريقة إضافة ملف التفقيط : حمل ملف التفقيط من المرفقات وافتح ملف الإكسيل وإظغط على Alt+F11 وبعدها ستفتح لك صفحة الفيجول بيسك إذهب إلى File وبعدها Import File وضع الملف وأغلق الفيجول بيسك في الإكسيل إذهب الداله المعرفة من قبل المستخدم وستجدها NoToTxt وتابع الإدخالات كما في الصور المرفقة المميز في هذا التفقيط , يمكنك إضافة أي عمله مثل ريال"هلله_جنيه"قرش_دينار"فلس ملف تفقيط + إكسل شيت.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف ENGLISH_FUNCTION.rar و لا تنسونا من صالح الدعاء تحياتى

نرجوا المساعدة في برنامج تفقيط للتقارير في برنامج اكسس اكس بي

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

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

لما اجي اعمل التفقيط عشان يفقط بالعربي بينقل في الdeveloper لغه غريبه مش مفهومه ومش عارف اظبط لغه الكمبيوتر عليه . انا عندي windows 8 وال office 2010 ارجوا المساعده

اسعد الله أوقاتكم، قمت بنسخ نص من احد المواقع وقمت بلصقه في برنامج Microsoft word 2010، الا ان الأرقام ظهرت باللغة الانكليزية (العربية لغة البرنامج) والمطلوب تحويلها الى اللغة العربية ( الهندية). علما بان إعدادات اللغة صحيحة في خيارات الوورد، الا ان المشكلة في أصل النص المنسوخ. هل بالإمكان انشاء كود لتحويل الأرقام من اللغة العربية الى اللغة الهندية: من 1,2,3,4,5,6 الى ١،٢،٣،٤،٥،٦ أرجو ان ألقى ضالتي لديكم خصوصا انني منذ فترة وانا ابحث ولم استطع. وشكرا لكم سلفا

اولا اشكر المنتدى الرائع جداااااااااااااااااااااااااااااااااااا على الموضوعات الرائعة جداااااااااااااا ارجو ان تكون داله تفقيط الانجليزى على سبيل المثال . Only sixty-four thousand five hundred sixty-four Pound & 55/100 ارجو ان تشمل الداله الكسر على شكل 55/100 وان تبداء بكلمة Only ............................................................................................. ارجو ان تكون داله تفقيط العربى على سبيل المثال فقط ألفاً ومائتان وإثنا عشر جنيه مصري و 100/55 لاغير . ارجو ان تشمل الداله الكسر على شكل 55/100 وان تنتهى بكلمة لاغير شكر لكم ...............

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

السلام عليكم إخوتي الكرام هذه أول مشاركة لي في المنتدى أرجو أن أجد ضالتي فيه إن شاء الله مشكلتي تتمثل في عملية التفقيط بحيث أن البرنامج الذي بحوزتي لا يقوم بهذه العملية مع المبالغ التي تفوق : 999999.99 دج الملف المرفق " تفقيط " تفقيط.rar

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

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

السلام عليكم ورحمة اله وبركاته يرجى توضيح طريقة إدراج معادلة للتفقيط في ملف وورد بحيث يتم وضع الرقم وعند تنفيذ الكود يتم التفقيط تلقائياً له والكود مرفق في الملف المرفق مع التحية تفقيط إكسيل إنكليزي.rar

السلام عليكم ورحمة الله وبركاته المطلوب التغيير في الكود بحيث ان لا يتم اظهار كلمة NO USD وايضا NO CENTS اذا كانت الخلية فارغة أو كان الرقم بدون سنتات أبو أنس تفقيط انجليزي.rar