Hàm đọc số thành chữ với font unicode (chỉ giáo dùm)
- Thread starter cop con
- Ngày gửi
darkmoon
Tiền và tiền $$$
File sưu tầm từ internet (không nhớ tác giả)
trucmai28780
Sơ cấp
Ham doc so thanh chu voi font unicode
Bạn thân mến
Có 2 cách để bạn sử dụng được font unicode
- Cách 1: Bạn sử dụng chương trình unikey để chuyển font từ vni sang unicode
- Cách 2: Bạn quay trở lại Module cũ sửa lại tất cả những từ như "một", "hai", "ba", "bốn",... "mười"... "nghìn", "đồng", ... gõ bằng bộ gõ Unicode
Save lại
Từ lần sau khi bạn dùng hàm này sẽ chuyển cho bạn về font unicode
Chúc bạn thành công
Bạn thân mến
Có 2 cách để bạn sử dụng được font unicode
- Cách 1: Bạn sử dụng chương trình unikey để chuyển font từ vni sang unicode
- Cách 2: Bạn quay trở lại Module cũ sửa lại tất cả những từ như "một", "hai", "ba", "bốn",... "mười"... "nghìn", "đồng", ... gõ bằng bộ gõ Unicode
Save lại
Từ lần sau khi bạn dùng hàm này sẽ chuyển cho bạn về font unicode
Chúc bạn thành công
Cảm ơn mọi người, các bạn rất nhiệt tình chia sẻ kiến thức của mình. Mình đã đọc trong hàm của bạn Darkmoon, sau đó bắt chước để đổi các giá trị "một", "hai"... thàn font unicode với hàm chrW rất thành công.
Cảm ơn một lần nữa
PS: mình không thấy hối tiết khi tham gia diễn đàn này.
Cảm ơn một lần nữa
PS: mình không thấy hối tiết khi tham gia diễn đàn này.
Function VNUnicode(baonhieu)
Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String
Dim i, J, ViTri As Byte, S As Double
Dim Hang, Doc, Dem
If baonhieu = 0 Then
KetQua = "Kh" & ChrW$(244) & "ng " & ChrW$(273) & ChrW$(7891) & "ng"
Else
If Abs(baonhieu) >= 1E+15 Then
KetQua = "S" & ChrW$(7889) & " qu" & ChrW$(225) & " l" & ChrW$(7899) & "n - H" & ChrW$(224) & "m " & ChrW$(273) & ChrW$(7893) & "i s" & ChrW$(7889) & " ra ch" & ChrW$(7919) & " Vi" & ChrW$(7879) & "t Nam; font ch" & ChrW$(7919) & " .Vntime - Copyright by MaiKa of AQN (0953-357-988)"
Else
If baonhieu < 0 Then
KetQua = ChrW$(194) & "m" & Space(1)
Else
KetQua = Space(0)
End If
SoTien = Format(Abs(baonhieu), "##############0.00")
SoTien = Right(Space(15) & SoTien, 18)
Hang = Array("None", "tr" & ChrW$(259) & "m", "m" & ChrW$(432) & ChrW$(417) & "i", "g" & ChrW$(236) & " " & ChrW$(273) & "ã")
Doc = Array("None", "ng" & ChrW$(224) & "n t" & ChrW$(272), "t" & ChrW$(272), "tri" & ChrW$(7879) & "u", "ng" & ChrW$(224) & "n", ChrW$(273) & ChrW$(7891) & "ng", "")
Dem = Array("None", "m" & ChrW$(7897) & "t", "hai", "ba", "b" & ChrW$(7889) & "n", "n" & ChrW$(259) & "m", "s" & ChrW$(225) & "u", "b" & ChrW$(7849) & "y", "t" & ChrW$(225) & "m", "ch" & ChrW$(237) & "n")
For i = 1 To 6
Nhom = Mid(SoTien, i * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If i = 5 Then
Chu = ChrW$(273) & ChrW$(7891) & "ng" & Space(1)
Else
Chu = Space(0)
End If
Case ".00"
Chu = "ch" & ChrW$(7861) & "n"
Case Else
S1 = Left(Nhom, 1)
S2 = Mid(Nhom, 2, 1)
S3 = Right(Nhom, 1)
Chu = Space(0)
Hang(3) = Doc(i)
For J = 1 To 3
Dich = Space(0)
S = Val(Mid(Nhom, J, 1))
If S > 0 Then
Dich = Dem(S) & Space(1) & Hang(J) & Space(1)
End If
Select Case J
Case 2 And S = 1
Dich = "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1)
Case 3 And S = 0 And Nhom <> Space(2) & "0"
Dich = Hang(J) & Space(1)
Case 3 And S = 5 And S2 <> Space(1) And S2 <> "0"
Dich = "l" & Mid(Dich, 2)
Case 2 And S = 0 And S3 <> "0"
If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And i = 4) Then
Dich = "l" & ChrW$(7867) & Space(1)
End If
End Select
Chu = Chu & Dich
Next J
End Select
ViTri = InStr(1, Chu, "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7897) & "t", 1)
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7889) & "t"
KetQua = KetQua & Chu
End If
Next i
End If
End If
VNUnicode = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
End Function
Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String
Dim i, J, ViTri As Byte, S As Double
Dim Hang, Doc, Dem
If baonhieu = 0 Then
KetQua = "Kh" & ChrW$(244) & "ng " & ChrW$(273) & ChrW$(7891) & "ng"
Else
If Abs(baonhieu) >= 1E+15 Then
KetQua = "S" & ChrW$(7889) & " qu" & ChrW$(225) & " l" & ChrW$(7899) & "n - H" & ChrW$(224) & "m " & ChrW$(273) & ChrW$(7893) & "i s" & ChrW$(7889) & " ra ch" & ChrW$(7919) & " Vi" & ChrW$(7879) & "t Nam; font ch" & ChrW$(7919) & " .Vntime - Copyright by MaiKa of AQN (0953-357-988)"
Else
If baonhieu < 0 Then
KetQua = ChrW$(194) & "m" & Space(1)
Else
KetQua = Space(0)
End If
SoTien = Format(Abs(baonhieu), "##############0.00")
SoTien = Right(Space(15) & SoTien, 18)
Hang = Array("None", "tr" & ChrW$(259) & "m", "m" & ChrW$(432) & ChrW$(417) & "i", "g" & ChrW$(236) & " " & ChrW$(273) & "ã")
Doc = Array("None", "ng" & ChrW$(224) & "n t" & ChrW$(272), "t" & ChrW$(272), "tri" & ChrW$(7879) & "u", "ng" & ChrW$(224) & "n", ChrW$(273) & ChrW$(7891) & "ng", "")
Dem = Array("None", "m" & ChrW$(7897) & "t", "hai", "ba", "b" & ChrW$(7889) & "n", "n" & ChrW$(259) & "m", "s" & ChrW$(225) & "u", "b" & ChrW$(7849) & "y", "t" & ChrW$(225) & "m", "ch" & ChrW$(237) & "n")
For i = 1 To 6
Nhom = Mid(SoTien, i * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If i = 5 Then
Chu = ChrW$(273) & ChrW$(7891) & "ng" & Space(1)
Else
Chu = Space(0)
End If
Case ".00"
Chu = "ch" & ChrW$(7861) & "n"
Case Else
S1 = Left(Nhom, 1)
S2 = Mid(Nhom, 2, 1)
S3 = Right(Nhom, 1)
Chu = Space(0)
Hang(3) = Doc(i)
For J = 1 To 3
Dich = Space(0)
S = Val(Mid(Nhom, J, 1))
If S > 0 Then
Dich = Dem(S) & Space(1) & Hang(J) & Space(1)
End If
Select Case J
Case 2 And S = 1
Dich = "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1)
Case 3 And S = 0 And Nhom <> Space(2) & "0"
Dich = Hang(J) & Space(1)
Case 3 And S = 5 And S2 <> Space(1) And S2 <> "0"
Dich = "l" & Mid(Dich, 2)
Case 2 And S = 0 And S3 <> "0"
If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And i = 4) Then
Dich = "l" & ChrW$(7867) & Space(1)
End If
End Select
Chu = Chu & Dich
Next J
End Select
ViTri = InStr(1, Chu, "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7897) & "t", 1)
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7889) & "t"
KetQua = KetQua & Chu
End If
Next i
End If
End If
VNUnicode = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
End Function
nguyenthu2911
Sơ cấp
Ai có file dịch số tiền bằng số sang chữ làm ơn cho xin với!!!!!!!
Mình cũng có 1 file nhưng bị lỗi rồi, không khắc phục được!!!
thanks in advance!!!!
Mình cũng có 1 file nhưng bị lỗi rồi, không khắc phục được!!!
thanks in advance!!!!
Số viết bằng chữ
Hàm này em tự viết, các anh chị dùng thử cho em xin ý kiến. Nó trả về các kiểu Unicode, TCVN3 và VNI tùy tham số truyền vào.
Download here (chờ tí để nó quét virus).
Thank.
Ghi chú: bản cập nhật ngày 19/09.
Hàm này em tự viết, các anh chị dùng thử cho em xin ý kiến. Nó trả về các kiểu Unicode, TCVN3 và VNI tùy tham số truyền vào.
Download here (chờ tí để nó quét virus).
Thank.
Ghi chú: bản cập nhật ngày 19/09.
Sửa lần cuối:
Cách này không được đâu.
Các ký tự có dấu tiếng Việt phải được thay bằng code của nó VD ChrW$(7897) là chữ ộ
minhchuyen
Sơ cấp
Mình là thành viên mới, có tải file đổi số ra chữ nhưng khi thực hiện chúng không phân biệt được số "năm" hay "lăm" xin các bạn chỉ giáo. Thanks.
huynh duc thang
Sơ cấp
Xin chào các anh, chi..! Mình là thành viên mới, anh chị nào có file chuyển số ra chữ viết cho mình xin với. Cảm ơn nhiều lắm.
hoangdanh282vn
Trung cấp
phuongdinh
Sơ cấp
các bạn ơi sao mỗi lần mình đổi số thành chữ phải mình phải bấm vào số chuyển sang chữ, cùng 1 ô minh thay đổi số chữ không thay đổi theo là sao vậy các bạn, chỉ cho mình với
bác nào chỉ dùm tui với. Sao may file tôi downloads ở đây về máy tui chẳng mở được vậy? gửi về email hô tui nha, cảm ơn rất rất nhìu
hoamoclanhhd@yahoo.com
hoamoclanhhd@yahoo.com
linhphuong123
Sơ cấp
Bạn Darkmoon ơi mình có tải file của bạn vể rồi nhưng không biết phải làm gì tiếp theo nữa. Phải làm gì thì công tức hàm vnunicode(round(C9,o)) mới xài được hả bạn.
Cảm ơn bạn nhiều nhé
timbolac
Học việc
Các Bạn tham khảo ở đây nhé:
http://www.giaiphapexcel.com/forum/showthread.php?5200-Đổi-số-ra-chữ
http://www.giaiphapexcel.com/forum/showthread.php?5200-Đổi-số-ra-chữ