Code Chuyển Số Thành Chữ ( Thành Tiền) ! | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Code chuyển số thành chữ ( thành tiền) ! (1 người xem)

• Thread starter Thread starter Loan Châu
• Ngày gửi Ngày gửi 26/1/18

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ Kính chào quý anh chị ! Tôi đang gặp rắc rối trong công việc mong quý anh chị giúp đỡ. Đó là tôi muốn đổi các số ra thành chữ trong trong tính tiền. ví dụ là 25000 = Hai lăm nghìn đồng chẵn. Tôi có thử một số các tool trên mạng nhưng hay bị lỗi font quá. Tôi rất mong nhận được sự giúp đở của quý anh chị. Tôi cảm ơn quý anh chị trước ! Trân trọng, Loan Châu Sắp xếp theo thời gian sắp xếp theo bầu chọn

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,809 Được thích 6,368 Donate (Momo) Giới tính Nam

Loan Châu đã viết: Kính chào quý anh chị ! Tôi đang gặp rắc rối trong công việc mong quý anh chị giúp đỡ. Đó là tôi muốn đổi các số ra thành chữ trong trong tính tiền. ví dụ là 25000 = Hai lăm nghìn đồng chẵn. Tôi có thử một số các tool trên mạng nhưng hay bị lỗi font quá. Tôi rất mong nhận được sự giúp đở của quý anh chị. Tôi cảm ơn quý anh chị trước ! Trân trọng, Loan Châu Nhấp chuột vào đây để mở rộng...

Có thử tool này chưa bạn? http://www.giaiphapexcel.com/diendan/threads/add-ins-cho-excel-2007-2016-32bit-và-64bit.106992/ Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840

Loan Châu đã viết: 25000 = Hai lăm nghìn đồng chẵn. Nhấp chuột vào đây để mở rộng...

(chỗ màu xanh) Sai bét! (màu đỏ) Rõ ràng số đó chẵn lắm rồi. Hệ quả của việc máy móc làm theo người trước (cũng làm thế), hoặc quên mất cách đọc số ở lớp một, lớp hai rồi. Trong ngữ văn, khi chấm hết câu là xong, chỗ màu đỏ là dư thừa. Và trên này có nhiều người phải tìm cách bỏ từ "chẵn" trong các AddIns... Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ

giaiphap đã viết: Có thử tool này chưa bạn? http://www.giaiphapexcel.com/diendan/threads/add-ins-cho-excel-2007-2016-32bit-và-64bit.106992/ Nhấp chuột vào đây để mở rộng...

cảm ơn anh giaiphap để mình thử xem! Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ em cảm ơn anh Befain nhiều nhiều đã góp ý. Em quên để ý cái đó mất.hihi anh ơi, em có đoạn code em sưa tầm được đọc được số ra chữ rất tốt, nhưng tác gải của code đang viết cho font Unicode mà mấy phiếu thu của em đã dung fong TCVN3 ( . vntime,..) rồi nên khi copy tiền vào vẫn lỗi font anh à. anh xem giúp cho em với anh nhé! Public Function docso(chuyenso) 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(chuyenso) = "" Then DocSoUni = "" ElseIf IsNumeric(chuyenso) = True Then If chuyenso < 0 Then dau = ChrW(226) & "m " Else dau = "" chuyenso = Application.WorksheetFunction.Round(Abs(chuyenso), 0) chuyenso = " " & chuyenso chuyenso = Replace(chuyenso, ",", "", 1) vt = InStr(1, chuyenso, "E") If vt > 0 Then sonhan = Val(Mid(chuyenso, vt + 1)) chuyenso = Trim(Mid(chuyenso, 2, vt - 2)) chuyenso = chuyenso & String(sonhan - Len(chuyenso) + 1, "0") End If chuyenso = Trim(chuyenso) sochuso = Len(chuyenso) Mod 9 If sochuso > 0 Then chuyenso = String(9 - (sochuso Mod 12), "0") & chuyenso docso = "" i = 1 lop = 1 Do n1 = Mid(chuyenso, i, 1) n2 = Mid(chuyenso, i + 1, 1) n3 = Mid(chuyenso, i + 2, 1) baso = Mid(chuyenso, i, 3) i = i + 3 If n1 & n2 & n3 = "000" Then If docso <> "" And lop = 3 And Len(chuyenso) - 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(chuyenso) 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(chuyenso) Then Exit Do Loop If docso = "" Then docso = "kh" & ChrW(244) & "ng" Else docso = dau & Trim(docso) Else docso = chuyenso End If End Function Upvote 0 C

