Đổi số ra chữ với Mã phông UniCode (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
P

phontran

Thành viên mới
Tham gia
28/2/07
Bài viết
6
Được thích
5
Mình có làm được một AddIn cho Excel dùng với bảng mã UniCode, đọc tối đa 15 ký tự số. Bạn nào cần tải về dùng có gì vướng mắc cùng nhau thảo luận, tên hàm mình đã đặt như tên file.
Link tải : http://www.megaupload.com/?d=JN90DKJ3
Thông cảm nhé vì mình không biết up trong Forum.

CODE :
Public Function ChuUni(ByVal sNum As String, Optional mDong As Boolean = True) As String
On Error Resume Next
Dim arSNum(1 To 9) As String
Dim arN(32) As Byte 'Chua gia tri cua cac chu so trong chuoi
Dim i As Byte, j As Byte, k As Byte, len_ As Byte
Dim S As String
Dim stop_ As Boolean

If Len(Trim(sNum)) = 0 Then
ChuUni = "Không "
Exit Function
End If

arSNum(1) = "m" & ChrW(7897) & "t "
arSNum(2) = "hai "
arSNum(3) = "ba "
arSNum(4) = "b" & ChrW(7889) & "n "
arSNum(5) = "n" & ChrW(259) & "m "
arSNum(6) = "sáu "
arSNum(7) = "b" & ChrW(7843) & "y "
arSNum(8) = "tám "
arSNum(9) = "chín "
S = ""
sNum = dotTrim(sNum)
stop_ = True
'Kiem tra co phai la chuoi so <> 0 hay khong
For i = 1 To Len(sNum)
If Mid(sNum, i, 1) <> "0" Then stop_ = False
Next i

If stop_ Then
ChuUni = ""
Exit Function
End If
'Kiem tra co phai la chuoi so hay khong
For i = 1 To Len(sNum)
If (Asc(Mid(sNum, i, 1)) < Asc("0") Or Asc(Mid(sNum, i, 1)) > Asc("9")) And (Mid(sNum, i, 1) <> ".") Then Exit Function
Next i
'Loai bo cac so 0 ben trai chuoi
sNum = killLeftZero(sNum)
len_ = Len(sNum)
'Chuyen doi moi chu so thanh so: "9" -> 9 va gan vao mang
For i = 1 To len_
arN(i) = Asc(Mid(sNum, i, 1)) - Asc("0")
Next i
'Thuat toan: Phan chuoi so thanh tung nhom gom 3 chu so: "5676435898608"-> "5.676.435.898.608"
For i = 1 To len_ ' do begin
k = len_ - i + 1
'Chu so o vi tri hang tram (tram, tram ngan,...)=0 va hai chu so ke tiep <>0 thi doc la "khong"
If (k Mod 3 = 0) And (arN(i) = 0) And ((arN(i + 1) <> 0) Or (arN(i + 2) <> 0)) Then
S = S + "không "
End If
'Chu so khong phai la chu so dac biet ("0", "1", "5") thi doc binh thuong
If (arN(i) <> 0) And (arN(i) <> 1) And (arN(i) <> 5) Then S = S + arSNum(arN(i))
'Chu so la "5"
If arN(i) = 5 Then
'Chu so o vi tri cuoi cua mot nhom va chu so ke truoc <>0 thi doc la "lam"
If (i > 0) And (k Mod 3 = 1) And (arN(i - 1) <> 0) Then
S = S + "l" & ChrW(259) & "m "
'neu khong thi doc la "nam"
Else: S = S + "n" & ChrW(259) & "m "
End If
End If
'Chu so o vi tri cuoi cua mot nhom la "1" nhung khong o dau chuoi va chu so ke truoc > 1 thi doc la "mo^'t"
If (i > 1) And (arN(i) = 1) And (k Mod 3 = 1) And (arN(i - 1) > 1) Then
S = S + "m" & ChrW(7889) & "t "
ElseIf (k Mod 3 <> 2) And (arN(i) = 1) Then S = S + "m" & ChrW(7897) & "t " 'neu khong, doc la "mo^.t"
End If

'Chu so o vi tri giua cua mot nhom nhung <> "0" va <> "1" thi doc binh thuong + "muoi"
If (k Mod 3 = 2) And (arN(i) <> 0) And (arN(i) <> 1) Then
S = S + "m" & ChrW(432) & "" & ChrW(417) & "i "
ElseIf (k Mod 3 = 2) And (arN(i) <> 0) Then S = S + "m" & ChrW(432) & "" & ChrW(7901) & "i " 'neu khong, doc la "muo`i"
End If

'Chu so la "0" nhung o vi tri giua cua mot nhom va chu so ke sau <>"0" thi doc la "le"
If (k Mod 3 = 2) And (arN(i) = 0) And (arN(i + 1) <> 0) Then S = S + "l" & ChrW(7867) & " "
'Chu so la "0" nhung o vi tri dau nhom va chu so ke sau la "0" thi doc la "khong"
If (k Mod 3 = 0) And (arN(i) = 0) And (arN(i + 1) = 0) _
And (arN(i + 2) = 0) Then S = S + "không "

'Chu so o vi tri dau nhom thi doc binh thuong + "tram"
If (k Mod 3 = 0) Then S = S + "tr" & ChrW(259) & "m "
'Chu so o vi tri cuoi nhom thi doc binh thuong + phan mo ta cho vi tri hang cua no ("nghin", "trieu", "ty",...)
Select Case k
Case 4: S = S + "ngàn "
Case 7: S = S + "tri" & ChrW(7879) & "u "
Case 10: S = S + "t" & ChrW(7927) & " "
Case 13: S = S + "ngàn t" & ChrW(7927) & " "
Case 16: S = S + "tri" & ChrW(7879) & "u t" & ChrW(7927) & " "
Case 19: S = S + "t" & ChrW(7927) & " t" & ChrW(7927) & " "
Case 22: S = S + "ngàn t" & ChrW(7927) & " t" & ChrW(7927) & " "
Case 25: S = S + "tri" & ChrW(7879) & "u t" & ChrW(7927) & " t" & ChrW(7927) & " "
Case 28: S = S + "t" & ChrW(7927) & " t" & ChrW(7927) & " t" & ChrW(7927) & " "
End Select

'Kiem tra truong hop dac biet , neu co mot chu so o vi tri cuoi nhom ma tat ca cac chu so dung sau la "0" thi khong doc nua
If (k Mod 3 = 1) Then
stop_ = True
For j = i + 1 To len_
If arN(j) <> 0 Then stop_ = False
Next j
If stop_ Then Exit For
End If
Next i
S = UCase(Left(S, 1)) + Right(S, Len(S) - 1)
If mDong Then S = S & "" & ChrW(273) & "" & ChrW(7891) & "ng."
ChuUni = S
End Function
 
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Upvote 0
Cám ơn bạn nhé, mà mình ko thành công trong khi tạo liên kết với bảng tính. Giúp mình với
 
Upvote 0
mình thử dùng toàn lỗi thôi, bạn xem hướng dẫn mình với. Cám ơn!!!
 
Upvote 0
phontran đã viết:
Mình có làm được một AddIn cho Excel dùng với bảng mã UniCode, đọc tối đa 15 ký tự số. Bạn nào cần tải về dùng có gì vướng mắc cùng nhau thảo luận, tên hàm mình đã đặt như tên file.
Link tải : http://www.megaupload.com/?d=JN90DKJ3
Thông cảm nhé vì mình không biết up trong Forum.

CODE :
Public Function ChuUni(ByVal sNum As String, Optional mDong As Boolean = True) As String
On Error Resume Next
Dim arSNum(1 To 9) As String
Dim arN(32) As Byte 'Chua gia tri cua cac chu so trong chuoi
Dim i As Byte, j As Byte, k As Byte, len_ As Byte
Dim S As String
Dim stop_ As Boolean

If Len(Trim(sNum)) = 0 Then
ChuUni = "Không "
Exit Function
End If

arSNum(1) = "m" & ChrW(7897) & "t "
arSNum(2) = "hai "
arSNum(3) = "ba "
arSNum(4) = "b" & ChrW(7889) & "n "
arSNum(5) = "n" & ChrW(259) & "m "
arSNum(6) = "sáu "
arSNum(7) = "b" & ChrW(7843) & "y "
arSNum(8) = "tám "
arSNum(9) = "chín "
S = ""
sNum = dotTrim(sNum)
stop_ = True
'Kiem tra co phai la chuoi so <> 0 hay khong
For i = 1 To Len(sNum)
If Mid(sNum, i, 1) <> "0" Then stop_ = False
Next i

If stop_ Then
ChuUni = ""
Exit Function
End If
'Kiem tra co phai la chuoi so hay khong
For i = 1 To Len(sNum)
If (Asc(Mid(sNum, i, 1)) < Asc("0") Or Asc(Mid(sNum, i, 1)) > Asc("9")) And (Mid(sNum, i, 1) <> ".") Then Exit Function
Next i
'Loai bo cac so 0 ben trai chuoi
sNum = killLeftZero(sNum)
len_ = Len(sNum)
'Chuyen doi moi chu so thanh so: "9" -> 9 va gan vao mang
For i = 1 To len_
arN(i) = Asc(Mid(sNum, i, 1)) - Asc("0")
Next i
'Thuat toan: Phan chuoi so thanh tung nhom gom 3 chu so: "5676435898608"-> "5.676.435.898.608"
For i = 1 To len_ ' do begin
k = len_ - i + 1
'Chu so o vi tri hang tram (tram, tram ngan,...)=0 va hai chu so ke tiep <>0 thi doc la "khong"
If (k Mod 3 = 0) And (arN(i) = 0) And ((arN(i + 1) <> 0) Or (arN(i + 2) <> 0)) Then
S = S + "không "
End If
'Chu so khong phai la chu so dac biet ("0", "1", "5") thi doc binh thuong
If (arN(i) <> 0) And (arN(i) <> 1) And (arN(i) <> 5) Then S = S + arSNum(arN(i))
'Chu so la "5"
If arN(i) = 5 Then
'Chu so o vi tri cuoi cua mot nhom va chu so ke truoc <>0 thi doc la "lam"
If (i > 0) And (k Mod 3 = 1) And (arN(i - 1) <> 0) Then
S = S + "l" & ChrW(259) & "m "
'neu khong thi doc la "nam"
Else: S = S + "n" & ChrW(259) & "m "
End If
End If
'Chu so o vi tri cuoi cua mot nhom la "1" nhung khong o dau chuoi va chu so ke truoc > 1 thi doc la "mo^'t"
If (i > 1) And (arN(i) = 1) And (k Mod 3 = 1) And (arN(i - 1) > 1) Then
S = S + "m" & ChrW(7889) & "t "
ElseIf (k Mod 3 <> 2) And (arN(i) = 1) Then S = S + "m" & ChrW(7897) & "t " 'neu khong, doc la "mo^.t"
End If

'Chu so o vi tri giua cua mot nhom nhung <> "0" va <> "1" thi doc binh thuong + "muoi"
If (k Mod 3 = 2) And (arN(i) <> 0) And (arN(i) <> 1) Then
S = S + "m" & ChrW(432) & "" & ChrW(417) & "i "
ElseIf (k Mod 3 = 2) And (arN(i) <> 0) Then S = S + "m" & ChrW(432) & "" & ChrW(7901) & "i " 'neu khong, doc la "muo`i"
End If

'Chu so la "0" nhung o vi tri giua cua mot nhom va chu so ke sau <>"0" thi doc la "le"
If (k Mod 3 = 2) And (arN(i) = 0) And (arN(i + 1) <> 0) Then S = S + "l" & ChrW(7867) & " "
'Chu so la "0" nhung o vi tri dau nhom va chu so ke sau la "0" thi doc la "khong"
If (k Mod 3 = 0) And (arN(i) = 0) And (arN(i + 1) = 0) _
And (arN(i + 2) = 0) Then S = S + "không "

'Chu so o vi tri dau nhom thi doc binh thuong + "tram"
If (k Mod 3 = 0) Then S = S + "tr" & ChrW(259) & "m "
'Chu so o vi tri cuoi nhom thi doc binh thuong + phan mo ta cho vi tri hang cua no ("nghin", "trieu", "ty",...)
Select Case k
Case 4: S = S + "ngàn "
Case 7: S = S + "tri" & ChrW(7879) & "u "
Case 10: S = S + "t" & ChrW(7927) & " "
Case 13: S = S + "ngàn t" & ChrW(7927) & " "
Case 16: S = S + "tri" & ChrW(7879) & "u t" & ChrW(7927) & " "
Case 19: S = S + "t" & ChrW(7927) & " t" & ChrW(7927) & " "
Case 22: S = S + "ngàn t" & ChrW(7927) & " t" & ChrW(7927) & " "
Case 25: S = S + "tri" & ChrW(7879) & "u t" & ChrW(7927) & " t" & ChrW(7927) & " "
Case 28: S = S + "t" & ChrW(7927) & " t" & ChrW(7927) & " t" & ChrW(7927) & " "
End Select

'Kiem tra truong hop dac biet , neu co mot chu so o vi tri cuoi nhom ma tat ca cac chu so dung sau la "0" thi khong doc nua
If (k Mod 3 = 1) Then
stop_ = True
For j = i + 1 To len_
If arN(j) <> 0 Then stop_ = False
Next j
If stop_ Then Exit For
End If
Next i
S = UCase(Left(S, 1)) + Right(S, Len(S) - 1)
If mDong Then S = S & "" & ChrW(273) & "" & ChrW(7891) & "ng."
ChuUni = S
End Function
Nhấp chuột vào đây để mở rộng...
bạn thư áp dụng xem có tiện không, lỗi không.
Cám ơn
 
Upvote 0
Hàm đọc số

Giải nén rồi chép file userf.xla vào folder c:\program files\Microsoft office\Office 10(11)(12)(14)\XLSTART để sử dụng hàm RN(number,"ĐVT"), hàm này đọc được số đến 15 chữ số (kể cả số âm), làm tròn số thập phân và có dấu ngắt hơi ở hàng tỷ, triệu .
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

D
xin hỏi về lỗi mô đun ẩn. (3 người xem)
Trả lời
4
Đọc
186
du trung kien
D
H
Lỗi khi sort data xin được hỗ trợ (4 người xem)
Trả lời
2
Đọc
45
hunglq48
H
Nguyenkhang2404
Tính định mức sản phẩm (1 người xem)
    • Chấp nhận
Trả lời
9
Đọc
237
Nguyenkhang2404
Nguyenkhang2404
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (3 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
389
Đọc
45K
THANHHANGPT
T
8
Theo dõi bán hàng (1 người xem)
Trả lời
6
Đọc
120
Maithy46
Maithy46
T
Ngắt kết nối với tệp lệnh đính kèm
Trả lời
2
Đọc
82
TungXauGiai
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711) (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
277
Đọc
35K
joker102
J
minhduc1o2
Hình ảnh bị lỗi #VALUE (1 người xem)
Trả lời
4
Đọc
75
minhduc1o2
minhduc1o2
S
tỷ lệ % không khớp khi cộng tổng (1 người xem)
Trả lời
2
Đọc
55
snoobcool
S
D
Tên sheet bị che khuất khi thực hiện sửa tên sheet (2 người xem)
Trả lời
1
Đọc
237
PhamMaiTB
P
thanhcongdnk
nhờ các cao nhân giúp dùm, xin đa tạ nhiều (2 người xem)
    • Buồn
    • Phẫn nộ
Trả lời
2
Đọc
408
misibi
M
N
  • Question Question
Chia sẻ COM DLL giúp tra cứu mã số thuế từ trang web masothue.com (1 người xem)
    • Thích
Trả lời
1
Đọc
405
nguyendang95
N
hoidebiet1710
Doanh thu cho nhiều nhân viên bán hàng
Trả lời
1
Đọc
95
BuiQuangThuan
B
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
1
Đọc
123
hoidebiet1710
hoidebiet1710
V
  • Question Question
Nhờ mọi người giúp cách xóa các mục đã chọn trong Droplist của một nhóm các ô cùng dạy một môn học. (1 người xem)
Trả lời
3
Đọc
199
HUONGHCKT
H
L
Trừ lùi nguyên vật liệu nhập - xuất - tồn theo nhiều điều kiện
Trả lời
7
Đọc
758
oanhleqt
O
D
Lọc cột chứa nhiều nhóm từ trong Excel. Mong các bạn giải đáp giúp (1 người xem)
Trả lời
8
Đọc
184
Thai Huyen
Thai Huyen
T
file excel bị lỗi (3 người xem)
Trả lời
1
Đọc
52
BuiQuangThuan
B
dungluyen2119
  • Question Question
Code VBA để tính tổng theo chiều ngang mà số cột không cố định
Trả lời
4
Đọc
151
HUONGHCKT
H
H
Câu lệnh mở file Excel trong Macbook Pro 1
Trả lời
0
Đọc
54
huafu_Jackl
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom