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

تفضل اخي تم استبدال الكود ليتناسب مع متطلباتك الحالية مع دمج الاكواد السابقة في نفس الملف Sub CopyData2() Dim x&, OneRng As Range, rCrit As String Dim srcWS As Worksheet, WS As Worksheet Dim i As Long, lrow As Long Set srcWS = Sheets("Data") Set WS = Sheets("FORM3"): rCrit = WS.[G2].Value 'قم بتعديل كود التفقيط بما يناسبك Const iCnt As String = "=IFERROR(@NombreToArabe(E9),"""")" If IsEmpty(WS.[G2].Value) Then: Exit Sub Set OneRng = srcWS.Columns(3).Find(What:=rCrit, LookIn:=xlValues, LookAt:=xlWhole) If OneRng Is Nothing Then MsgBox rCrit & " : " & "غير موجودة", vbInformation: Exit Sub Else Application.ScreenUpdating = False lrow = WS.Cells(WS.Rows.Count, "C").End(xlUp).Row For i = 11 To lrow Union(WS.Range("C" & i), WS.Range("E" & i)).ClearContents Next i x = OneRng.Row WS.[A9] = srcWS.Cells(x, 1) 'الرقم WS.[B9] = srcWS.Cells(x, 2) 'رقم صفحة WS.[C9] = srcWS.Cells(x, 3) 'نوع اللوازم و مواصفاتها WS.[D9] = srcWS.Cells(x, 4) 'رصيد السجل WS.[E9] = srcWS.Cells(x, 33) 'المجموع With WS.[F9] 'العدد كتابة .Formula = [iCnt]: .Value = .Value End With tmp = srcWS.Range("A4:AF" & srcWS.Cells(Rows.Count, 3).End(xlUp).Row).Value2 Dim a(): ReDim a(1 To UBound(tmp) * UBound(tmp, 2), 1 To 5) n = 0 For ligne = 1 To UBound(tmp, 1) For Col = 6 To UBound(tmp, 2) If tmp(ligne, 3) = rCrit And tmp(ligne, Col) <> "" Then n = n + 1 a(n, 2) = tmp(1, Col) 'رؤوس الاعمدة a(n, 4) = tmp(ligne, Col) ' رصيد الغرف المتوفرة End If Next Col Next ligne WS.Cells(k + 11, 2).Resize(n, 3 + 1) = a IRow = WS.Cells(Rows.Count, "E").End(xlUp).Row + 1 WS.[F11] = Application.Sum(WS.Range("E11:E" & IRow)) ' مجموع عمود الرصيد End If Application.ScreenUpdating = True End Sub لقد لاحظت انك لديك القدرة لفهم الاكواد من خلال التعديلات التي قمت بها على الاقتراحات السابقة . حاولت توضيح بعض النقط المهمة على الكود ليسهل عليك التعديل على حسب احتياجاتك مستقبلا. بالتوفيق ..... DATA V4.xlsb

عند محاولة كتابة الدالة arbnum2text فإنها لاتظهر في الاكسس يرجى المساعدة في طريقة اظهارها ولكم جزيل الشكر

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

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

طباعه الشيكات.rar

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

السلام عليكم هل يوجد كود للتفقيط في الاكسل لرقم يحوي ثلاثة مراتب عشرية مثال ٧٨،٣٤٥

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

اعتقد انك تبحث عن كتابة الارقام بالحروف (اى تفيط الارقام ) يوجد بالمنتدى العديد منها... ممكن تتابع الموضوعات التالية:- https://www.officena.net/ib/search/?q=التفقيط&quick=1

السلام عليكم ..اريد دالة التفقيط ولكن بدون كلمة فقط وبدون عملة ..تكون قراية للأرقام فقط وذلك لاستخدامها في شيت كنترول

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

تحية طيبة وبعد عندي مشكلة بمعادلة التفقيط حيث انها تعمل بشكل صحيح من جهازي ولكن من جهاز صديقي لاتعمل وتعطيني النتيجة المرفقة بالصورة ارجو التكرم بحل هذه المشكلة ولكم خالص التحية والتقدير

الزملاء الافاضل ممكن حد يفيدنى لما بكتب كود دالة التفقيط (Nototxt) اى كلام عربى فى الكود بيكون فيه مشكلة وبيظهر بالشكل ده

الزملاء الافاضل ممكن حد يفيدنى لما بكتب كود دالة التفقيط (Nototxt) اى كلام عربى فى الكود بيكون فيه مشكلة وبيظهر بالشكل ده

السلام عليكم الإخوة الكرام الرجاء المساعدة من خلال التعديل على كود التفقيط / او من خلال الكريقة التي ترونها مناسبة في حال كانت النتيجة سالبة كما هو مبين في الجدول المرفق يراد تشرين الثاني 2021.xlsx

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

السلام عليكم ورحمة الله وبركاته اتمنى الحصول على كود التفقيط باللغة العربية وبالريال السعودي اكسيل 2010 ويكون جاهز للاستخدام وجزاكم الله الف خير

السلام عليكم ورحمة الله اخوانى الاعزاء . . . بفتح قاعدة البيانات على جهاز آخر . .. تعمل اللغة العربية تمام وظهرت الحروف فى التفقيط باللغة العربية فى الاستعلام قد تكون المشكلة فى نسخة الاوفيس اعتقد ان المشكلة بنسبة كبيرة فى هذه

السلام عليكم ورحمة الله وبركاته أخي الكريم @أستيكا جواباً لسؤالكم الكريم وبعد الاطلاع على الملف المرفق تبين لي أنك قد نسخت أكواد التفقيط عدة مرات في عدد من الموديولات ولذلك فإنني أتوقع أن الخطأ نجم عن ذلك التكرار وعدم اعتمادك على كود معين دون غيره في تحقيق ما تريد، يرجى حذف الموديولات التي تم تكرار كود التفقيط واعتماد ما يلبي حاجتك منها... علماً أنني قد قمت بتجربة أحدها وهو يعمل بشكل جيد. تقبل تحياتي العطرة والسلام عليكم

هذا هو المثال الموجود سابقا وتلك هى ما يظهر فى الفورم بعد التفقيط وهى نفس المشكلة الموجودة عندى على الرغم انى جربت هذا المثال على جهاز آخر وكان يعمل جيدا بدون أى مشاكل فى الفورم وكود تلفقيط يعمل تفقيط الارقام فى الاكسس.accdb

السلام عليكم الإخوة الكرام لو تفضلتم ممكن الافادة في حل سريع لمشكلة ظهور الارقام في ملف تحويل أرقام الى حروف كما بالشكل المرفق لو بإعدادات الاوفيس أو الإكسيل ؟ يرجى الافادة ضروري

السلام عليكم ورحمه الله وبركاته الساده اعضاء منتدى اوفيسنا 1- برجاء مطلوب داله لتفقيط الارقام وليس للمبالغ الماليه بحيث يكون مثلا رقم ( 12 شهر ) مقابل له فى خانه اخرى " اثنى عشر شهرا " وهكذا مع اى عدد اخر 2- لو عندى خانه بها تاريخ ميلادى مثل ( 2023/2/14 ) اريد ان اخذ من هذا التاريخ السابق ( رقم الشهر فقط " 2 " ) على ان يكون بنظام التفقيط ليكون " فبراير " ولو رقم الشهر " 4 " يكون التفقيط له " ابريل " وهكذا وفى خانه اخرى يكون ( رقم السنة " 2023 ) وهنا لا اريده بنظام التفقيط احتاجه كما هو بنظام الرقم مثلا الخانة الاولى التاريخ كما هو ( 2023/2/14 ) الخانه الثانية ( فبراير ) الخانة الثالثه ( 2023 )

السادة الزملاء الرجاء المساعدة حيث تم الاستعانة بالكود البرمجى فى الموضوع أدناه , ولكن لا تظهر نتائج وتظهر لغة غريبة غير مفهمومه

السلام عليكم ورحمة الله وبركاتة احبتي في الله يوجد لديه مشكله بعد الطباعة اجد التفقيط متكرر في الفاتورة شاكر جداً لمن حاول ان يساعدني الملف التفقيط.xlsm صورة للمشكله

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