Hàm đọc số ra chữ

[seoraovat68]

Hàm đọc số ra chữ

Hôm nay tặng các bạn hàm đọc số ra chữ để ứng dụng vào công việc của mình.

Các đặt Code trong Module:

Mở bảng tính, sau đó nhấn Alt+F11 để vào cửa sổ VBE, từ menu vào Insert > Module (nếu chưa có Module nào thì mặc định là Module1).

Tiếp theo click đúp vào Module1 cửa sổ Code hiện ra và đặt Code sau vào cửa sổ Code.

[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]SoRaChu[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal NumCurrency [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Currency[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]String[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]NumCurrency [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 ThenSoRaChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"không " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]273[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"ô" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]768[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"ng"[/COLOR][COLOR=#007700]Exit Function[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]IfIf [/COLOR][COLOR=#0000BB]NumCurrency [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]922337203685477[/COLOR][COLOR=#FF8000]# Then ' soì loìn nhaìt cua loai tieÌn[/COLOR][COLOR=#0000BB]SoRaChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"không " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]273[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"ô" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]777[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"i " [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]_        ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]273[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]432[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]803[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"c sô" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]769[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]" l " [/COLOR][COLOR=#0000BB]_         [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]769[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"n h" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"n " '012,249,443,333,651"Exit FunctionEnd IfStatic CharVND(9) As String, BangChu As String, I As IntegerDim SoLe, SoDoi As Integer, PhanChan, Ten As StringDim DonViTien As String, DonViLe As StringDim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As IntegerDim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As IntegerDonViTien = ChrW(273) & "ô" & ChrW(768) & "ng"DonViLe = "xu"CharVND(1) = "mô" & ChrW(803) & "t "CharVND(2) = "hai"CharVND(3) = "ba"CharVND(4) = "bô" & ChrW(769) & "n "CharVND(5) = "n" & ChrW(259) & "m "CharVND(6) = "sa" & ChrW(769) & "u "CharVND(7) = "ba" & ChrW(777) & "y "CharVND(8) = "ta" & ChrW(769) & "m "CharVND(9) = "chi" & ChrW(769) & "n "SoLe = Int((NumCurrency - Int(NumCurrency)) * 100)PhanChan = Trim$(Str$(Int(NumCurrency)))PhanChan = Space(15 - Len(PhanChan)) + PhanChanNganTy = Val(Left(PhanChan, 3))Ty = Val(Mid$(PhanChan, 4, 3))Trieu = Val(Mid$(PhanChan, 7, 3))Ngan = Val(Mid$(PhanChan, 10, 3))Dong = Val(Mid$(PhanChan, 13, 3))If NganTy = 0 And Ty = 0 And Trieu = 0 And Ngan = 0 And Dong = 0 ThenBangChu = "không " + DonViTien + " "I = 5ElseBangChu = ""I = 0End IfWhile I <= 5Select Case ICase 0SoDoi = NganTyTen = "nga" & ChrW(768) & "n ty" & ChrW(777)Case 1SoDoi = TyTen = "ty" & ChrW(777)Case 2SoDoi = TrieuTen = "triê" & ChrW(803) & "u"Case 3SoDoi = NganTen = "ngàn"Case 4SoDoi = DongTen = DonViTienCase 5SoDoi = SoLe'[/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]DonViLeTen [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"le" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]771[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]End Select[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]SoDoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 ThenTram [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Int[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]SoDoi [/COLOR][COLOR=#007700]/ [/COLOR][COLOR=#0000BB]100[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Int[/COLOR][COLOR=#007700](([/COLOR][COLOR=#0000BB]SoDoi [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Tram [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]100[/COLOR][COLOR=#007700]) / [/COLOR][COLOR=#0000BB]10[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000BB]SoDoi [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000BB]Tram [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]100[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]10BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]BangChu[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]BangChu[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]", "[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]_IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Tram [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CharVND[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Tram[/COLOR][COLOR=#007700])) + [/COLOR][COLOR=#DD0000]" tr" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]259[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"m "[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#007700])If [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Tram [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 ThenBangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"l? "[/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 ThenBangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]_Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CharVND[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Muoi[/COLOR][COLOR=#007700])) + [/COLOR][COLOR=#DD0000]" m" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]432[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"i "[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"m" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]432[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]417[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]768[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"i "[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]IfIf [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]5 ThenBangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"l" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]259[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"m " [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]Muoi [/COLOR][COLOR=#007700]> [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 ThenBangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"mô" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]803[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"t " [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700]Else[/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]DonVi [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]CharVND[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]DonVi[/COLOR][COLOR=#007700])) + [/COLOR][COLOR=#DD0000]" " [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Ten [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]IfElse[/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]IIf[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]I [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]DonViTien [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]I [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]I [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1Wend[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]SoLe [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0 ThenBangChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChu [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#DD0000]"ch" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]259[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#0000BB]ChrW[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]777[/COLOR][COLOR=#007700]) & [/COLOR][COLOR=#DD0000]"n)"[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]BangChu[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]UCase[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]$([/COLOR][COLOR=#0000BB]BangChu[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]))[/COLOR][COLOR=#0000BB]SoRaChu [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]BangChuEnd [/COLOR][COLOR=#007700]Function[/COLOR] 

Bất kỳ Ô cần đọc số ra chữ bạn sử dụng công thức sau:

=SoRaChu(B12)

B12 là tôi ví dụ ô có chứa dữ liệu cần đọc số ra chữ, các bạn có thể thay bằng ô khác.

Lưu ý:

- Nhớ thiết lập chế độ chạy Macro khi sử dụng hàm này.
- Nếu các bạn chưa biết cách thiết lập chế độ chạy Macro thì vào Link sau để tải File hướng dẫn ở bài #1.
- Nếu các bạn không làm được thì yêu cầu tôi sẽ Up File lên sau.

View more random threads:

• Giúp đỡ về xử lý dữ liệu giữa các sheet
• Vé máy bay có được khấu trừ thuế ko
• Tách họ và tên
• [HELP] Tổng hợp và tính tổng dữ liệu của nhiều file vào 1 file TONG HOP
• Em chào các anh chị ,em là thành viên mới !
• Tạo form nhập dữ liệu là một tập tin và xuất ra là một tập tin khác.
• Ai giúp mình viết code với
• tạo Pivot table giup mình với cả nhà!
• Hỗ trợ code tạo mục lục.
• cần các bạn giúp

[viettu169]

Ðề: Hàm đọc số ra chữ

bác be09 lại ra thêm 1 chiêu giúp anh em rồi hjhjhj

[maingocbichvn]

Ðề: Hàm đọc số ra chữ

bác be09 lại ra thêm 1 chiêu giúp anh em rồi hjhjhj

Giúp anh em cho công việc được nhẹ nhàng là trách nhiệm của những người đi trước, còn việc ứng dụng và cố gắng học hỏi cho tốt để giúp đỡ những người đi sau là trách nhiệm của những người đi kế tiếp.

[HappyMen2]

Bác bé 09 ơi làm ơn chuyển chữ chẳn thành chẵn cho em được không ak? Trong công thức em không biết sửa chỗ nào.

[kimngan]

sao e ko hieu duoc