Viết hàm từ số tự động đọc sang chữ (1 người xem)
- Thread starter luaminep
- Ngày gửi
Người dùng đang xem chủ đề này
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
Làm gì có chuyện có gõ số ở 1 ô Enter mà lại ra chữ ở ô khác
Trừ khi Ô khác = vnd()
hoặc ô khác = sorachu()
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
Bạn chép đoạn Code dưới vào Module trong cửa sổ VBA
nhập công thức =sorachu(A1) với A1 là ô chứa số , chọn fonts Times New Roman
Mã:
Function UnicodeChar(UniCharCode As String) As String
On Error GoTo Loi
Dim str
Dim desStr As String
Dim I
If Mid(UniCharCode, 1, 1) = ";" Then
UniCharCode = Mid(UniCharCode, 2)
End If
If Right(UniCharCode, 1) = ";" Then
UniCharCode = Mid(UniCharCode, 1, Len(UniCharCode) - 1)
End If
str = UniCharCode
str = Split(str, ";")
For I = LBound(str) To UBound(str)
desStr = desStr & ChrW$("&H" & str(I))
Next
UnicodeChar = desStr
Loi:
Exit Function
End Function
Function SoRaChu(ByVal NumCurrency As Currency) As String
Static CharVND(9) As String, BangChu As String, I As Integer
Dim SoLe, SoDoi As Integer, PhanChan, Ten As String
Dim DonViTien As String, DonViLe As String
Dim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As Integer
Dim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As Integer
DonViTien = ";111;1ED3;6E;67" ' ?o^`ng
DonViLe = ";78;75" ' xu
If NumCurrency = 0 Then
SoRaChu = UnicodeChar(";4B;68;F4;6E;67;20" & DonViTien)
Exit Function
End If
If NumCurrency > 922337203685477# Then ' So^' lo+'n nha^'t cu?a loa.i CURRENCY
SoRaChu = UnicodeChar(";4B;68;F4;6E;67;20;111;1ED5;69;20;111;1B0;1EE3;63;20;73" & _
";1ED1;20;6C;1EDB;6E;20;68;1A1;6E;20;39;32;32;2C;33;33;37" & _
";2C;32;30;33;2C;36;38;35;2C;34;37;37")
Exit Function
End If
CharVND(1) = ";6D;1ED9;74" ' mo^.t
CharVND(2) = ";68;61;69" ' hai
CharVND(3) = ";62;61" ' ba
CharVND(4) = ";62;1ED1;6E" ' bo^'n
CharVND(5) = ";6E;103;6D" ' na(m
CharVND(6) = ";73;E1;75" ' su
CharVND(7) = ";62;1EA3;79" ' ba?y
CharVND(8) = ";74;E1;6D" ' tm
CharVND(9) = ";63;68;ED;6E" ' chn
CharVND(0) = ";78;75"
SoLe = Int((NumCurrency - Int(NumCurrency)) * 100) ' 2 k so^'
PhanChan = Trim$(str$(Int(NumCurrency)))
PhanChan = Space(15 - Len(PhanChan)) + PhanChan
NganTy = 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 Then
BangChu = ";6B;68;F4;6E;67;20" + DonViTien + ";20"
I = 5
Else
BangChu = ""
I = 0
End If
'-----------------------------------------------------
' Ba('t ?a^`u ?o^?i
'-----------------------------------------------------
While I <= 5
Select Case I
Case 0
SoDoi = NganTy
Ten = ";6E;67;68;EC;6E;20;74;1EF7" 'ngh×n ty?
Case 1
SoDoi = Ty
Ten = ";74;1EF7" ' ty?
Case 2
SoDoi = Trieu
Ten = ";74;72;69;1EC7;75" ' trie^.u
Case 3
SoDoi = Ngan
Ten = ";6E;67;68;EC;6E" 'ngh×n
Case 4
SoDoi = Dong
Ten = DonViTien ' ?o^`ng
Case 5
SoDoi = SoLe
Ten = DonViLe ' xu
End Select
If SoDoi <> 0 Then
Tram = Int(SoDoi / 100)
Muoi = Int((SoDoi - Tram * 100) / 10)
DonVi = (SoDoi - Tram * 100) - Muoi * 10
If Right(BangChu, 3) = ";20" Then
BangChu = Left(BangChu, Len(BangChu) - 3)
End If
BangChu = BangChu + IIf(Len(BangChu) = 0, "", ";2C;20") + _
IIf(Tram <> 0, Trim(CharVND(Tram)) + ";20;74;72;103;6D;20", "")
If Muoi = 0 And Tram <> 0 And DonVi <> 0 Then
BangChu = BangChu + ";6C;1EBB;20"
Else
If Muoi <> 0 Then
BangChu = BangChu + IIf(Muoi <> 0 And Muoi <> 1, _
Trim(CharVND(Muoi)) + ";20;6D;1B0;1A1;69;20", ";6D;1B0;1EDD;69;20")
End If
End If
If Muoi <> 0 And DonVi = 5 Then
BangChu = BangChu + ";6C;103;6D;20" + Ten + ";20"
Else
If Muoi > 1 And DonVi = 1 Then
BangChu = BangChu + ";6D;1ED1;74;20" + Ten + ";20"
Else
BangChu = BangChu + IIf(DonVi <> 0, Trim(CharVND(DonVi)) + ";20" + Ten, Ten) + ";20"
End If
End If
Else
BangChu = BangChu + IIf(I = 4, DonViTien + "", "")
End If
I = I + 1
Wend
If Right(BangChu, 3) = ";20" Then
BangChu = Left(BangChu, Len(BangChu) - 3)
End If
BangChu = BangChu + IIf(Len(BangChu) = 0, "", ";2e;20")
If SoLe = 0 Then
BangChu = BangChu + IIf(Right(BangChu, 3) = 0, "", ";20")
End If
BangChu = UnicodeChar(BangChu)
'?o^?i sang tie^'ng Vie^.t Unicode
' ?o^?i chu+~ ci ?a^`u tin thnh chu+~ hoa
Mid$(BangChu, 1, 1) = UCase$(Mid$(BangChu, 1, 1))
SoRaChu = BangChu
End Function
Lần chỉnh sửa cuối:
nhat chi mai
Thành viên gắn bó
- Tham gia
- 22/11/11
- Bài viết
- 1,832
- Được thích
- 9
CÓ hàm không anh LeVan? em biết cách copy và cho đoạn code chạy nhưng không hiểu gì hết ạ..
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,076
- Được thích
- 8,007
- Nghề nghiệp
- Làm đủ thứ
Thì cứ xài đi, hiểu chi cho mệt hả em. Biết áp dụng là mừng rồi. Anh cũng như em thôi.CÓ hàm không anh LeVan? em biết cách copy và cho đoạn code chạy nhưng không hiểu gì hết ạ..
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
Hàm là =sorachu() đó côCÓ hàm không anh LeVan? em biết cách copy và cho đoạn code chạy nhưng không hiểu gì hết ạ..
Anh đang sử dụng add in này đó. A đã nhờ anh nghĩa sửa chữ "ngàn" thành "nghìn" rồi đó
Cô thử xem đi
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
1) Cảm ơn ai thì dưới mỗi bài viết của người ta đều có nút "Cảm ơn"
2) Mở Excel nhấn Alt + F11. Chọn Insert Module . Copy đoạn code bài #4 và Paste vào màn hình vừa tạo bên phải. nhấn Alt+Q
Sử dụng hàm như bài #4
nhat chi mai
Thành viên gắn bó
- Tham gia
- 22/11/11
- Bài viết
- 1,832
- Được thích
- 9
Bạn làm như cách sau nhé, tớ thử rồi chạy được đó (MẶC DÙ TỚ KHÔNG BIẾT VIẾT CODE)
CÁCH CHẠY VBA COPY
Bạn mở 1 file Excel nhấn Alt+F11 chọn Insert Module và Copy code trên Paste vào Module vừa tạo
Nhấn Alt+Q
Tại cửa sổ Excel tại D7=Ghep(C7) Enter --->OK
nhat chi mai
Thành viên gắn bó
- Tham gia
- 22/11/11
- Bài viết
- 1,832
- Được thích
- 9
Em nhấn cảm ơn rồi mà hihi, hay đó Anh Vanle nhưng còn điều này nữa em muốn hỏi thêm này.
Code thường thì ở dạng Macro kiểu (Sub gì đó()... End Sub) thì sẽ được lưu trong Module. Bạn làm như sau: Nhấn Alt + F11 -> Nhấn phải chuột lên các tên sheet -> Chọn Insert Module -> Rồi Paste vào trong Module đó. Để chạy thì có thể nhấn vào lệnh Run (Hình mũi tên xanh phía trên) hoặc vào lại trang bảng tính Excel nhấn Alt + F8 -> Chọn tên sub vừa rồi -> Run.
Còn 1 số code khác có định dạng kiểu (Function gì đó(...) ... End Function) thì cũng nằm trong Module nhưng không chạy được bằng lệnh Run mà phải chạy chúng kiểu như dùng các hàm IF, SUM hay SUMPRODUCT vậy.
Còn 1 dạng code cuối cùng là các code thường được bắt đầu bằng Private Sub Worksheet hoặc Private Sub Workbook thì đặt chúng trong các tên Sheet ở VBA hoặc nằm trong ThisWorkbook luôn.
Thế làm sao biết được code viết như thế nào để mà biết cách cho nó chạy ạ???em mới lội xuống nước thôi, chưa bơi được "TRỜI MẤY LÂU NAY LẠNH" nên rét lắm huhu...
Nhưng sẽ cố gắng ...!giải thích giùm em nha.
luongtranap82
Thành viên chính thức
- Tham gia
- 21/3/10
- Bài viết
- 71
- Được thích
- 22
Cái này trên mạng có rất nhiều rồi, dowload về add-in là xong mà.
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
1) A nói thành viên kia chưa biết cám ơn thì a hướng dẫn vậy, a ko nói cô chưa cảm ơn. hiii
2) Như những dòng chữ xanh của cô đó
Hàm ở đây là =sorachu()
Quan trọng là cô đã thử và chạy được Code chưa?
Ví dụ A1=123456 thì B1 là Một trăm hai mươi ba nghìn, bốn trăm năm mươi sáu đồng. chưa???
nhat chi mai
Thành viên gắn bó
- Tham gia
- 22/11/11
- Bài viết
- 1,832
- Được thích
- 9
Em trêu tí cho vui thôi mà.hihi, em cho chạy thử rồi, Anh xem file nha, nhưng ý em hỏi là nhận biết dạng code để mà chạy cơ "dòng chữ màu xanh" ạ.
thanhlanh
Thành viên tích cực
- Tham gia
- 21/2/08
- Bài viết
- 858
- Được thích
- 1,211
Thấy bạn hỏi ngu ngơ giống như mình một vài năm về trước, bạn hãy đi tìm với từ khóa Private và Public thì sẽ biết, mình giải thích sơ qua cho bạn (hoặc bạn nào chưa biết), vì đây không phải là chủ đề của Toppic này.
Private và Public là các từ khóa thường dùng để đứng trước thủ tục (Sub) hoặc hàm (Function) để giới hạn phạm vi hoạt động/sử dụng của thủ tục hoặc hàm đó. (Ngoài ra còn có các từ khóa khác nhưng trong VBA thông thường hầu như không sử dụng. Khi nào bạn nghiên cứu đến tầm cao hơn như API, Class ... sẽ biết thêm)
- Khi đặt Private trước từ khóa Sub hoặc Function nào thì thủ tục/hàm đó chỉ dùng được trong Module nó đang đứng.
- Khi đặt Public trước từ khóa Sub hoặc Function thì thủ tục/hàm đó được dùng chung cho tất cả các Module, Sheet, ThisWorkbook. Khi không đặt gì thì VB/VBA ngầm mặc định là Public. Nhưng muốn dùng chung lại còn phải đặt thủ tục/hàm trong module. Đặt thủ tục/hàm trong Sheet không thể dùng chung và không dùng trên Cells được. Vì vậy người ta thường đặt code trong module nhất là đối với hàm, muốn dùng trên Cells thì nhất thiết phải đặt trong Module.
- Vì thủ tục/hàm đặt trong Sheet chỉ hoạt động được trong Sheet đó nên bạn có cho nó là Public cũng chẳng tác dụng gì. Vì vậy trong Sheet, Workbook chỉ có thể và thường là Private.
Bạn hãy thí nghiệm bằng cách sau: Dời hai thủ tục này đi khắp các nơi: Module1, Module2, Sheet1, Sheet2 ... ; có và không có Private đứng trước.
'Thủ tuc1
Sub MySub1()
MsgBox "MySub1 co mat"
End Sub
'Thủ tuc2 "goi thủ tục 1"
Sub MySub2()
MySub1
End Sub
Sau một hồi cắt, dán, thêm Private, xóa Private, Run, OK ... khi nào nó chóng mặt thì bạn sẽ rút ra được kinh nghệm cho mình.
-------
Còn nữa, kỳ tới: Hàm/thủ tục có chứa tham số. (Bạn nào viết giùm!)
Good-Luck
Thành viên tiêu biểu
- Tham gia
- 21/4/10
- Bài viết
- 595
- Được thích
- 925
Anh này khéo nói đùa ghê, lão tổ về code mà khiêm tốn thế
,
nhưng thừa nhận code này nhìn vô phê quá. có cách ngăn hơn ko????
Anh ơi cho em hỏi là, e dùng hàm anh chỉ đã ra được phép hết rồi, tuy nhiên khi save dưới dạng macro thì mở lại, hàm lại bị lỗi #name ạ
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
Bạn save file định dạng .xls (hoặc .xlsm hoặc .xlsb) chưa? Nếu save thành .xlsx là code trong file bị tiêu diệt luôn đó.
[Các kiểu định dạng file là trong mục Save as type đó khi thực hiện Save as file đó (tương đương nhấn F12)].
Quyhocexel
Thành viên mới
- Tham gia
- 23/11/22
- Bài viết
- 1
- Được thích
- 0
bác cho em hỏi muốn thêm dòng chữ: "Tổng số tiền ghi bằng chữ:" thì làm thế nào ạ
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
Công thức tại cell nào đó bạn định đặt
Mã:
"Tổng số tiền ghi bằng chữ: "&SoRaChu(A1)- Tham gia
- 6/8/08
- Bài viết
- 1,815
- Được thích
- 1,163
- Giới tính
- Nam
Sửa dòng áp út:
SoRaChu = ("T" & ChrW(7893) & "ng s" & ChrW(7889) & " ti" & ChrW(7873) & "n ghi b" & ChrW(7857) & "ng ch" & ChrW(7919) & ": ") & BangChu
Mình xin đóng góp 1 hàm viết số ra chữ.
Ở đây đang chỉ dùng cho số nguyên, chưa dùng cho số thập phân.
Sơ sơ thì hàm nó như sau:
Dùng mid, text để tách cụm 3 số một, kết hợp với hàm sequence để tạo mảng số.
Dùng hàm choose để đổi số thành chữ, và dùng if để lựa chọn các trường hợp.
Cuối cùng dùng hàm trim, concat để nối các phần tử thành chữ số cuối cùng.
Vì muốn chỉ dùng 1 hàm, không sử dụng ô phụ nên hàm nó dài, sơ sơ tầm 10 dòng, mình có tách bằng xuống hàng để dễ theo dõi.
Hàm mình viết ở office 365. Mình cũng đã thử vài số đặc biệt rồi, nhưng có thể chưa hết các trường hợp, nhờ mọi người thử xem còn lỗi ở đâu để sửa. Nhưng chắc là tầm số từ ngàn tỷ đổ xuống là ngon lành.
Xin ý kiến đóng góp của mọi người để mình hoàn thiện cái hàm này hơn.
Hàm MOD hình như số lớn quá nó báo lỗi hay sao,
Ở đây đang chỉ dùng cho số nguyên, chưa dùng cho số thập phân.
Sơ sơ thì hàm nó như sau:
Dùng mid, text để tách cụm 3 số một, kết hợp với hàm sequence để tạo mảng số.
Dùng hàm choose để đổi số thành chữ, và dùng if để lựa chọn các trường hợp.
Cuối cùng dùng hàm trim, concat để nối các phần tử thành chữ số cuối cùng.
Vì muốn chỉ dùng 1 hàm, không sử dụng ô phụ nên hàm nó dài, sơ sơ tầm 10 dòng, mình có tách bằng xuống hàng để dễ theo dõi.
Hàm mình viết ở office 365. Mình cũng đã thử vài số đặc biệt rồi, nhưng có thể chưa hết các trường hợp, nhờ mọi người thử xem còn lỗi ở đâu để sửa. Nhưng chắc là tầm số từ ngàn tỷ đổ xuống là ngon lành.
Xin ý kiến đóng góp của mọi người để mình hoàn thiện cái hàm này hơn.
Hàm MOD hình như số lớn quá nó báo lỗi hay sao,
Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 6,249
- Được thích
- 5,933
Cách dùng hàm này thế nào bạn nhỉ?
À, hàm đang đọc số ở ô a2, bạn copy cái hàm ở ô thứ 2 cột cuối cùng là được, mấy ô ở giữa là mình dùng để mô tả từng bước làm thôi.
Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 6,249
- Được thích
- 5,933
Vậy thì dài quá nhỉ, không lẽ mỗi lần dùng lại đi copy lại hàm sao.
XUANKIETQNG
Thành viên mới
- Tham gia
- 22/1/14
- Bài viết
- 23
- Được thích
- 2
Em có file này nhờ anh/chị hổ trợ giúp em với ạ
Nhu cầu:
1/ Tách tên đường riêng ra 1 cột
2/ tách địa chỉ nhà ra 1 cột
Em đang bị vướng chổ địa chỉ không lọc ra được ạ.
ví dụ: Hẻm 114/17/1 Lê Trung Đình. cấn tách ra : địa chỉ: 114 Tên đường: Lê Trung Đình
Mong anh chị giúp em với ạ
Nhu cầu:
1/ Tách tên đường riêng ra 1 cột
2/ tách địa chỉ nhà ra 1 cột
Em đang bị vướng chổ địa chỉ không lọc ra được ạ.
ví dụ: Hẻm 114/17/1 Lê Trung Đình. cấn tách ra : địa chỉ: 114 Tên đường: Lê Trung Đình
Mong anh chị giúp em với ạ
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
@LmoovoenX : Bắt buộc phải có hàm SEQUENCE trong công thức của bạn?
Nếu đúng thì chưa áp dụng đọc số cho mọi người được. Vì giới hạn sử dụng của hàm SEQUENCE.
Dùng công thức để đọc số cũng được nhưng áp dụng cho được nhiều người (dùng Excel thế hệ từ 2000 đến 2022) thì hay hơn.
Tối ưu hơn công thức đó là sử dụng code trên file hoặc Add-ins.
Bạn xem, áp dụng thử công thức ở link.
Nếu đúng thì chưa áp dụng đọc số cho mọi người được. Vì giới hạn sử dụng của hàm SEQUENCE.
Dùng công thức để đọc số cũng được nhưng áp dụng cho được nhiều người (dùng Excel thế hệ từ 2000 đến 2022) thì hay hơn.
Tối ưu hơn công thức đó là sử dụng code trên file hoặc Add-ins.
Bạn xem, áp dụng thử công thức ở link.
Đúng vậy bạn, Excel cũ thì mình đang dùng ô phụ, khá bất tiện. Code thì mình chưa được học, add-ins chắc là hay nhất.
Có cách nào bỏ được hàm SEQUENCE trong hàm trên không nhỉ?
Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 6,249
- Được thích
- 5,933
Đăng bài mới đi bạn, đây là chủ đề khác nôi dung bài của bạn mà.
Chịu thôi, mình đang cố gắng rút gọn lại. Đang nghiên cứu từ từ.
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
Tôi chưa bao giờ dùng hàm SEQUENCE nên không biết bỏ hàm đó đi trong file đó. Lúc nào cài Office đời cao thì mới thử dùng.
Bạn đọc link tôi đính kèm ở bài #27 chưa?
Thực sự thì thấy hàm dài quá, và bạn chụp dạng ảnh mình không copy công thức được nên chỉ nhìn qua thôi.
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,962
- Được thích
- 4,009
- Giới tính
- Nam
Tất nhiên là có công thức thì tôi mới chụp ảnh công thức đó chứ.
File của bạn nnt32002 đăng lên ngày 11/10/22.
(trong link của link ấy)
Công thức này cơ bản là chia số ra thành từng chữ số rồi đọc, nhưng liệt kê hết các trường hợp ra nên dài quá.Tất nhiên là có công thức thì tôi mới chụp ảnh công thức đó chứ.
File của bạn nnt32002 đăng lên ngày 11/10/22.
(trong link của link ấy)
Mình mới làm file mới, không dùng hàm sequence, cơ bản cũng như công thức ở #22.
Mình cũng đã lưu ở định dạng xls, hi vọng nó hoạt động tốt ở các phiên bản cũ của Excel.
Công thức trong ô màu vàng để đọc số ở ô A9, nhờ mọi người thử các trường hợp coi còn lỗi gì không.
Chỗ này mình mới làm cho nó đọc các số từ 15 chữ số trở xuống, nếu ai muốn số to hơn thì thêm vào mảng {1;4;7;10...} và thêm đơn vị ở cái ô xanh nếu cần.
Cảm ơn mọi người nhiều.
- Tham gia
- 6/8/08
- Bài viết
- 1,815
- Được thích
- 1,163
- Giới tính
- Nam
Hiện bạn mới cho dấu "," ở tỷ thôi, chắc nên thêm cho phần triệu, nghìn nhỉ? Chắc là đại gia rồi.
Mà để lập ra bảng này thực sự là quá vất vả và công phu.
Nếu được nữa thì bạn có thể gom lại cho gọn được không? Chỉ cần 2 ô, 1 nhập số, 1 thành tiền.
Thì chỉ có 2 ô thôi, ô màu vàng với ô a9. Mấy ô còn lại để theo dõi quá trình làm thôi.
Thích để dấu phẩy ở đâu thì bạn vào hẳn công thức ở ô màu vàng mà sửa.
