تفقيط الارقام باللغة الانجليزية والعربية – الطريقة الاسرع

شارك

تفقيط الارقام باللغة الانجليزية والعربية

كتابة الارقام بالعربية, كتابة الارقام باللغة العربية, كتابة الأرقام باللغة العربية, تحويل الارقام الى حروف باللغة الانجليزية, كتابة, ترجمة الارقام, مائه وخمسه واربعون الفا ومئتان وسبعه وثلاثون, كتابة الارقام بالحروف العربية, طريقة كتابة الارقام بالحروف, أرقام بالعربي, قراءة رقم, الرقم كتابة, تحويل الارقام الى عربي, تفقيط الارقام باللغة الانجليزية, أرقام عربية, كتابة الأعداد,
كتابة الارقام بالعربية, كتابة الارقام باللغة العربية, كتابة الأرقام باللغة العربية, تحويل الارقام الى حروف باللغة الانجليزية, كتابة, ترجمة الارقام
تفقيط الأعداد هي عملية تحويل الأعداد المكتوبة رقماً إلى اعداد مكتوبة نصاً بالكلمات والحروف في اللغة العربية أو أي لغة اخرى، غالبًا ما يتم استخدام التفقيط في المعاملات المالية لتفسير الأرقام بالحروف لمنع التزوير.

ما هي أداة تفقيط الارقام ؟

أداة بسيطة لترجمة الارقام  وتحويل أي رقم من 0 لغاية 99 تريليونًا إلى حروف باللغة الانجليزية والعربية ولغات اخرى

تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel

عملية تحويل الأرقام إلى حروف أو ما يسميها البعض عملية التفقيط نحتاجها فى عملنا فى الكثير من المواقف مثل :
– عند عمل فاتورة وكتابة اجمالى مبلغ الفاتورة بالأرقام والحروف .
– عند عمل شيك وكتابة مبلغ الشيك بالأرقام والحروف .
برنامج Excel يحتوى على الكثير من الدوال التى تسهل عليك العمل , مثلا دالة SUM لحساب المجموع , و دالة COUNT لحساب عدد الخلايا التى تحتوى على أرقام , و دالة MAX لحساب أكبر قيمة …. وهكذا
لكن للأسف لا يوجد دالة جاهزة فى برنامج Excel تقوم بتحويل الأرقام إلى حروف , لذا عليك بعمل هذه الدالة بنفسك , ولعمل دالة مخصصة لابد من كتابة كود VBA وهذا ما سنقوم بتعلمه فى هذا الدرس .
افتح ملف Excel جديد ثم اذهب إلى التبويب Developer واضغط على Visual Basic
تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
سيتم فتح نافذة Microsoft Visual Basic قم الأن بالضغط بزر الماوس الأيمن على اسم المشروع , ستظهر قائمة مختصرة قم بالوقوف على الاختيار Insert ومن القائمة الفرعية قم بالضغط على Module لاضافة وحدة برمجية جديدة .
تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
سيتم اضافة وحدة برمجية جديدة باسم Module1
تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
فى نافذة كود Module1 الموجودة فى الجانب الأيمن من الشاشة قم بنسخ ولصق الكود التالى :

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

فى الكود السابق قمنا بعمل دالة مخصصة اسمها NumberToText تأخد المعاملات التالية :
number : الرقم
MainCurrency : العملة الرئيسية
SubCurrency : العملة الفرعية
يمكنك الأن استخدام دالة NumberToText مثل أى دالة فى برنامج Excel كما سنرى فى الأمثلة التالية .

مثال 1

تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
مثال 2
تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
مثال 3
تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
مثال 4
تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
مثال 5
تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
ملحوظة : قم بحفظ الملف على صيغة Excel Macro-Enabled Workbook لأنه يحتوى على كود VBA
تحويل الأرقام إلى حروف ( تفقيط الأرقام ) باللغة العربية في Excel
شارك
الصورة الافتراضية
admin
المقالات: 655

4٬172 تعليق

  1. [url=https://buyivermectinsale.online/]ivermectin 3mg[/url] [url=https://tadalafilmedicines.online/]tadalafil for sale cheap[/url] [url=https://sildenafilob.online/]sildenafil generic brand name[/url]

  2. [url=http://synthroidtab.online/]can you buy synthroid over the counter[/url] [url=http://cialissx.online/]cialis without a prescription[/url] [url=http://cdcpills.online/]ivermectin generic[/url] [url=http://pharmacyxxl.online/]online pharmacy pain medicine[/url]

  3. [url=http://viagragenr.online/]150 mg viagra online[/url] [url=http://nexiumesomeprazol.online/]discount nexium online[/url] [url=http://tabletsspace.online/]ivermectin 3 mg[/url] [url=http://tadalafilfpills.online/]tadalafil soft 20 mg[/url] [url=http://viagradpn.online/]viagra canada[/url]

  4. [url=https://ethepharm.online/]generic finpecia[/url] [url=https://viagraxcap.online/]compare generic viagra prices[/url] [url=https://ntmhealth.online/]ivermectin buy canada[/url] [url=https://mviagra.online/]viagra 1 tablet[/url] [url=https://ivermectindx.online/]ivermectin generic cream[/url]

  5. [url=http://modafinilwithnorx.com/]buy provigil in canada[/url] [url=http://modefinil.com/]modafinil 200mg buy online[/url] [url=http://buytadalafilgenericpills.com/]generic tadalafil online 20mg buy[/url] [url=http://tadalafilcv.com/]buy tadalafil from india[/url] [url=http://buycialistb.com/]where to buy cialis online in canada[/url]

  6. [url=https://viagrapio.online/]viagra 50mg tablet[/url] [url=https://viagraht.online/]viagra 100mg tablet online[/url] [url=https://viagratabx.online/]best online pharmacy uk viagra[/url] [url=https://mrviagra.online/]buy viagra 200mg online[/url]

  7. I’m really inspired with your writing talents and also with the structure in your weblog. Is this a paid theme or did you customize it your self? Anyway keep up the nice high quality writing, it is uncommon to see a great blog like this one these days..|

  8. I know this if off topic but I’m looking into starting my own blog and was curious what all is needed to get set up? I’m assuming having a blog like yours would cost a pretty penny? I’m not very web savvy so I’m not 100 sure. Any tips or advice would be greatly appreciated. Kudos|

  9. hello there and thank you for your information – I’ve definitely picked up anything new from right here. I did however expertise a few technical points using this web site, since I experienced to reload the site lots of times previous to I could get it to load properly. I had been wondering if your web hosting is OK? Not that I’m complaining, but sluggish loading instances times will sometimes affect your placement in google and can damage your high-quality score if advertising and marketing with Adwords. Anyway I am adding this RSS to my email and can look out for a lot more of your respective exciting content. Make sure you update this again soon.|

  10. Aw, this was an incredibly nice post. Finding the time and actual effort to produce a top notch article… but what can I say… I put things off a lot and never manage to get anything done.|

  11. Hi! I know this is sort of off-topic however I had to ask.
    Does building a well-established blog such as yours take a
    large amount of work? I’m brand new to writing a blog
    but I do write in my diary every day. I’d like to start a blog so I can share
    my experience and thoughts online. Please let me know if you have any kind
    of recommendations or tips for brand new aspiring bloggers.
    Appreciate it!

  12. I love your blog.. very nice colors & theme.
    Did you make this website yourself or did you hire someone to do it for you?
    Plz respond as I’m looking to design my own blog and would like to know where u got this from.
    thank you

  13. Very efficiently written story. It will be useful to everyone who employess it, as well as me. Keep doing what you are doing – looking forward to more posts.

  14. Hi, i think that i saw you visited my website thus i
    came to “return the favor”.I’m trying to find
    things to improve my web site!I suppose its ok to use some of your ideas!!

  15. you are in point of fact a just right webmaster.
    The website loading pace is incredible. It kind of feels that you are doing any
    unique trick. Moreover, The contents are masterpiece. you’ve
    done a excellent job in this topic!

  16. Please let me know if you’re looking for a article writer
    for your weblog. You have some really good posts and
    I believe I would be a good asset. If you ever want to take some of the load off, I’d really like to write some content for your blog in exchange
    for a link back to mine. Please shoot me an email if interested.

    Many thanks!

  17. An impressive share! I’ve just forwarded this onto a friend who was conducting a little research on this.
    And he actually ordered me lunch simply because I discovered it for him…

    lol. So allow me to reword this…. Thanks for the meal!!
    But yeah, thanks for spending the time to talk about this issue here on your website.

  18. Today, I went to the beach front with my kids.
    I found a sea shell and gave it to my 4 year old daughter and said “You can hear the ocean if you put this to your ear.” She placed the shell
    to her ear and screamed. There was a hermit crab inside and it
    pinched her ear. She never wants to go back! LoL I know this is totally off topic but
    I had to tell someone!

  19. Amazing blog! Do you have any hints for aspiring writers?
    I’m planning to start my own website soon but I’m a little lost on everything.
    Would you advise starting with a free platform like WordPress or go for a paid option? There are so many options out there that I’m
    totally overwhelmed .. Any suggestions?
    Appreciate it!

  20. Hi! Do you know if they make any plugins to help with Search Engine Optimization? I’m trying
    to get my blog to rank for some targeted keywords but I’m not seeing very good results.
    If you know of any please share. Thank you!

  21. I will right away clutch your rss as I can not
    in finding your email subscription hyperlink or e-newsletter service.
    Do you’ve any? Please allow me understand so that I may subscribe.
    Thanks.

  22. Hi are using WordPress for your blog platform?

    I’m new to the blog world but I’m trying to get started and
    set up my own. Do you require any coding expertise to make your own blog?

    Any help would be really appreciated!

  23. Thank you for some other magnificent post.
    Where else may just anybody get that type of info in such a perfect method of writing?
    I have a presentation subsequent week, and I’m on the
    look for such information.

  24. With havin so much written content do you ever run into any issues of plagorism or copyright infringement?
    My website has a lot of unique content I’ve either written myself or outsourced but it seems
    a lot of it is popping it up all over the internet without my permission. Do you know any techniques to help reduce content from being stolen? I’d genuinely appreciate it.

  25. Can I simply just say what a relief to uncover an individual who really understands what
    they are talking about over the internet. You definitely know how
    to bring an issue to light and make it important. More people have to check this out and understand this side of your story.
    It’s surprising you are not more popular given that you most certainly possess the gift.