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

السلام عليكم ورحمة الله وبركاته الشيت المرفق هو شكل شيت لبصمة يخرج من ماكينة البصمة الارقام الموجودة في FP هي اكواد الموظفين المشكلة هنا ان الموظف بيدخل مش بيفرق بين IN AND OUT بيبصم اي حاجة اي جانب ان ممكن يبصم اكتر من مرة في دقيقة او دقيقتين وممكن يخرج في وسط اليوم ويرجع تاني استئذان ارجع تفقيط البيات بحيث ان اعرف كل موظف دخل وخرج ازاي وهل كانت البصمة دخول او خروج شكرا جزيلا البصمة.xlsx

كشف حوالات2024.xlsm كشف طلبات صرف يومي.xlsx

السلام عليكم و رحمة الله و بركاته كيف حالكم جميعا ان شاءالله تكونوا بخير عندى ملف اكسيل فيه تجميعة للرواتب لكل فرد على حدا و المطلوب فيه تفقيط عدد العملات الورقية لكل راتب لتجميعها فى جدول منفصل مثال : عندى مثلا الرقم 6885 عايز احسب عدد كل عملة ورقية لوحدها كالتالى عدد الورقة النقدية 1000 = 6 عدد الورقة النقدية 500 = 1 عدد الورقة النقدية 200 = 1 عدد الورقة النقدية 100 = 1 عدد الورقة النقدية 50 = 1 عدد الورقة النقدية 20 = 1 عدد الورقة النقدية 10 = 1 عدد الورقة النقدية 5 = 1 و اذا كان الرقم 6995 يكون عدد الورقة النقدية فئة الـ 200 = 2 و فئة الـ 20 = 2 و هكذا أرجو ان تكون الفكرة واضحة و مرفق جدول بالمطلوب و حطيت فيه الاكواد على قدر استطاعتى و ارجوا منكم التعديل عليه و التصحيح لأن إجمالى قيمة الرواتب بيتم عمل شيك بها لصرفها من البنك على حسب عدد كل قيمة ورقية و جزاكم الله كل خير رواتب.xlsm

نعم دالة التتفقيط لكن بشرط عندما يكون العدد طبيعي نضيف كتابة وصفر سنتيم مثال تفقيط العدد 1254.00 يكون كما يلي ألف ومائتين وأربعة وخمسون دينار وصفر سنتيمأو صفر أي وحدة لأي عملة

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

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,,تفقيط مساحة زراعية تفقيط مساحة.xls

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

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

يمكنك اجراء عملية تحويل الأرقام إلى حروف باللغة العربية excel والتي تُسمى بـ التفقيط بكل بساطة وسهولة ، حيث ان التفقيط عبارة عن عملية متعارف عليها في عُرف التجارة وفي جميع أنحاء العالم فهي تقوم بتحويل الأرقام العادية 1،2،3 .. إلي كتابة وحروف باللغة العربية مثلاً واحد ، اثنين ، ثلاثمئة الف .. حيث ان هذه العملية أصبحت من اساسيات كتابة الفواتير والغرض منها هو تُثبيت او تأكيد على المبلغ لعدم السماح بالتلاعب بالرقم بأي شكل من الاشكال ، وبطبيعة الحال برنامج Microsoft excel يقوم بإجراء هذه العملية بأكثر من طريقة لذلك سنتعرف في هذا الدرس على اسهل طريقة تحويل الأرقام إلى حروف باللغة العربية في Excel . رابط الشرح >> اسهل طريقة تحويل الأرقام إلى حروف باللغة العربية excel

تفقيط الارقام بالعربي

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

تقييم الصف السادس.xls

الساده الكرام السلام عليكم ورحمه الله وبركاته ارجو مساعدتي في كود vba لتحويل الارقام الى نص بالعربي ( تفقيط ) في الاكسل . مع الشكر والتقدير

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

محتاج معادلة تفقيط في الخانة Cheque print.xlsm

السلام عليكم ورحمة الله وبركاته أحبابنا الكرام أنا صار لي أسبوع أبحث عن دالة تفقيط من أرقام لحروف للدينار الكويتي أو البحريني طبعا تقدر تغير الأسم داخل الكود والحمد لله تحصلت على معادلة عادية وكود ماكرو طبعا اللي يقدر يعدل الكود للغة العربية يبقى جزاه الله خير وديت أشارككم لأني تعبت لين ما لقيت الملف الوورد للكود والملف الاكسيل للمعادلة بالنسبة للمعادلة طبعا هتحتاج تعمل استبدال لرقم الخلية اللي المطلوب قراءة الأرقام منها Numbers to Words Kuwaiti Dinar Numbers To Words with 3 decimals لا تنسونا من صالح الدعاء انتبه من فضلك مشاركة مكررة .... تـــم بالفعل حذف المشاركة الأخرى SPELLNUMBER.docx Number to Word without Macro Code.xlsx

السلام عليكم ورحمة الله وبركاته حسب رؤية الاخ ياسر خليل أبو البراء ان كثرت الدوال المعرفة التي تقوم بعمليات التفقيط بأن نقوم بإنشاء دالة جديدة تجمع مزايا كل دوال التفقيط المختلفة ..كدالة الأخ هادي ولكن بمزيد من التفاصيل مع شرح لبارامترات الدالة .. وأن تكون الدالة جامعة لتفقيط اللغة العربية واللغة الإنجليزية وبها كل مميزات دوال التفقيط الأخرى بدلاً من التشتت فيما بين هذه الدوال فقد رأيت ان افضل سبيل لذلك وهو دمج دالة عربية قوية مع افضل دالة انجليزية وعلي اساس ذلك تم دمج دالتي تفقيط عربية وانجليزية معا لتصبح دالة واحدة تعمل باللغتين العربية والانجليزية الدالة العربية هي دالة الاستاذ / أبوهاني والدالة الانجليزية للمؤلف الانجليزي Andy Wiggins من منتدي Byg Software Limited وكانت النتيجة هي دالة تفقيط واحدة عربي انجليزي تعمل باللغة العربية او الانجليزية وارجو من الاخوه اللذين يجربون هذه الدالة تفضلا لا امرا ان يذكر نتيجة التجربة مع ذكر اصدار الويندوز ونسخة الاكسيل اللتين يعمل عليهما المرفقات تشمل 1- ملف اكسيل به الدالة مع الشرح المصور 2- موديل به الدالة لمن يريد استيرادها الي اي ملف 3- فلدر به صور طريقة اضافة الدالة الي ملف 4- فلدر به صور شرح استخدام الدالة المرفقات دالة تفقيط عربي انجليزي.rar نبد بشرح مصور ل طريقة اضافة الدالة الي اي ملف اكسيل والان مع شرح مصور ل بارميترات الدالة وطريقة الاستخدام مع تمنياتي بالتوفيق للجميع

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يحتوى هذا الملف على كودين أحدهما لتفقيط المبالغ والأخر لإستدعاء التفقيط أسفل نهاية الحدول مباشرة وكلاهما يعمل بشكل جيد فى حالة لو أن المبلغ المراد تفقيطه فى عمود واحد ولكن هذا المرفق يحتوى على عمودين أحدهما للقروش والأخر للجنيهات والسؤال بعد طلب الإذن من حضراتكم كيف يمكن تعديل هذه الأسطر من الكود ممنوع رفع الملف مضغوط طالما حجمه صغير ... تم تعديل رفع الملف بدون ضغط تجنباً لإهدار وقت الأساتذة Texte1 = Ar_WriteDownNumber(Int(Cells(LR, "Q"))) Texte2 = Ar_WriteDownNumber(100 * Cells(LR, "Q") Mod 100) وهذا السطر أيضا If 100 * Sh.Cells(LR, "Q") Mod 100 = 0 Then لنحصل على التفقيط من خلال الخليتين BF و BE برجاء الإطلاع على المرفق التالى والإفاده بحول الله تعالى **** تقبلوا وافر تقديرى وجزاكم الله خيرا التفقيط المعدل.xlsb.xlsm

ربما تفيدك هذه الموضوعات https://www.officena.net/ib/search/?q=تفقيط الدينار الكويتي &updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة 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 ================================================= رابط مباشر للملف

إضافة للموضوع تم إدراج الأرقام من 1 إلى 99 ويمكن التطوير حسب حاجة الأعضاء فقط حدد الأرقام واضغط تحويل تفقيط الأول.xlsm

بارك الله فيكم جميعا على الردود المفيدة. 1) هل يمكن الحصول على النص مباشرة بدون ان يظهر الرقم ؟ 2) هل يمكن ان تكون المعادلة عامة بحيث تعالج اي رقم ترتيبي ولا تتوقف عند العدد العشرين فقط ؟ تفقيط ارقام ترتيبية.xlsm

بسم الله الرحمن الرحيم الأخوة الكرام اعضاء المنتدى . مطلوب كود تفقيط درجات مثلا الطالب حاصل على 90 يكتب فى الخلية المطلوبة تسعون درجة مرفق ملف يوضح المطلوب وشكرا مطلوب كود.zip

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

السلام عليكم ورحمة الله وبركاته من فضلكم أرجو المساعدة بشكل عاجل لو تكرمتم الحمد لله ربنا رزقنى بشغل فى شركة كمبيوتر كبيرة فى قسم الحسابات ولكن عندى مشكله فى الإكسيل أنا بستلم مبالغ كبيره تصل لملايين واستخدم شيت اكسيل به معادله بسيطه جدا تقوم بجمع عدد الأوراق فى كل فئه وفى النهاية تعطينى المجموع الأجمالى يعنى مثلا فئة 200 جنيه وفئة 100 جنيه و50 و 20 و10 و5و 1و50 قرش لكن اوقات كتير بتلغبط فى قراءة المبلغ الأجمالى خاصة لو الرقم كبير وطبعا لو لا قدر الله حصل عجز أنا اللى بتحمل دفعه وخايف افقد شغلى لا قدر الله . دورت كتير ع النت لحد ما ربنا هدانى لفكرة تفقيط المبالغ كتابة باللغة العربيه لتسهيل قراءة الأرقام الكبيرة وبعد ما لقيت طريقة كويسه واشتغلت معايا فى البيت عن طريق كود فيجوال بيسك nototext . أخدت نسخة من ملف الأكسيل بعد حفظة بصيغة xltm ونسخة من الكود فى ملف txt بحيث انى استخدمها فى الشركة لكن وجدت ان الشركة عامله نظام حماية على السيرفرات والأجهزة ومش متفعل عندى خاصية تفعيل الماكرو فى الشركه . وحاولت حفظ الملف بصيغة xls عادية لقيت خانة التفقيط مش شغالة وجايبه كلمة #NAME? فأنا لو تكرمتم محتاج طريقة تخلينى احفظ ملف الأكسيل بتاع الشركة بنفس الخصائص بتاعتة زى ما هو بالإضافة الى خانة التفقيط اسفل المبلغ أو طريقة لأخذ دالة تفقيط وكيفية اضافتها على ملف الإكسيل الأصلى بتاع الشركة بدون ماكرو لإنى مش هقدر الغى الحماية بتاعة الشركة عشان اضيف ماكرو. مع الأخذ فى الأعتبار إنى حديث العهد فى استخدام الأكسيل ولا أعرف عنه اى شئ سوى ملئ الخانات بالأرقام . فلو سمحتم أرجو مساعدتى لو تكرمتم ولكم جزيل الشكر وجزاكم الله كل خير . مرفق صورة من شيت الإكسيل قبل التعديل وبعد ما ضفت له خانة التفقيط التى أصبحت لا تعمل على جهاز الشركة عنوان مخالف ... تم تعديل عنوان المشاركة ليتناسب مع طلبك