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

Thành viên sơ cấp
27/7/07
5
0
0
31
TP. Hồ Chí Minh
#1
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,
 
darkmoon

darkmoon

Tiền và tiền $$$
12/9/03
404
9
0
36
HCM
#2
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

Thích: thao nguyen1816
T

trucmai28780

Thành viên sơ cấp
31/7/07
1
0
1
Ha noi
#3
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

Thành viên sơ cấp
27/7/07
5
0
0
31
TP. Hồ Chí Minh
#4
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

Thành viên sơ cấp
15/3/06
5
0
0
Sài Gòn
#5
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

Thành viên sơ cấp
3/7/08
1
0
0
29
hcm
#6
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

Thành viên sơ cấp
18/7/08
1
0
0
40
long an
#7
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

Thành viên sơ cấp
17/9/08
3
0
0
Hà Nội
#8
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

Thành viên thân thiết
11/12/05
436
3
16
Bac Giang
#9
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

Thành viên sơ cấp
6/2/09
2
0
0
hcm
#10
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.
 
H

huynh duc thang

Thành viên sơ cấp
10/1/09
3
0
0
quang ngai
#12
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

Thành viên sơ cấp
9/9/09
7
0
0
Tp.HCM
#14
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

Thành viên sơ cấp
29/4/09
16
0
0
Quang ngai
#15
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

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

phuongdinh

Thành viên sơ cấp
24/10/08
24
0
1
chau doc
#17
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

Thành viên sơ cấp
8/12/09
1
0
0
32
ha noi
#18
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
 

Thành viên trực tuyến

Không có thành viên trực tuyến.

Xem nhiều