اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

Showing results for tags 'تفقيط'.



More search options

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
  • قسم تطبيقات و لغات مايكروسوفت
    • المنتدى المفتوح
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • دعم أنظمة الويندوز المختلفة
    • منتدي الوورد Word
    • Powerpoint دروس وشروحات الباوربوينت
    • Powerpoint أسئلة و استفسارات الباوربوينت
    • منتدى الاوتلوك Outlook
    • منتدى الفيزيو Visio
    • منتدي مايكروسوفت بروجكت Ms Project
    • منتدى الفرنت بيج العام Frontpage
    • انفو باث InfoPath
    • وان نوت One Note
    • الناشر بابليشر Publisher
    • Communicator
    • Expression Web
    • SQL Server
  • الغات و أدوات البرمجة الأخرى
    • حوارات الويب العامة
    • Delphi
    • PHP
    • برمجة الاندرويد
  • أقسام الإدارة و إدارة المشاريع و تطبيقاتها
    • إدارة المشاريع
    • إدارة الجودة
    • القيادة و تنمية المهارات
    • Primavera Enterprise
    • Primavera 3.1
  • البحث العلمي و علوم البيانات
    • مناهج البحث العلمي
    • علم الإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
    • Orange
    • R
    • SPSS
    • Python
  • القسم العام
    • نرحب بزوار الموقع

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • EFQM & DGEP
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • Officena
  • مدونة محمد طاهر
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • Shivan Rekany
  • رقائق فى دقائق

Find results in...

Find results that contain...


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


بلد الإقامة


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

تم العثور علي 18 نتائج

  1. السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة 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 ================================================= رابط مباشر للملف
  2. بسم الله الرحمن الرحيم تطرق الكثير من المبرمجين إلى موضوع التفقيط وهو تحويل الأرقام إلى كلمات عربية ولكني كمعلم لمادة اللغة العربية لم أجد من هذه الدوال ما يتوافق مع قواعد اللغة العربية قاعدة كتابة الأعداد العربية بطريقة مضبوطة وصحيحة وتجد في هذا الرابط شرح مبسط للعدد وتمييزه http://www.reefnet.g.../AdadMadoud.htm وبفضل الله قمت ببرمجة دالة تقوم بتحويل الرقم إلى كلمات عربية مضبوطة تماماً وموافقة لجميع قواعد كتابة العدد في اللغة العربية تجدها هنا https://a1mas.com/التفقيط-تحويل-الأرقام-لكلمات-عربية/ وإذا لاقى الموضوع قبولا وإعجابا فسوف أعرض عليكم الكود الخاص بهذه الدالة أخوكم محمد صالح مبرمج بأكثر من لغة برمجة ومصمم ومطور مواقع
  3. بسم الله الرحمن الرحيم كيف الحال أحبابي في الله إن شاء الله بخير وسعادة ورضا كل عام أنتم جميعا بخير نلتقي من جديد في شهر ميلاد سيد الخلق وهديتي لكم بمناسبة المولد النبوي الشريف هي ********** بناء على طلب الأخ الفاضل @عبدالرحمن وسلمى قمت بعمل دالة معرفة لجلب ناتج التفقيط الموجود في الموقع الشخصي لي https://a1mas.com/التفقيط-تحويل-الأرقام-لكلمات-عربية/ إلى ملف إكسل أو أكسس بشرط الاتصال بالانترنت ============== الجميل في الصفحة أنها تراعي بإذن الله كل قواعد صياغة العدد في اللغة العربية ولا تحتوي على أخطاء إملائية ولا نحوية وتمت برمجتها بلغة php لأني لم أجد من المرونة في لغة فيجوال بيسك للتطبيقات vba ما يسمح بنفس البرمجة المستخدمة في لغة الويب php لذا تم التحايل على الأمر بكود يقوم بطلب الصفحة الخاصة بالتفقيط وتمرير البيانات الخاصة بنا من صفحة الإكسل إلى الموقع ثم يسجل ما يعود به الموقع في الخلية ============ ويمكن الاستفادة من الكود في جلب بيانات أي صفحة من الانترنت عن طريقة vba والآن أترككم مع الملف التفقيط من الانترنت.rar
  4. السلام عليكم تحية طيبة للادارة والاعضاء المحترمون احتاج الى دالة تقوم بتحويل الارقام الى كتابة مثلاً 65 تكتب خمس وستون
  5. عبد الرحمن الحسين

    تفقيط

    في كود التفقيط يعرض التاريخ 1/2/2012 يعطي الواحد اثنان الفان واثنى عشر والمطلوب لازم يعطي اليوم الاول من شهر شباط لعام الفان واثنى عشر ميلادي
  6. بسم الله الرحمن الرحيم السلام عليكم ورحمه الله أحبتي الكرام رجاء هناك عدة مطالب 1- أعادة كتابة فترة زمنية معينة ولكن بدون العطلات 2- اعادة كتابة الاسماء بدون تكرار مع ذكر التاريخ 3- التفقيط إلي أيام وساعات وكل ده في مصنف واحد رجاء لا تردوا مصنفي صفر اليدين المصنف.rar
  7. بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام علي سيدنا محمد النبي الامين وعلي من سار بهديه الي يوم الدين اما.....بعد في موضوع لي سابق طرحت كود تفقيط لتحويل الأرقام من أرقام إلى كتابة لكن (إنجليزي) http://www.officena.net/ib/index.php?showtopic=45828&hl= اليوم سأطرح لكم كود تفقيط أو ملف جاهز لإضافته في الفيجول بيسك بكل سهوله وإستخدامه كداله كاي داله أساسيه في الإكسيل طريقة إضافة ملف التفقيط : حمل ملف التفقيط من المرفقات وافتح ملف الإكسيل وإظغط على Alt+F11 وبعدها ستفتح لك صفحة الفيجول بيسك إذهب إلى File وبعدها Import File وضع الملف وأغلق الفيجول بيسك في الإكسيل إذهب الداله المعرفة من قبل المستخدم وستجدها NoToTxt وتابع الإدخالات كما في الصور المرفقة المميز في هذا التفقيط , يمكنك إضافة أي عمله مثل ريال"هلله_جنيه"قرش_دينار"فلس ملف تفقيط + إكسل شيت.rar
  8. تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف ENGLISH_FUNCTION.rar و لا تنسونا من صالح الدعاء تحياتى
  9. نرجوا المساعدة في برنامج تفقيط للتقارير في برنامج اكسس اكس بي
  10. تسلية بسيطة للتفقيط باستخدام المعادلات ولكم مني جزيل الشكر تجربة تفقيط.rar
  11. السلام عليكم اخواني ارجو المساعدة ف لدي برنامج تفقيط الارقام الى اللغة العربية ارجو المساعدة في اضافة تفقيط باللغة الانكليزية مع وافر شكري وامتناني لهذا المنتدى الرائع الرقم الى نص.rar
  12. لما اجي اعمل التفقيط عشان يفقط بالعربي بينقل في الdeveloper لغه غريبه مش مفهومه ومش عارف اظبط لغه الكمبيوتر عليه . انا عندي windows 8 وال office 2010 ارجوا المساعده
  13. اولا اشكر المنتدى الرائع جداااااااااااااااااااااااااااااااااااا على الموضوعات الرائعة جداااااااااااااا ارجو ان تكون داله تفقيط الانجليزى على سبيل المثال . Only sixty-four thousand five hundred sixty-four Pound & 55/100 ارجو ان تشمل الداله الكسر على شكل 55/100 وان تبداء بكلمة Only ............................................................................................. ارجو ان تكون داله تفقيط العربى على سبيل المثال فقط ألفاً ومائتان وإثنا عشر جنيه مصري و 100/55 لاغير . ارجو ان تشمل الداله الكسر على شكل 55/100 وان تنتهى بكلمة لاغير شكر لكم ...............
  14. الاخوان الاعزاء الرجاء المساعدة بدالة تفقيط بالعربي لوحدة الدينار ولكم جزيل الشكر
  15. السلام عليكم إخوتي الكرام هذه أول مشاركة لي في المنتدى أرجو أن أجد ضالتي فيه إن شاء الله مشكلتي تتمثل في عملية التفقيط بحيث أن البرنامج الذي بحوزتي لا يقوم بهذه العملية مع المبالغ التي تفوق : 999999.99 دج الملف المرفق " تفقيط " تفقيط.rar
  16. العبد الفقير إلى الله تعالى

    التفقيط على طريقة القرش والجنيه

    بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء الافاضل السلام عليكم ورحمته الله وبركاته الملف المرفق لتفقيط صافى المبلغ على طريقة القرش والجنيه بخليتين منفصلتين فى أروع مشاركة بينى وبين القدير المتألق دائما أستاذى الفاضل أبو حنين بارك الله فيه وفى ذريته أرجو من الله العلى القدير أن يكون فيه النفع للجميع خالص احترامى وتقديرى وجزاكم الله خيرا التفقيط على طريقة القرش والجنيه - سعيد بيرم.rar
  17. السلام عليكم ورحمة الله وبركاته المطلوب التغيير في الكود بحيث ان لا يتم اظهار كلمة NO USD وايضا NO CENTS اذا كانت الخلية فارغة أو كان الرقم بدون سنتات أبو أنس تفقيط انجليزي.rar
  18. بسم الله الرحمن الرحيم وبه نستعين كل عام وجميع الاخوة الاعضاء والقائمين على الموقع بكل خير نرجو من سيادتكم الاطلاع على هذة الرائعة ملف تفقيط قام بتنفيذه الاستاذ الفاضل المهندس / حسام الدين ابوالعز على موقع الاستاذ الفاضل / يحيى حسين جزاهم الله عنا خيرالجزاء... نحيط علم سيادنكم ان هناك خطأ بالمعادلة ولكثرة المعادلات الموجوده بالملف فقد عجزت عن تصحيحها...والخطأ يكمن فى المائة ألف بمعنى لواردت تفقيط مبلغ على سبيل المثال 3707110.20 فقط ثلاثة ملايين وسبعمائة وسبعة ألف ومائة وعشرة جنيها وعشرون قرشا لاغير والتفقيط بالمعادلة فقط ثلاثة ملايين وسبعة ألاف ........... ومائة وعشرة جنيها وعشرون قرشا لاغير هنا تم تجاهل السبعمائة ألف لذا نرجو من الساده الاعضاء تصحيح مايتوجب تصحيحة وهذا رابط الموضوع الاصلى وجزاكم الله خير الجزاء http://excel4us.com/...hread.php?t=615
×