ĐẶT QUẢNG Ở ĐÂY
LIÊN HỆ : 0988.123.126

Chuyển đổi số thành chữ viết bằng Code VBA

Thường xuyên xử lý và tính toán dữ liệu với bảng tính Excel, nếu với dữ liệu liên quan đến tiền tệ thì việc muốn đổi số thành chữ sẽ rất nhiều. Các bạn cũng có thể thủ công ngồi nhập chữ từ những con số, nhưng nếu với dữ liệu nhiều và đòi hỏi độ chính xác các bạn không thể ngồi nhập thủ công được.

Chuyển đổi số thành chữ viết bằng Code VBA

Chuyển đổi số thành chữ viết bằng Code VBA chỉ đơn giản với 2 bước thao tác
Chuyển đổi số thành chữ viết bằng Code VBA chỉ đơn giản với 2 bước thao tác

Các bạn có thể sử dụng 1 cách dễ dàng để giúp các bạn đổi số thành chữ một cách nhanh chóng và hiệu quả. Bài viết hướng dẫn cách đổi số thành chữ trong Excel 2010 bằng fucion, với Excel 2007 và Excel 2013 các bạn có thể thao tác tương tự.

Thường xuyên xử lý và tính toán dữ liệu với bảng tính Excel, nếu với dữ liệu liên quan đến tiền tệ thì việc muốn đổi số thành chữ sẽ rất nhiều.Các bạn cũng có thể thủ công ngồi nhập chữ từ những con số, nhưng nếu với dữ liệu nhiều và đòi hỏi độ chính xác các bạn không thể ngồi nhập thủ công được.

Hôm nay tinvanphong 1 cách dễ dàng để giúp các bạn đổi số thành chữ một cách nhanh chóng và hiệu quả.Bài viết hướng dẫn cách đổi số thành chữ trong Excel 2010 bằng fucion, với Excel 2007 và Excel 2013 các bạn có thể thao tác tương tự. với các file khác

Hướng Dẫn :

Bước 1 : Bạn cần phải lưu file dưới dạng xlsm để  khi save lại file vẫn còn lưu code
Bước 2 :  Bạn Cần bật thanh công cụ DEVOLOPER

Chuyển đổi số thành chữ viết bằng Code VBA
Chuyển đổi số thành chữ viết bằng Code VBA

Bước 3 : Tạo 1 Model trong

Chuyển đổi số thành chữ viết bằng Code VBA
Chuyển đổi số thành chữ viết bằng Code VBA

Bước 4 : Coppy toàn bộ CODE fucion phia dưới vào Model đó

'===============================
Function TVP_DocSo(conso) As String
s09 = Array("", " m" & ChrW(7897) & "t", " hai", " ba", " b" & ChrW(7889) & "n", " n" & _
ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n")
lop3 = Array("", " tri" & ChrW(7879) & "u", " ngh" & ChrW(236) & "n", " t" & ChrW(7927))
'Stop
If Trim(conso) = "" Then
DocSoUni = ""
ElseIf IsNumeric(conso) = True Then
If conso < 0 Then Dau = ChrW(226) & "m " Else Dau = ""
conso = Application.WorksheetFunction.Round(Abs(conso), 0)
conso = " " & conso
conso = Replace(conso, ",", "", 1)
vt = InStr(1, conso, "E")
If vt > 0 Then
sonhan = Val(Mid(conso, vt + 1))
conso = Trim(Mid(conso, 2, vt - 2))
conso = conso & String(sonhan - Len(conso) + 1, "0")
End If
conso = Trim(conso)
sochuso = Len(conso) Mod 9
If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
docso = ""
i = 1
lop = 1
Do
n1 = Mid(conso, i, 1)
n2 = Mid(conso, i + 1, 1)
n3 = Mid(conso, i + 2, 1)
baso = Mid(conso, i, 3)
i = i + 3
If n1 & n2 & n3 = "000" Then
If docso <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " t" & ChrW(7927) Else s123 = ""
Else
If n1 = 0 Then
If docso = "" Then s1 = "" Else s1 = " kh" & ChrW(244) & "ng tr" & ChrW(259) & "m"
Else
s1 = s09(n1) & " tr" & ChrW(259) & "m"
End If
If n2 = 0 Then
If s1 = "" Or n3 = 0 Then
s2 = ""
Else
s2 = " linh"
End If
Else
If n2 = 1 Then s2 = " m" & ChrW(432) & ChrW(7901) & "i" Else s2 = s09(n2) & " m" & ChrW(432) & ChrW(417) & "i"
End If
If n3 = 1 Then
If n2 = 1 Or n2 = 0 Then s3 = " m" & ChrW(7897) & "t" Else s3 = " m" & ChrW(7889) & "t"
ElseIf n3 = 5 And n2 <> 0 Then
s3 = " l" & ChrW(259) & "m"
Else
s3 = s09(n3)
End If
If i > Len(conso) Then
s123 = s1 & s2 & s3
Else
s123 = s1 & s2 & s3 & lop3(lop)
End If
End If
lop = lop + 1
If lop > 3 Then lop = 1
docso = docso & s123
If i > Len(conso) Then Exit Do
Loop
If docso = "" Then TVP_DocSo = "kh" & ChrW(244) & "ng" Else TVP_DocSo = Dau & Trim(docso)
Else
TVP_DocSo = conso
End If
End Function

Bước 5 : bạn tra Worksheet gõ =TVP_DocSO( Chọn con số muốn đọc ) ,

Chúc các bạn thành công

3/5 - (1 bình chọn)
Ờ Phong

PRO hàm SUM , không biết gì về VBA EXCEL

78 bình luận về “Chuyển đổi số thành chữ viết bằng Code VBA”

  2. imkerei cho biết:

    Appreciating the dedication you put into your blog and detailed information you present.

    It’s awesome to come across a blog every once in a while that
    isn’t the same old rehashed material. Wonderful read! I’ve saved your site and I’m adding your RSS feeds
    to my Google account.

  3. imker portal cho biết:

    Remarkable issues here. I am very satisfied to see your article.

    Thank you so much and I’m having a look ahead to contact you.
    Will you please drop me a mail?

  5. https://ex-capital-vietnam.com/ cho biết:

    I think everything posted was very logical. But, what about this?
    what if you were to create a killer headline? I am not saying your content
    isn’t good, but suppose you added something that makes people desire more?
    I mean Chuyển đổi số thành chữ viết bằng Code VBA 2021 is kinda
    vanilla. You ought to look at Yahoo’s home page and note how they
    write article headlines to get people to click. You might try adding a video or a picture or
    two to grab people excited about everything’ve got to say.
    Just my opinion, it would bring your website a little livelier.

  8. https://hamperquatang.com cho biết:

    I was wondering if you ever thought of changing the structure of
    your blog? Its very well written; I love what youve got to say.
    But maybe you could a little more in the way of content so
    people could connect with it better. Youve got
    an awful lot of text for only having one or 2 images. Maybe you could space it out better?

  9. https://hamperquatang.com/exness cho biết:

    When I originally commented I clicked the “Notify me when new comments are added” checkbox and now each time a comment is added I get four emails with the same comment.
    Is there any way you can remove me from that service?
    Many thanks!

  11. https://viettradeex.com/ cho biết:

    Hey just wanted to give you a quick heads up. The
    words in your article seem to be running off the screen in Firefox.
    I’m not sure if this is a formatting issue or something to
    do with web browser compatibility but I thought I’d post to let
    you know. The style and design look great though!
    Hope you get the problem solved soon. Kudos

  15. https://extradevn.com/ cho biết:

    Howdy! I could have sworn I’ve visited your blog before but after going through a
    few of the posts I realized it’s new to me. Anyways, I’m definitely
    happy I stumbled upon it and I’ll be book-marking it and checking back regularly!

  17. melbet تسجيل cho biết:

    Yesterday, ѡhile I was at work, my sister stole my аpplе ipad and tested to see
    if it can surѵive a 25 foot dr᧐p, just so she cаn be a youtube sеnsation. My apple ipad is now destroyed
    and she has 83 views. I know this is entirеly off topic but I hаd to share іt with someⲟne!

  23. fxgt cho biết:

    My partner and I stumbled over here coming from a different page and thought I may as well check things out.
    I like what I see so now i’m following you. Look forward to checking
    out your web page yet again.

  26. https://exntrade-vietnam.com/ cho biết:

    When I originally commented I appear to have clicked on the -Notify me when new comments are added- checkbox and
    now every time a comment is added I recieve four emails
    with the exact same comment. Perhaps there is an easy method you are able to remove me from that service?
    Many thanks!

  28. https://fxptrade-vn.com cho biết:

    Hey There. I discovered your blog the usage of msn. That is a really
    smartly written article. I’ll make sure to bookmark it and return to learn extra of your useful info.
    Thank you for the post. I’ll definitely return.

  37. Andrewgluri cho biết:

    Конспирацию посылок наладили? А то такой товар, а выписать не могу – стрёмно, если просто гриперы в конверте… И отпишите по качеству 5 мео дмт! Мефедрон купить принимай не меньше 300 мг МХЕ от данного селлера.

  38. Andrewgluri cho biết:

    Сегодня оплатил, сегодня же отправили и выслали трек который уже бьется, все ровно пацики спасибо Кокаин купить Сам ты не общительный ))

  39. Andrewgluri cho biết:

    Но могу сказать что на данный момент проблемы с отправкой у магазина! в среду оплатил и сказали в четверг будет отправка, но увы ее нет! такое в первый раз замечаю от такого магазина! будем ждать! Скорость ск кристалл купить знаю кто и как берут через этот магаз

  40. Andrewgluri cho biết:

    Мало того дешёвый, он и отправляет маленький вес. Это гуд. Остальные почти все работают от 50 гр… Бошки купить Просьба подкорректировать самим бредовые сообщения.

  42. Andrewgluri cho biết:

    13 янв. в 21:12 Деньги пришли. Заказ будет выслан в ближайшие несколько рабочих дней. Суббота и воскресенье — выходные. После отправки трек (номер накладной) будет в комментарии к заказу на сайте и продублируется на электронную почту. Мефедрон купить Отличный магаз! так держать

  43. Andrewgluri cho biết:

    Максимально приятные впечатления оставляет у меня сотрудничество с сием трэйдером… Доставка никогда не занимала дольше недели, а однажды на самолете когда отправляли за ч\з 2 дня уже покоилась в руках :)… Бошки купить Один из старейших!!!

  44. Andrewgluri cho biết:

    Обязательно позвонить должны, как позвонят легче забрать самому чем ждать пока курьер доставит Гашиш купить Итак всем ПРИВЕТ !

  46. Andrewgluri cho biết:

    Тоже хочу сделать заказ.Жду ответа Кокаин купить магаз на уровне. сегодня выходной себе решил сделать бок мять до обеда собирался, а тут звонок из курьерки! люто настроение поднялось

Để lại một bình luận

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *