Mohammed Al-Molegi
Mohammed Al-Molegi
  • 15
  • 45 728

วีดีโอ

كيفية تحويل الأرقام إلى كلمات ببرنامج الأكسل - Excel (تفقيط الأرقام)
มุมมอง 13Kปีที่แล้ว
www.excelawy.com/2017/09/convert-number-to-text-excel.html
كيفية تصميم لوحة بيانات تفاعلية (Dashboard) ببرنامج الاكسل - Excel
มุมมอง 18Kปีที่แล้ว
كيفية تصميم لوحة بيانات تفاعلية (Dashboard) ببرنامج الاكسل - Excel
كيفية تحريك الصفوف والأعمدة بالجداول في برنامج أكسل و ورد - Excel and Word
มุมมอง 8Kปีที่แล้ว
كيفية تحريك الصفوف والأعمدة بالجداول في برنامج أكسل و ورد - Excel and Word
حل مشكلة إيجاد الفرق بين تاريخين في برنامج أكسل - Excel
มุมมอง 6Kปีที่แล้ว
حل مشكلة إيجاد الفرق بين تاريخين في برنامج أكسل - Excel
9- تصميم وبرمجة شاشة طباعة التقارير بالفيجوال بيسك المثال الثاني Print Form, VB net Example 2
มุมมอง 414ปีที่แล้ว
9- تصميم وبرمجة شاشة طباعة التقارير بالفيجوال بيسك المثال الثاني Print Form, VB net Example 2
8- تصميم وبرمجة شاشة طباعة التقارير بالفيجوال بيسك المثال الأول Print Form, VB net Example 1
มุมมอง 492ปีที่แล้ว
8- تصميم وبرمجة شاشة طباعة التقارير بالفيجوال بيسك المثال الأول Print Form, VB net Example 1
7- تصميم وبرمجة شاشة الحذف بالفيجوال بيسك Delete Form, VB net
มุมมอง 42ปีที่แล้ว
7- تصميم وبرمجة شاشة الحذف بالفيجوال بيسك Delete Form, VB net
6- تصميم وبرمجة شاشة تعديل البيانات بالفيجوال بيسكUpdate records Form, VB net
มุมมอง 121ปีที่แล้ว
6- تصميم وبرمجة شاشة تعديل البيانات بالفيجوال بيسكUpdate records Form, VB net
5- تصميم وبرمجة شاشة إضافة سجلات جديدة لقاعدة البيانات بالفيجوال بيسك Add New Form, VB net
มุมมอง 77ปีที่แล้ว
5- تصميم وبرمجة شاشة إضافة سجلات جديدة لقاعدة البيانات بالفيجوال بيسك Add New Form, VB net
4- تصميم وبرمجة شاشة بحث رائعة بالفيجوال بيسك الجزء الثانيSearch Form, VB net Part 2
มุมมอง 50ปีที่แล้ว
4- تصميم وبرمجة شاشة بحث رائعة بالفيجوال بيسك الجزء الثانيSearch Form, VB net Part 2
3- تصميم وبرمجة شاشة بحث رائعة بالفيجوال بيسك الجزء الأول Search Form, VB net Part 1
มุมมอง 56ปีที่แล้ว
3- تصميم وبرمجة شاشة بحث رائعة بالفيجوال بيسك الجزء الأول Search Form, VB net Part 1
2- تصميم وبرمجة شاشة الدخول بالفيجوال بيسك الجزء الثانيlogin Form, VB net Part 2
มุมมอง 662 ปีที่แล้ว
تصميم وبرمجة شاشة الدخول بالفيجول بيسك الجزء الثاني Login design and programming, VB.Net, ADO.Net, Part 2
1- تصميم وبرمجة شاشة الدخول بالفيجوال بيسك الجزء الأول login Form, VB net Part 1
มุมมอง 1552 ปีที่แล้ว
تصميم وبرمجة شاشة الدخول بالفيجوال بيسك الجزء الأول Login Design and Programming, VB.Net, ADO.Net, Part 1

ความคิดเห็น

  • @amraref9116
    @amraref9116 8 วันที่ผ่านมา

    ممكن ملف العمل

  • @SafwanRustom
    @SafwanRustom 28 วันที่ผ่านมา

    مميز 🎉

  • @hamoalkano610
    @hamoalkano610 หลายเดือนก่อน

    مرحبا اخي ممكن تتواصل معي

  • @Ra-dd6tm
    @Ra-dd6tm หลายเดือนก่อน

    ممكن تنزل لنا رابط الداتا الي تشتغل عليها نطبق معك

  • @dr.ibrahimelaskary7268
    @dr.ibrahimelaskary7268 หลายเดือนก่อน

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

  • @saeedelnaiemelkhaleefa3080
    @saeedelnaiemelkhaleefa3080 หลายเดือนก่อน

    can i gain interactive dashboard for bids of conrctat supply services

  • @Asyutproject
    @Asyutproject หลายเดือนก่อน

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

  • @fethimaskri3858
    @fethimaskri3858 หลายเดือนก่อน

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

    • @mohammed-almolegi
      @mohammed-almolegi หลายเดือนก่อน

      2016، بس النسخ الخصائص موجودة حتى في النسخ اللي قبل 2016.

  • @ابوعبدالرحمنالرفاعي-ه7ج
    @ابوعبدالرحمنالرفاعي-ه7ج หลายเดือนก่อน

    أحسن الله إليك

  • @alkhayyat2
    @alkhayyat2 หลายเดือนก่อน

    جزاك الله خير و بارك الله فيك و في علمك

  • @abdgny6695
    @abdgny6695 หลายเดือนก่อน

    رابط التحميل ؟

  • @محمدالعولقي-م9ث
    @محمدالعولقي-م9ث 2 หลายเดือนก่อน

    مبدع بصراحه اختصرت لنا موضوعين provit tables and dashboard شرحتها بكل فن وفهمناها سريع تحياتي لك، الله يوفقك.

  • @waddahemam5110
    @waddahemam5110 2 หลายเดือนก่อน

    عدت الفديو أكثر من مرة لكي اعرف كيف رتبت البيانات بس ماوضحت

  • @khaledabdelhakem9335
    @khaledabdelhakem9335 2 หลายเดือนก่อน

    انت انسان محترم الله يبارك لك

  • @abdullhadi999
    @abdullhadi999 2 หลายเดือนก่อน

    الله يسعدك. شرح وافي وكافي للموضوع بدون فلسفة ومطمطة كلام. تحياتي لك ولااهل اليمن الكرام

  • @ميثاقالنسري
    @ميثاقالنسري 2 หลายเดือนก่อน

    لو تكرمت نبقى تفقيط في لابتوب باللغه العربيه

  • @هيفاءالشمري-ث5س
    @هيفاءالشمري-ث5س 2 หลายเดือนก่อน

    ممكن الجدول اللي اشتغلت ؟

  • @عبدالرحمنالفقيه-ع8ث
    @عبدالرحمنالفقيه-ع8ث 3 หลายเดือนก่อน

    الف شكر ع هذا الشرح الرائع. سؤال لوسمحت ، هل ممكن اعمل قوائم من ٣و ٤ وبنفس طريقة الذي طبقتها انت. وشكرا

  • @ahmedgamal880
    @ahmedgamal880 3 หลายเดือนก่อน

    لو سمحت ممكن ملف الاكسل عشان نطبق علي الشرح

  • @aliabaas4593
    @aliabaas4593 3 หลายเดือนก่อน

    الحساب الاول هو الصح... من اليسار الى اليمن.. اليوم .. الشهر .. السنة.. انت قلبتها وشقلبتها واتهمت البرنامج تهمه باطلة

  • @aliabaas4593
    @aliabaas4593 3 หลายเดือนก่อน

    لسه فيه خطا عند حضرتك..

  • @abdoelhagar3170
    @abdoelhagar3170 3 หลายเดือนก่อน

    ربنا يجزيك الخير يا رب العالمين - شرح مبسط وجميل جدا

  • @mohummedseifalden9415
    @mohummedseifalden9415 4 หลายเดือนก่อน

    ما شاء الله جزاك الله خيرا هل من الممكن وضع هذا الداش بورد اونلاين يعني اعطي رابط لاشخاص محددين يمكنهم الاطلاع عليه

  • @abdalkreamalsheki1444
    @abdalkreamalsheki1444 4 หลายเดือนก่อน

    ممكن طريقة الاتصال بقاعدة بيانات

  • @mymoonotaibi
    @mymoonotaibi 4 หลายเดือนก่อน

    ما شاء الله ممتاز

  • @kotpelmoghany7282
    @kotpelmoghany7282 5 หลายเดือนก่อน

    بعد اذنك عاوزين شيت الاكسيل عشان نطبق عليه بعد اذن حضرتك نزله ف وصف الفيديو او ف كومنت

  • @MohamedGomaa-uc6hw
    @MohamedGomaa-uc6hw 5 หลายเดือนก่อน

    ما شاء الله عظيم ربنا يباركلك 👏🏻👏🏻❤️

  • @user-xi6jp7rn8m
    @user-xi6jp7rn8m 5 หลายเดือนก่อน

    شرح كويس ومبسط مع تنسيق شيك شكرا ربنا يزيد من علمه وفضله ويجعله علم ينتفع به ❤❤

  • @mohammedalabed8853
    @mohammedalabed8853 6 หลายเดือนก่อน

    الكود

    • @mohammed-almolegi
      @mohammed-almolegi 6 หลายเดือนก่อน

      Function NumberToText(Number As Double, MainCurrency As String, SubCurrency As String) Dim Array1(0 To 9) As String Dim Array2(0 To 9) As String Dim Array3(0 To 9) As String Dim MyNumber As String Dim GetNumber As String Dim ReadNumber As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetText As String Dim Billion As String Dim Million As String Dim Thousand As String Dim Hundred As String Dim Fraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If Number > 999999999999.99 Then Exit Function If Number < 0 Then Number = Number * -1 ReMark = "سالب " End If If Number = 0 Then NumberToText = "صفر" Exit Function End If MyAnd = " و" Array1(0) = "" Array1(1) = "مائة" Array1(2) = "مائتان" Array1(3) = "ثلاثمائة" Array1(4) = "أربعمائة" Array1(5) = "خمسمائة" Array1(6) = "ستمائة" Array1(7) = "سبعمائة" Array1(8) = "ثمانمائة" Array1(9) = "تسعمائة" Array2(0) = "" Array2(1) = " عشر" Array2(2) = "عشرون" Array2(3) = "ثلاثون" Array2(4) = "أربعون" Array2(5) = "خمسون" Array2(6) = "ستون" Array2(7) = "سبعون" Array2(8) = "ثمانون" Array2(9) = "تسعون" Array3(0) = "" Array3(1) = "واحد" Array3(2) = "اثنان" Array3(3) = "ثلاثة" Array3(4) = "أربعة" Array3(5) = "خمسة" Array3(6) = "ستة" Array3(7) = "سبعة" Array3(8) = "ثمانية" Array3(9) = "تسعة" GetNumber = Format(Number, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then MyNumber = Mid$(GetNumber, I + 1, 3) Else MyNumber = "0" + Mid$(GetNumber, I + 2, 2) End If If (Mid$(MyNumber, 1, 3)) > 0 Then ReadNumber = Mid$(MyNumber, 1, 1) My100 = Array1(ReadNumber) ReadNumber = Mid$(MyNumber, 3, 1) My1 = Array3(ReadNumber) ReadNumber = Mid$(MyNumber, 2, 1) My10 = Array2(ReadNumber) If Mid$(MyNumber, 2, 2) = 11 Then My11 = "إحدى عشرة" If Mid$(MyNumber, 2, 2) = 12 Then My12 = "إثنى عشرة" If Mid$(MyNumber, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNumber, 1, 1)) > 0) And ((Mid$(MyNumber, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNumber, 3, 1)) > 0) And ((Mid$(MyNumber, 2, 1)) > 1) Then My1 = My1 + MyAnd GetText = My100 + My1 + My10 If ((Mid$(MyNumber, 3, 1)) = 1) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My11 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My11 End If If ((Mid$(MyNumber, 3, 1)) = 2) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My12 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My12 End If If (I = 0) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Billion = GetText + " مليار" Else Billion = GetText + " مليارات" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليار" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليارن" End If End If If (I = 3) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Million = GetText + " مليون" Else Million = GetText + " ملايين" If ((Mid$(MyNumber, 1, 3)) = 1) Then Million = " مليون" If ((Mid$(MyNumber, 1, 3)) = 2) Then Million = " مليونان" End If End If If (I = 6) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Thousand = GetText + " ألف" Else Thousand = GetText + " ألاف" If ((Mid$(MyNumber, 3, 1)) = 1) Then Thousand = " ألف" If ((Mid$(MyNumber, 3, 1)) = 2) Then Thousand = " ألفان" End If End If If (I = 9) And (GetText <> "") Then Hundred = GetText If (I = 12) And (GetText <> "") Then Fraction = GetText End If I = I + 3 Loop If (Billion <> "") Then If (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then Billion = Billion + MyAnd End If If (Million <> "") Then If (Thousand <> "") Or (Hundred <> "") Then Million = Million + MyAnd End If If (Thousand <> "") Then If (Hundred <> "") Then Thousand = Thousand + MyAnd End If If Fraction <> "" Then If (Billion <> "") Or (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency + MyAnd + Fraction + " " + SubCurrency Else NumberToText = ReMark + Fraction + " " + SubCurrency End If Else NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency End If End Function

    • @m.ramthaalzoubi6212
      @m.ramthaalzoubi6212 2 หลายเดือนก่อน

      الكود ؟

  • @احمدوعدعبوحسين
    @احمدوعدعبوحسين 6 หลายเดือนก่อน

    الكود لو سمحت

  • @عبدالرحمنالسامرائي-س6ن
    @عبدالرحمنالسامرائي-س6ن 7 หลายเดือนก่อน

    بارك الله فيكم وفي جهودكم نسأل الله العظيم ان يجعلها في ميزان حسناتكم يوم القيامة

  • @abasaliabid2059
    @abasaliabid2059 7 หลายเดือนก่อน

  • @bouvardia6791
    @bouvardia6791 7 หลายเดือนก่อน

    ممتاز ويستحق التجربة . كنت افكر اعمل زيها بالpower bi لكن حالياً مش عارف ايش الفرق بينه وبين الاكسل في خاصية البوردات التفاعلية

  • @CJ00011
    @CJ00011 7 หลายเดือนก่อน

    طيب حول البرنامج بالعربي دام شرحك للعرب

  • @maysoonalmahmood4743
    @maysoonalmahmood4743 7 หลายเดือนก่อน

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

  • @mnmhm6319
    @mnmhm6319 8 หลายเดือนก่อน

    ياريت لو ترسل ملف الاكسل الخاص بالعمل بالوصف

  • @أطيافمحمد-ق7ق
    @أطيافمحمد-ق7ق 8 หลายเดือนก่อน

    لو مثل اشتي لا درجة

  • @ghizlanedghizlane2312
    @ghizlanedghizlane2312 8 หลายเดือนก่อน

    تحية لك على المجهود

  • @Nadia-vx2wk
    @Nadia-vx2wk 9 หลายเดือนก่อน

    شكرا جزيلا دكتور

  • @Jnooo20
    @Jnooo20 9 หลายเดือนก่อน

    يطلع استفهامات ليه ؟

    • @mohammed-almolegi
      @mohammed-almolegi 9 หลายเดือนก่อน

      انسخ الكود لملف ورد (Word) أولا ثم انسخه مرة ثانية من ملف الورد إلى ملف الأكسل وبيزبط معاك

    • @Mohasindi
      @Mohasindi 6 หลายเดือนก่อน

      ما يزبط

    • @Mohasindi
      @Mohasindi 6 หลายเดือนก่อน

      يطلع استفهامات او كلام يوناني

    • @asaadali3705
      @asaadali3705 6 หลายเดือนก่อน

      أواجه نفس المشكله ​@@Mohasindi

    • @malakmo5015
      @malakmo5015 5 หลายเดือนก่อน

      @@Mohasindi انسخ الكلام كله في ملف ورد جديد وقبل ما تعمله لصق عالاكسيل اتاكد ان الكلام العربي منسوخ صح يعني هتاخده نسخ الاول من ملف التكست وبعدين تعمله لصق لملف ورد وبعدين تاخده تاني نسخ من ملف الورد وبعدين تعمله لصف عالاكسيل

  • @nourdininouri1916
    @nourdininouri1916 10 หลายเดือนก่อน

    ممتاز شكرآ كيف اتواصل مع حضرتك

  • @mansooramer6349
    @mansooramer6349 ปีที่แล้ว

    تعرف تعمل صفحةمح ك بحث

  • @mansooramer6349
    @mansooramer6349 ปีที่แล้ว

    طيب حط ملف العمل عشان نطبق

  • @ضياءمجمل-غ5ن
    @ضياءمجمل-غ5ن ปีที่แล้ว

    حفظك الله ورعاك ممكن الداله

    • @mohammed-almolegi
      @mohammed-almolegi ปีที่แล้ว

      Function NumberToText(Number As Double, MainCurrency As String, SubCurrency As String) Dim Array1(0 To 9) As String Dim Array2(0 To 9) As String Dim Array3(0 To 9) As String Dim MyNumber As String Dim GetNumber As String Dim ReadNumber As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetText As String Dim Billion As String Dim Million As String Dim Thousand As String Dim Hundred As String Dim Fraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If Number > 999999999999.99 Then Exit Function If Number < 0 Then Number = Number * -1 ReMark = "سالب " End If If Number = 0 Then NumberToText = "صفر" Exit Function End If MyAnd = " و" Array1(0) = "" Array1(1) = "مائة" Array1(2) = "مائتان" Array1(3) = "ثلاثمائة" Array1(4) = "أربعمائة" Array1(5) = "خمسمائة" Array1(6) = "ستمائة" Array1(7) = "سبعمائة" Array1(8) = "ثمانمائة" Array1(9) = "تسعمائة" Array2(0) = "" Array2(1) = " عشر" Array2(2) = "عشرون" Array2(3) = "ثلاثون" Array2(4) = "أربعون" Array2(5) = "خمسون" Array2(6) = "ستون" Array2(7) = "سبعون" Array2(8) = "ثمانون" Array2(9) = "تسعون" Array3(0) = "" Array3(1) = "واحد" Array3(2) = "اثنان" Array3(3) = "ثلاثة" Array3(4) = "أربعة" Array3(5) = "خمسة" Array3(6) = "ستة" Array3(7) = "سبعة" Array3(8) = "ثمانية" Array3(9) = "تسعة" GetNumber = Format(Number, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then MyNumber = Mid$(GetNumber, I + 1, 3) Else MyNumber = "0" + Mid$(GetNumber, I + 2, 2) End If If (Mid$(MyNumber, 1, 3)) > 0 Then ReadNumber = Mid$(MyNumber, 1, 1) My100 = Array1(ReadNumber) ReadNumber = Mid$(MyNumber, 3, 1) My1 = Array3(ReadNumber) ReadNumber = Mid$(MyNumber, 2, 1) My10 = Array2(ReadNumber) If Mid$(MyNumber, 2, 2) = 11 Then My11 = "إحدى عشرة" If Mid$(MyNumber, 2, 2) = 12 Then My12 = "إثنى عشرة" If Mid$(MyNumber, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNumber, 1, 1)) > 0) And ((Mid$(MyNumber, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNumber, 3, 1)) > 0) And ((Mid$(MyNumber, 2, 1)) > 1) Then My1 = My1 + MyAnd GetText = My100 + My1 + My10 If ((Mid$(MyNumber, 3, 1)) = 1) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My11 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My11 End If If ((Mid$(MyNumber, 3, 1)) = 2) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My12 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My12 End If If (I = 0) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Billion = GetText + " مليار" Else Billion = GetText + " مليارات" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليار" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليارن" End If End If If (I = 3) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Million = GetText + " مليون" Else Million = GetText + " ملايين" If ((Mid$(MyNumber, 1, 3)) = 1) Then Million = " مليون" If ((Mid$(MyNumber, 1, 3)) = 2) Then Million = " مليونان" End If End If If (I = 6) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Thousand = GetText + " ألف" Else Thousand = GetText + " ألاف" If ((Mid$(MyNumber, 3, 1)) = 1) Then Thousand = " ألف" If ((Mid$(MyNumber, 3, 1)) = 2) Then Thousand = " ألفان" End If End If If (I = 9) And (GetText <> "") Then Hundred = GetText If (I = 12) And (GetText <> "") Then Fraction = GetText End If I = I + 3 Loop If (Billion <> "") Then If (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then Billion = Billion + MyAnd End If If (Million <> "") Then If (Thousand <> "") Or (Hundred <> "") Then Million = Million + MyAnd End If If (Thousand <> "") Then If (Hundred <> "") Then Thousand = Thousand + MyAnd End If If Fraction <> "" Then If (Billion <> "") Or (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency + MyAnd + Fraction + " " + SubCurrency Else NumberToText = ReMark + Fraction + " " + SubCurrency End If Else NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency End If End Function

  • @nasserhameed9573
    @nasserhameed9573 ปีที่แล้ว

    ما قبل معي ، اول ما اعمل المعادلة بعد نسخ الكود ما يقبل يرجعنا الى الماكرو الكود ويكون المؤشر اخر الكود

  • @hamzasherif1735
    @hamzasherif1735 ปีที่แล้ว

    اللي بيسال عن الكود موجود في اللينك في صندوق الوصف , بعد ما تعمل نسخ ولصق لصفحة المديول عدل علامات الاستفهام للكلمات الموجودة باللغة العربية بين علامات التنصيص علشان الكود يشتغل

    • @malakmo5015
      @malakmo5015 5 หลายเดือนก่อน

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

  • @hamzasherif1735
    @hamzasherif1735 ปีที่แล้ว

    اول مرة احمل كود ويشتغل معايا بجد فعلا متشكر جدا جدا جعلة الله في ميزان حسناتك

    • @hassan_Aa
      @hassan_Aa 18 วันที่ผ่านมา

      السلام عليكم فين الكود لو سمحت ارسل به لي

  • @ahmedbadr388
    @ahmedbadr388 ปีที่แล้ว

    الله يجازيك خير يارب - اسهل طريقة - شكرا🙏

  • @MazenYasin-og8ko
    @MazenYasin-og8ko ปีที่แล้ว

    عظيم جدآ

  • @hamidoudjanahocine1972
    @hamidoudjanahocine1972 ปีที่แล้ว

    الكود من فضلك

    • @mohammed-almolegi
      @mohammed-almolegi ปีที่แล้ว

      Function NumberToText(Number As Double, MainCurrency As String, SubCurrency As String) Dim Array1(0 To 9) As String Dim Array2(0 To 9) As String Dim Array3(0 To 9) As String Dim MyNumber As String Dim GetNumber As String Dim ReadNumber As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetText As String Dim Billion As String Dim Million As String Dim Thousand As String Dim Hundred As String Dim Fraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If Number > 999999999999.99 Then Exit Function If Number < 0 Then Number = Number * -1 ReMark = "سالب " End If If Number = 0 Then NumberToText = "صفر" Exit Function End If MyAnd = " و" Array1(0) = "" Array1(1) = "مائة" Array1(2) = "مائتان" Array1(3) = "ثلاثمائة" Array1(4) = "أربعمائة" Array1(5) = "خمسمائة" Array1(6) = "ستمائة" Array1(7) = "سبعمائة" Array1(8) = "ثمانمائة" Array1(9) = "تسعمائة" Array2(0) = "" Array2(1) = " عشر" Array2(2) = "عشرون" Array2(3) = "ثلاثون" Array2(4) = "أربعون" Array2(5) = "خمسون" Array2(6) = "ستون" Array2(7) = "سبعون" Array2(8) = "ثمانون" Array2(9) = "تسعون" Array3(0) = "" Array3(1) = "واحد" Array3(2) = "اثنان" Array3(3) = "ثلاثة" Array3(4) = "أربعة" Array3(5) = "خمسة" Array3(6) = "ستة" Array3(7) = "سبعة" Array3(8) = "ثمانية" Array3(9) = "تسعة" GetNumber = Format(Number, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then MyNumber = Mid$(GetNumber, I + 1, 3) Else MyNumber = "0" + Mid$(GetNumber, I + 2, 2) End If If (Mid$(MyNumber, 1, 3)) > 0 Then ReadNumber = Mid$(MyNumber, 1, 1) My100 = Array1(ReadNumber) ReadNumber = Mid$(MyNumber, 3, 1) My1 = Array3(ReadNumber) ReadNumber = Mid$(MyNumber, 2, 1) My10 = Array2(ReadNumber) If Mid$(MyNumber, 2, 2) = 11 Then My11 = "إحدى عشرة" If Mid$(MyNumber, 2, 2) = 12 Then My12 = "إثنى عشرة" If Mid$(MyNumber, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNumber, 1, 1)) > 0) And ((Mid$(MyNumber, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNumber, 3, 1)) > 0) And ((Mid$(MyNumber, 2, 1)) > 1) Then My1 = My1 + MyAnd GetText = My100 + My1 + My10 If ((Mid$(MyNumber, 3, 1)) = 1) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My11 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My11 End If If ((Mid$(MyNumber, 3, 1)) = 2) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My12 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My12 End If If (I = 0) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Billion = GetText + " مليار" Else Billion = GetText + " مليارات" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليار" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليارن" End If End If If (I = 3) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Million = GetText + " مليون" Else Million = GetText + " ملايين" If ((Mid$(MyNumber, 1, 3)) = 1) Then Million = " مليون" If ((Mid$(MyNumber, 1, 3)) = 2) Then Million = " مليونان" End If End If If (I = 6) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Thousand = GetText + " ألف" Else Thousand = GetText + " ألاف" If ((Mid$(MyNumber, 3, 1)) = 1) Then Thousand = " ألف" If ((Mid$(MyNumber, 3, 1)) = 2) Then Thousand = " ألفان" End If End If If (I = 9) And (GetText <> "") Then Hundred = GetText If (I = 12) And (GetText <> "") Then Fraction = GetText End If I = I + 3 Loop If (Billion <> "") Then If (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then Billion = Billion + MyAnd End If If (Million <> "") Then If (Thousand <> "") Or (Hundred <> "") Then Million = Million + MyAnd End If If (Thousand <> "") Then If (Hundred <> "") Then Thousand = Thousand + MyAnd End If If Fraction <> "" Then If (Billion <> "") Or (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency + MyAnd + Fraction + " " + SubCurrency Else NumberToText = ReMark + Fraction + " " + SubCurrency End If Else NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency End If End Function

    • @hamidoudjanahocine1972
      @hamidoudjanahocine1972 ปีที่แล้ว

      شكرا

    • @westernnoman1830
      @westernnoman1830 3 หลายเดือนก่อน

      @@mohammed-almolegi