CTLCT

Thành viên mới

Tham gia 31/8/13 Bài viết 45 Được thích 24 Giới tính Nam @Loan Châu : Dùng add in của a Nguyen Duy Tuan (bạn search "đọc số thành chữ nhanh hơn 80%") thì VND(25.000) ra kết quả là Hai mươi lăm nghìn đồng. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

befaint đã viết: (chỗ màu xanh) Sai bét! (màu đỏ) Rõ ràng số đó chẵn lắm rồi. Hệ quả của việc máy móc làm theo người trước (cũng làm thế), hoặc quên mất cách đọc số ở lớp một, lớp hai rồi. Trong ngữ văn, khi chấm hết câu là xong, chỗ màu đỏ là dư thừa. Nhấp chuột vào đây để mở rộng...

Theo tôi được biết thì cái chữ CHẴN ấy không dư thừa tí nào cả Viết "chẵn" vào để người ta chắc ăn rằng người khác không thêm gì phía sau nó được nữa. Ví dụ - Ghi hai mươi lăm ngàn đồng ---> Người khác có thể thêm tám trăm chín mươi bảy xu ở phía sau mà không ai hay biết - Ghi hai mươi lăm ngàn đồng chẵn ---> Đố ghi gì thêm được nữa đấy Đương nhiên hiện nay nước ta không xài xu nên "chẵn" có thể thừa nhưng ý nghĩa ban đầu của nó là thế đấy! Upvote 0 V

VetMini

Đang đi tìm hòn đá

Tham gia 21/12/12 Bài viết 17,867 Được thích 24,788 Nghề nghiệp Thầy bói bài ta

befaint đã viết: (màu đỏ) Rõ ràng số đó chẵn lắm rồi. Hệ quả của việc máy móc làm theo người trước (cũng làm thế), hoặc quên mất cách đọc số ở lớp một, lớp hai rồi. Trong ngữ văn, khi chấm hết câu là xong, chỗ màu đỏ là dư thừa. Và trên này có nhiều người phải tìm cách bỏ từ "chẵn" trong các AddIns... Nhấp chuột vào đây để mở rộng...

Từ "chẵn" là luật chung của hệ thống tiền tệ. Hồi xưa, người ta viết séc (cheque), nếu không kết thúc bằng đơn vị cuối cùng thì phải thêm từ "chẵn" (tiếng Anh là "even" - và được hiểu là "chính xác con số đó, không thêm, khong bớt 1 đồng, 1 xu"). Về sau này luật đó được đơn giản bằng cách gạch thêm một gạch dài sau từ cuối. Ngừoi đọc sẽ hiểu đến đó là hết rồi. (gạch dài cũng áp dụng cho cả con số. Nếu số kêt thúc bằng đơn vị xu thì không sao. Nhưng nếu kết thúc bằng đơn vị đồng/đô la thì ngừoi ta thêm 1 gạch) Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ

CTLCT đã viết: @Loan Châu : Dùng add in của a Nguyen Duy Tuan (bạn search "đọc số thành chữ nhanh hơn 80%") thì VND(25.000) ra kết quả là Hai mươi lăm nghìn đồng. Nhấp chuột vào đây để mở rộng...

cảm ơn bạn CTLCT nhiều, mình dung code trên cũng được nhưng nó hơi lỗi font bạn à Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ

befaint đã viết: (chỗ màu xanh) Sai bét! (màu đỏ) Rõ ràng số đó chẵn lắm rồi. Hệ quả của việc máy móc làm theo người trước (cũng làm thế), hoặc quên mất cách đọc số ở lớp một, lớp hai rồi. Trong ngữ văn, khi chấm hết câu là xong, chỗ màu đỏ là dư thừa. Và trên này có nhiều người phải tìm cách bỏ từ "chẵn" trong các AddIns... Nhấp chuột vào đây để mở rộng...

