Hàm đọc số thành chữ với font unicode (chỉ giáo dùm)

  • Thread starter cop con
  • Ngày gửi
C

cop con

Guest
27/7/07
5
0
0
36
TP. Hồ Chí Minh
Chào các bạn,
mình sử dụng hàm đọc số thành chữ trong diễn đàn này, nhưng những hàm này chỉ dùng được khi dùng cho font VNI, con dùng cho font unicode thi "bo tay". Bạn nào có cách nào giải quyết để hàm có thể dùng với font unicode thi chỉ giáo dùm.
Cảm on nhiều,
 
Khóa học Quản trị dòng tiền
darkmoon

darkmoon

Tiền và tiền $$$
12/9/03
402
11
0
42
HCM
Chào các bạn,
mình sử dụng hàm đọc số thành chữ trong diễn đàn này, nhưng những hàm này chỉ dùng được khi dùng cho font VNI, con dùng cho font unicode thi "bo tay". Bạn nào có cách nào giải quyết để hàm có thể dùng với font unicode thi chỉ giáo dùm.
Cảm on nhiều,
File sưu tầm từ internet (không nhớ tác giả)
 

Đính kèm

  • VNUD.zip
    1 KB · Lượt xem: 2,560
  • Like
Reactions: thao nguyen1816
T

trucmai28780

Guest
31/7/07
1
0
1
Ha noi
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

Chào các bạn,
mình sử dụng hàm đọc số thành chữ trong diễn đàn này, nhưng những hàm này chỉ dùng được khi dùng cho font VNI, con dùng cho font unicode thi "bo tay". Bạn nào có cách nào giải quyết để hàm có thể dùng với font unicode thi chỉ giáo dùm.
Cảm on nhiều,
 
C

cop con

Guest
27/7/07
5
0
0
36
TP. Hồ Chí Minh
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.
 
B

bietlamgi

Guest
15/3/06
5
0
0
Sài Gòn
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
 
N

nguyenthu2911

Guest
3/7/08
1
0
0
35
hcm
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!!!!
 
C

chuongevn

Guest
18/7/08
1
0
0
46
long an
Các bạn sửa chữ "bẩy" thành "bảy" trong Module Số thành Chữ giúp mình nha!
 
T

Typer

Guest
17/9/08
3
0
0
Hà Nội
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.
 
Sửa lần cuối:
V

Vando

Cao cấp
11/12/05
436
3
16
Bac Giang
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á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ữ ộ
 
M

minhchuyen

Guest
6/2/09
2
0
0
hcm
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.
 
D

dotanhai

Guest
4/5/09
1
0
0
52
kien giang
Mình có cái này nè
Copy trong Excel
 

Đính kèm

  • Book2.xls
    26 KB · Lượt xem: 605
H

huynh duc thang

Guest
10/1/09
3
0
0
quang ngai
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.
 
T

tuongvi76

Sơ cấp
9/9/09
7
0
0
Tp.HCM
các bạn ơi, ecxel mình o giỏi lắm. Đã chỉ rồi thì chỉ cho trót luôn nha: làm sao đánh công thức vào hàng mình cần làm? Mình muốn đổi số thành chữ trong tất cả các phiếu xuất... mà nó chỉ có 1 hàng thôi.
 
M

MINHIN

Guest
29/4/09
16
0
0
Quang ngai
ban hoi minh ko hieu gi ca" lam sao danh cong thuc vao ham minh can".con chuyen so thanh text. ban chi can boi den phan can chuyen chon. Data>text to columns>delimited>next>next chon text trong columns data format. ok the la xong.chuc ban may man
 
T

tuongvi76

Sơ cấp
9/9/09
7
0
0
Tp.HCM
bạn cho mình hỏi cách tạo chỉ mục trong ecxel?
 
P

phuongdinh

Sơ cấp
24/10/08
24
0
1
chau doc
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
 
T

thanhdoai

Guest
8/12/09
1
0
0
38
ha noi
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
 

Xem nhiều

Webketoan Zalo OA