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

تحويل الارقام الى نص بعملة بلدك بضغط زر فى اى خلايا فى الاكسل
تحويل الأرقام الى نصوص في برنامج إكسل (التفقيط في برنامج الإكسيل)
دالة لتحويل الارقام الى نصوص في الاكسل
كيفية تحويل الأرقام إلى نصوص
دالة التفقيط تحويل الأرقام إلى نصوص - باللغة العربية في اكسيل
تحويل الارقام الى نصوص
دالة تحويل الارقام الى نصوص
التفقيط و مهارة تحويل الارقام الي نصوص بالعربية
شرح تحويل الارقام الى نصوص في الاكسل بالتفصيل
تحويل الارقام إلى نصوص باللغة العربية
ماكرو تحويل الأرقام الى نصوص بالعربية
تحميل برنامج تحويل الأرقام إلى نصوص باللغة العربية
Making an Excel Ribbon App | VBA
convert number to text arabic
#تفقيط
#تفقيط_الارقام_الى_نص
• دورة VBA EXCEL لمهندسي...
دور فيجول بيسك لمهندسين المكتب الفنى او التنفيذ
• 2- كود دمج عدة شيتات ا...
درس كود دمج عدة ملفات اكسل دفعة واحدة فى شيت اكسل واحد بضغط زر
للتواصل :-
Mobile : [phone]
Email : [e-mail]
/ @quantitiessurveying
رابط الاشتراك فى القناة
/ 1344832723089730
جروب الفيس بوك الخاص بالقناة

[@QuantitiesSurveying]

' كود التفقيط بعملة الريال السعودى المستخدم فى الفيديو Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "يتبقى لكم " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then Myno = Mid$(GetNo, I + 1, 3) Else Myno = "0" + Mid$(GetNo, I + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (I = 0) And (GetTxt "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (I = 3) And (GetTxt "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (I = 6) And (GetTxt "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (I = 9) And (GetTxt "") Then MyHun = GetTxt If (I = 12) And (GetTxt "") Then MyFraction = GetTxt End If I = I + 3 Loop If (Mybillion "") Then If (MyMillion "") Or (MyThou "") Or (MyHun "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion "") Then If (MyThou "") Or (MyHun "") Then MyMillion = MyMillion + MyAnd End If If (MyThou "") Then If (MyHun "") Then MyThou = MyThou + MyAnd End If If MyFraction "" Then If (Mybillion "") Or (MyMillion "") Or (MyThou "") Or (MyHun "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur Else NoToTxt = ReMark + MyFraction + " " + MySubCur End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur End If End Function Sub ConvertNumberToText() Dim NumberCell As Range Dim TextCell As Range Dim TheNumber As Double Dim ResultText As String ' اطلب من المستخدم تحديد الخلية التي تحتوي على الرقم On Error Resume Next Set NumberCell = Application.InputBox("حدد الخلية التي تحتوي على الرقم:", Type:=8) On Error GoTo 0 ' تحقق من أن التحديد صالح If NumberCell Is Nothing Then 'MsgBox "لم يتم تحديد أي خلية.", vbExclamation Exit Sub End If ' احصل على الرقم من الخلية المحددة TheNumber = NumberCell.Value ' حول الرقم إلى نص ResultText = NoToTxt(TheNumber, "ريال", "هللة") ' اطلب من المستخدم تحديد الخلية التي تريد كتابة النص فيها On Error Resume Next Set TextCell = Application.InputBox("حدد الخلية التي تريد كتابة النص فيها:", Type:=8) On Error GoTo 0 ' تحقق من أن التحديد صالح If TextCell Is Nothing Then 'MsgBox "لم يتم تحديد أي خلية.", vbExclamation Exit Sub End If ' اكتب النص في الخلية المحددة TextCell.Value = ResultText ' MsgBox "تم تحويل الرقم إلى نص.", vbInformation End Sub

[@mohamedeid1993]

تسلم يا هندسه ❤

[@asmaaorabi3041]

بالتوفيق دايما يا بشمهندس

[@aboumagyas2341]

ما هي رواتب المهندسين بالمملكه خبره 20سنه

[@waelmahmoud2810]

جزاكم الله خيرا لو سمحت يا هندسه لما بدخل الكود العربي بيبوط بيكون مكتوب زي كدا (ReMark = "ظٹطھط¨ظ‚ظ‰ ظ„ظƒظ… ") اي حلها

[@QuantitiesSurveying]

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