em cảm ơn anh Befain nhiều nhiều đã góp ý. Em quên để ý cái đó mất.hihi anh ơi, em có đoạn code em sưa tầm được đọc được số ra chữ rất tốt, nhưng tác gải của code đang viết cho font Unicode mà mấy phiếu thu của em đã dung fong TCVN3 ( . vntime,..) rồi nên khi copy tiền vào vẫn lỗi font anh à. anh xem giúp cho em với anh nhé! Public Function docso(chuyenso) 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(chuyenso) = "" Then DocSoUni = "" ElseIf IsNumeric(chuyenso) = True Then If chuyenso < 0 Then dau = ChrW(226) & "m " Else dau = "" chuyenso = Application.WorksheetFunction.Round(Abs(chuyenso), 0) chuyenso = " " & chuyenso chuyenso = Replace(chuyenso, ",", "", 1) vt = InStr(1, chuyenso, "E") If vt > 0 Then sonhan = Val(Mid(chuyenso, vt + 1)) chuyenso = Trim(Mid(chuyenso, 2, vt - 2)) chuyenso = chuyenso & String(sonhan - Len(chuyenso) + 1, "0") End If chuyenso = Trim(chuyenso) sochuso = Len(chuyenso) Mod 9 If sochuso > 0 Then chuyenso = String(9 - (sochuso Mod 12), "0") & chuyenso docso = "" i = 1 lop = 1 Do n1 = Mid(chuyenso, i, 1) n2 = Mid(chuyenso, i + 1, 1) n3 = Mid(chuyenso, i + 2, 1) baso = Mid(chuyenso, i, 3) i = i + 3 If n1 & n2 & n3 = "000" Then If docso <> "" And lop = 3 And Len(chuyenso) - 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(chuyenso) 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(chuyenso) Then Exit Do Loop If docso = "" Then docso = "kh" & ChrW(244) & "ng" Else docso = dau & Trim(docso) Else docso = chuyenso End If End Function Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ

ndu96081631 đã viết: Theo tôi được biết thì cái chữ CHẴN ấy không dư thừa tí nào cả Viết "chẵn" vào để người ta chắc ăn rằng người khác không thêm gì phía sau nó được nữa. Ví dụ - Ghi hai mươi lăm ngàn đồng ---> Người khác có thể thêm tám trăm chín mươi bảy xu ở phía sau mà không ai hay biết - Ghi hai mươi lăm ngàn đồng chẵn ---> Đố ghi gì thêm được nữa đấy Đương nhiên hiện nay nước ta không xài xu nên "chẵn" có thể thừa nhưng ý nghĩa ban đầu của nó là thế đấy! Nhấp chuột vào đây để mở rộng...

cảm ơn anh ndu96081631 đã giải thích để em được hiểu vấn đề hơn. Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ

VetMini đã viết: Từ "chẵn" là luật chung của hệ thống tiền tệ. Hồi xưa, người ta viết séc (cheque), nếu không kết thúc bằng đơn vị cuối cùng thì phải thêm từ "chẵn" (tiếng Anh là "even" - và được hiểu là "chính xác con số đó, không thêm, khong bớt 1 đồng, 1 xu"). Về sau này luật đó được đơn giản bằng cách gạch thêm một gạch dài sau từ cuối. Ngừoi đọc sẽ hiểu đến đó là hết rồi. (gạch dài cũng áp dụng cho cả con số. Nếu số kêt thúc bằng đơn vị xu thì không sao. Nhưng nếu kết thúc bằng đơn vị đồng/đô la thì ngừoi ta thêm 1 gạch) Nhấp chuột vào đây để mở rộng...

cảm ơn anh Vetmini đã giải thích để em được hiểu vấn đề hơn. Bây giờ viết như thế này phải hông anh: Hai mươi lăm nghìn đồng ./. Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840

ndu96081631 đã viết: Theo tôi được biết thì cái chữ CHẴN ấy không dư thừa tí nào cả Viết "chẵn" vào để người ta chắc ăn rằng người khác không thêm gì phía sau nó được nữa. Ví dụ - Ghi hai mươi lăm ngàn đồng ---> Người khác có thể thêm tám trăm chín mươi bảy xu ở phía sau mà không ai hay biết Nhấp chuột vào đây để mở rộng...

