ĐẶ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

15 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!

Để 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 *