Vâng anh. Em có ghi một câu " Trong ngữ văn, khi chấm hết câu là xong" mà. Anh chỉ giúp cho em biết người ta chỉnh sửa trong trường hợp nào? - Văn bản in thì tẩy rồi in tiếp vào hay dùng bút viết thêm vào? - Văn bản viết tay thì viết chèn vào? - Trong trường hợp nào vẫn chấp nhận văn bản tẩy xóa/ viết thêm? Chấp nhận ở mức độ nào? Nếu đã cố tình chỉnh sửa thì chữ "chẵn" vẫn sửa được ạ. In laser, giấy A4 thông dụng (định lượng 70-90 gsm) thì vẫn có cách xóa và in lại như mới ạ. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

Loan Châu đã viết: em có đoạn code em sưa tầm được đọc được số ra chữ rất tốt, nhưng tác gải của code đang viết cho font Unicode mà mấy phiếu thu của em đã dung fong TCVN3 ( . vntime,..) rồi nên khi copy tiền vào vẫn lỗi font anh à. Nhấp chuột vào đây để mở rộng...

Bạn có 2 lựa chọn: 1> Tìm hàm nào đó đọc ra chữ dùng mã TCVN3 2> Tìm hàm convert Unicode sang TCVN rồi lồng vào hàm bạn đang có Nếu là tôi thì tôi chọn cách 2 Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

befaint đã viết: Vâng anh. Em có ghi một câu " Trong ngữ văn, khi chấm hết câu là xong" mà. Anh chỉ giúp cho em biết người ta chỉnh sửa trong trường hợp nào? - Văn bản in thì tẩy rồi in tiếp vào hay dùng bút viết thêm vào? - Văn bản viết tay thì viết chèn vào? - Trong trường hợp nào vẫn chấp nhận văn bản tẩy xóa/ viết thêm? Chấp nhận ở mức độ nào? Nếu đã cố tình chỉnh sửa thì chữ "chẵn" vẫn sửa được ạ. In laser, giấy A4 thông dụng (định lượng 70-90 gsm) thì vẫn có cách xóa và in lại như mới ạ. Nhấp chuột vào đây để mở rộng...

Tôi biết vụ này khi viết mấy cái hóa đơn (đương nhiên bằng tay). Khi viết xong số tiền bằng chữ, người ta yêu cầu phải viết chữ "chẵn" vào cuối và người ta giải thích chuyện này như tôi đã nói ở trên Còn cái vụ dấu chấm thay được cho chữ chẵn? Cũng được nhưng không chắc ăn đâu (dấu chấm nó nhỏ quá, dễ bị lừa) Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840

ndu96081631 đã viết: Tôi biết vụ này khi viết mấy cái hóa đơn (đương nhiên bằng tay). Nhấp chuột vào đây để mở rộng...

Vậy thôi ạ. Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ

ndu96081631 đã viết: Bạn có 2 lựa chọn: 1> Tìm hàm nào đó đọc ra chữ dùng mã TCVN3 2> Tìm hàm convert Unicode sang TCVN rồi lồng vào hàm bạn đang có Nếu là tôi thì tôi chọn cách 2 Nhấp chuột vào đây để mở rộng...

Em cảm ơn anh ndu96081631 đã hướng dẫn em phương án lựa chọn, nhưng khó cho em là em hổng biết gì nhiều về VBA, em mạo muội mong anh giúp long hàm convert Unicode sang TCVN cho code trên cho em với. em cảm ơn anh nhiều trước ạ ! Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840 @ Chủ thớt: Nếu có chuyển số tiền sang chữ mà viết tay thì nhớ gạch hết phần giấy trống ở phía sau (dưới) theo hướng dẫn bài #8 nhé. Vì giả sử có viết chữ "chẵn" thì mình viết thêm: "... chẵn và lẻ không phẩy chín đồng". ------- Chủ thớt tải file ở bài #2 về dùng là có rồi!! Sao cứ hỏi hoài vậy??? Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

befaint đã viết: Vậy thôi ạ. Nhấp chuột vào đây để mở rộng...

Ừ chỉ vậy thôi! Nó gần giống câu chuyện trong cơ quan nhà nước mà tôi nghe được thế này: "Người ta yêu cầu khi định dạng ngày tháng năm, nếu tháng nhỏ hơn 3 thì phải thêm con zero đằng trước". Mục đích cũng là sợ người ta sửa. Ví dụ 21/2/2017 mà cho thêm con số 1 trước số 2 sẽ thành 21/12/2017 (từ tháng 3 trở đi chẳng sợ) Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ

befaint đã viết: @ Chủ thớt: Nếu có chuyển số tiền sang chữ mà viết tay thì nhớ gạch hết phần giấy trống ở phía sau (dưới) theo hướng dẫn bài #8 nhé. Vì giả sử có viết chữ "chẵn" thì mình viết thêm: "... chẵn và lẻ không phẩy chín đồng". ------- Chủ thớt tải file ở bài #2 về dùng là có rồi!! Sao cứ hỏi hoài vậy??? Nhấp chuột vào đây để mở rộng...

anh befaint đừng la em tội nghiệp anh. huhu, em viết nó cứ lỗi font. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,979

Loan Châu đã viết: anh befaint đừng la em tội nghiệp anh. huhu, em viết nó cứ lỗi font. Nhấp chuột vào đây để mở rộng...

Lấy hàm này về xài thử: Mã: Sao chép. Function DocSo(ByVal Number, Optional ByVal Font = 1) As String Dim MyArray Dim Str Str = Format(Abs(Number), "000000000000000000") Select Case Font Case 1 MyArray = Array("không ", "m" & ChrW(7897) & "t ", "hai ", "ba ", "b" & ChrW(7889) & "n ", "n" & ChrW(259) & "m ", "sáu ", "b" & ChrW(7843) & "y ", "tám ", "chín ", "tri" & ChrW(7879) & "u, ", "ngàn, ", "t" & ChrW(7927) & ", ", "tri" & ChrW(7879) & "u, ", "ngàn, ", "", "tr" & ChrW(259) & "m ", "m" & ChrW(432) & ChrW(417) & "i ", "không " & "m" & ChrW(432) & ChrW(417) & "i" & " không ", "không " & "m" & ChrW(432) & ChrW(417) & "i", "l" & ChrW(7867), "m" & ChrW(432) & ChrW(417) & "i" & " không", "m" & ChrW(432) & ChrW(417) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " n" & ChrW(259) & "m", "m" & ChrW(432) & ChrW(417) & "i" & " l" & ChrW(259) & "m", "m" & ChrW(7897) & "t " & "m" & ChrW(432) & ChrW(417) & "i", "m" & ChrW(432) & ChrW(7901) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7897) & "t", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7889) & "t", "Âm ") Case 2 MyArray = Array("khoâng ", "moät ", "hai ", "ba ", "boán ", "naêm ", "saùu ", "baûy ", "taùm ", "chín ", "trieäu, ", "ngaøn, ", "tyû, ", "trieäu, ", "ngaøn, ", "", "traêm ", "möôi ", "khoâng möôi khoâng ", "khoâng möôi", "leû", "möôi khoâng", "möôi", "möôi naêm", "möôi laêm", "moät möôi", "möôøi", "möôi moät", "möôi moát", "AÂm ") Case 3 MyArray = Array("kh«ng ", "mét ", "hai ", "ba ", "bèn ", "n¨m ", "s¸u ", "b¶y ", "t¸m ", "chÝn ", "triÖu, ", "ngµn, ", "tû, ", "triÖu, ", "ngµn, ", "", "tr¨m ", "m¬i ", "kh«ng m¬i kh«ng ", "kh«ng m¬i", "lÎ", "m¬i kh«ng", "m¬i", "m¬i n¨m", "m¬i l¨m", "mét m¬i", "mêi", "m¬i mét", "m¬i mèt", "©m ") End Select If Str = "000000000000000000" Then DocSo = UCase(Left(MyArray(0), 1)) & Trim(Mid(MyArray(0), 2)) Exit Function End If Dim i As Long For i = 1 To Len(Str) If Left(Str, i) <> 0 And Mid(Str, (Int((i + 2) / 3) - 1) * 3 + 1, 3) <> 0 Then DocSo = DocSo & MyArray(Mid(Str, i, 1)) & MyArray(-(9 + i / 3) * (i Mod 3 = 0) - (15 + i Mod 3) * (i Mod 3 <> 0)) ElseIf i = 9 And Mid(Str, 7, 3) = 0 And Left(Str, 6) <> 0 Then DocSo = DocSo & MyArray(12) End If Next DocSo = Trim(Replace(Replace(Replace(Replace(Replace(Replace(DocSo, MyArray(18), MyArray(15)), MyArray(19), MyArray(20)), MyArray(21), MyArray(22)), MyArray(23), MyArray(24)), MyArray(25), MyArray(26)), MyArray(27), MyArray(28))) If Number < 0 Then DocSo = MyArray(29) & DocSo End If DocSo = Replace(Replace(UCase(Left(DocSo, 1)) & Mid(DocSo, 2) & "*", ",*", ""), "*", "") End Function Cú pháp =DocSo(Số,1) ---> Dùng cho bảng mã Unicode =DocSo(Số,2) ---> Dùng cho bảng mã VNI-Windows =DocSo(Số,3) ---> Dùng cho bảng mã TCVN3 ----------------------------------------- Tôi lưu hàm này trong máy tính lâu rồi. Nhớ không lầm là của @huuthang_bd Upvote 0

Loan Châu

Thành viên hoạt động

Tham gia 17/6/17 Bài viết 136 Được thích 39 Giới tính Nữ

ndu96081631 đã viết: Lấy hàm này về xài thử: Mã: Sao chép. Function DocSo(ByVal Number, Optional ByVal Font = 1) As String Dim MyArray Dim Str Str = Format(Abs(Number), "000000000000000000") Select Case Font Case 1 MyArray = Array("không ", "m" & ChrW(7897) & "t ", "hai ", "ba ", "b" & ChrW(7889) & "n ", "n" & ChrW(259) & "m ", "sáu ", "b" & ChrW(7843) & "y ", "tám ", "chín ", "tri" & ChrW(7879) & "u, ", "ngàn, ", "t" & ChrW(7927) & ", ", "tri" & ChrW(7879) & "u, ", "ngàn, ", "", "tr" & ChrW(259) & "m ", "m" & ChrW(432) & ChrW(417) & "i ", "không " & "m" & ChrW(432) & ChrW(417) & "i" & " không ", "không " & "m" & ChrW(432) & ChrW(417) & "i", "l" & ChrW(7867), "m" & ChrW(432) & ChrW(417) & "i" & " không", "m" & ChrW(432) & ChrW(417) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " n" & ChrW(259) & "m", "m" & ChrW(432) & ChrW(417) & "i" & " l" & ChrW(259) & "m", "m" & ChrW(7897) & "t " & "m" & ChrW(432) & ChrW(417) & "i", "m" & ChrW(432) & ChrW(7901) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7897) & "t", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7889) & "t", "Âm ") Case 2 MyArray = Array("khoâng ", "moät ", "hai ", "ba ", "boán ", "naêm ", "saùu ", "baûy ", "taùm ", "chín ", "trieäu, ", "ngaøn, ", "tyû, ", "trieäu, ", "ngaøn, ", "", "traêm ", "möôi ", "khoâng möôi khoâng ", "khoâng möôi", "leû", "möôi khoâng", "möôi", "möôi naêm", "möôi laêm", "moät möôi", "möôøi", "möôi moät", "möôi moát", "AÂm ") Case 3 MyArray = Array("kh«ng ", "mét ", "hai ", "ba ", "bèn ", "n¨m ", "s¸u ", "b¶y ", "t¸m ", "chÝn ", "triÖu, ", "ngµn, ", "tû, ", "triÖu, ", "ngµn, ", "", "tr¨m ", "m¬i ", "kh«ng m¬i kh«ng ", "kh«ng m¬i", "lÎ", "m¬i kh«ng", "m¬i", "m¬i n¨m", "m¬i l¨m", "mét m¬i", "mêi", "m¬i mét", "m¬i mèt", "©m ") End Select If Str = "000000000000000000" Then DocSo = UCase(Left(MyArray(0), 1)) & Trim(Mid(MyArray(0), 2)) Exit Function End If Dim i As Long For i = 1 To Len(Str) If Left(Str, i) <> 0 And Mid(Str, (Int((i + 2) / 3) - 1) * 3 + 1, 3) <> 0 Then DocSo = DocSo & MyArray(Mid(Str, i, 1)) & MyArray(-(9 + i / 3) * (i Mod 3 = 0) - (15 + i Mod 3) * (i Mod 3 <> 0)) ElseIf i = 9 And Mid(Str, 7, 3) = 0 And Left(Str, 6) <> 0 Then DocSo = DocSo & MyArray(12) End If Next DocSo = Trim(Replace(Replace(Replace(Replace(Replace(Replace(DocSo, MyArray(18), MyArray(15)), MyArray(19), MyArray(20)), MyArray(21), MyArray(22)), MyArray(23), MyArray(24)), MyArray(25), MyArray(26)), MyArray(27), MyArray(28))) If Number < 0 Then DocSo = MyArray(29) & DocSo End If DocSo = Replace(Replace(UCase(Left(DocSo, 1)) & Mid(DocSo, 2) & "*", ",*", ""), "*", "") End Function Cú pháp =DocSo(Số,1) ---> Dùng cho bảng mã Unicode =DocSo(Số,2) ---> Dùng cho bảng mã VNI-Windows =DocSo(Số,3) ---> Dùng cho bảng mã TCVN3 ----------------------------------------- Tôi lưu hàm này trong máy tính lâu rồi. Nhớ không lầm là của @huuthang_bd Nhấp chuột vào đây để mở rộng...

em cảm ơn ndu96081631 nhiều nhiều ! nhân anh em cũng cảm ơn code anh huuthang_bd , code chạy đúng ý em luôn. hihi Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (2 người xem)

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 13 Đọc 251 14 phút trước ongke0711 Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự (1 người xem)

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 2 Đọc 198 Hôm nay lúc 17:38 HeSanbi Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 43 Đọc 21K Hôm nay lúc 15:48 Maika8008 Tính định mức sản phẩm

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 11 Đọc 896 Hôm nay lúc 14:27 nguyenanhtruong2409 N T Lọc dự liệu với hai điều kiện (1 người xem)

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 18 Đọc 7K Hôm nay lúc 14:11 nguyenanhtruong2409 N D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 17 Đọc 393 Hôm nay lúc 12:04 ptm0412 P Lỗi hàm VBA phải add-in sau mỗi lần mở file (1 người xem)

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 7 Đọc 225 Hôm nay lúc 08:11 minhnghia123 M Nếu diễn đàn GPE đóng cửa? (1 người xem)

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 18 Đọc 612 Hôm nay lúc 00:08 Gà Con yêu VBA M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA (1 người xem)

• • 

• Mr_Siro
• Thứ tư lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 140 Hôm qua, lúc 13:23 Mr_Siro M P Tìm giá trị tồn kho đầu ngày

• ptthuongtn
• Thứ tư lúc 15:15
• Hàm và công thức Excel

Trả lời 3 Đọc 141 Hôm qua, lúc 11:22 Duy Tùng 9x Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu

• skygatevn
• Thứ tư lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 105 Thứ tư lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 322 Thứ tư lúc 12:43 GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 14 Đọc 429 Thứ tư lúc 10:20 dieppk.nb92 D CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 901 Thứ tư lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 590 Thứ hai lúc 16:19 eagle12 E H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 155 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 190 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 173 Chủ nhật lúc 00:02 dungpham01 D Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 37
• thanthanhan 22
• dungpham01 19
• ongke0711 19
• eagle12 16
• ptm0412 16
• nguyenanhtruong2409 16
• Phan Thế Hiệp 13
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 9
• dieppk.nb92 8
• Gà Con yêu VBA 8
• bsbnhh 7
• duongnhuxuyen 7
• Hana2610 6
• kaoehtkid 6

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 64
• Maika8008 30
• thanthanhan 18
• ongke0711 17
• ptm0412 16
• HeSanbi 12
• dungpham01 11
• HUONGHCKT 9
• eagle12 9
• Cúc Hr 8
• dieppk.nb92 6
• Mr.hieudoanxd 5
• SA_DQ 5
• pycckuu410 5
• befaint 5
• Phuocam 4
• nguyenanhtruong2409 4
• nhhnam 2
• Mr_Siro 2
• Gà Con yêu VBA 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom