PDA

View Full Version : Số tiền bằng chữ?



HaThuy
07-07-06, 04:42 PM
Nhờ các bạn chỉ cho mình công thức tự động đổi từ số tiền bằng số sang bằng chữ với. Cảm ơn trước nhé!:)

Pansy_flower
07-07-06, 06:28 PM
Nhờ các bạn chỉ cho mình công thức tự động đổi từ số tiền bằng số sang bằng chữ với. Cảm ơn trước nhé!:)

Bạn down add-in sau về,giải nén.Copy file vừa giải nén,sau đó vào tool/add-ins chọn browse===>paste===>click double vào add-ins đó===>click ok.

Vd: ở ô A1: 12.500.000đ

Ở ô A2 bạn gõ: =vnd(A1)

Kết quả: Mười hai triệu năm trăm ngàn đồng chẵn.

littlegirl
08-07-06, 08:28 AM
Help
Mình tải về rồi nhưng sao chữ k hiện là tiếng Việt , dù mình đã chỉnh font , bên mình sử dụng Unicode

Peter_pan
08-07-06, 10:58 AM
Help
Mình tải về rồi nhưng sao chữ k hiện là tiếng Việt , dù mình đã chỉnh font , bên mình sử dụng Unicode

Bạn chọn các kiểu font VNI thử xem.

Chúc bạn thành công.

Thân,
LL

Đào Việt Cường
08-07-06, 11:40 AM
Dear all,
--------
Lúc-lắc hướng dẫn sai rồi, nếu sử dụng MS Excel Add-In thì bình thường ("bình thường": nghĩa là không dùng kỹ thuật xử lý) kết quả hàm sẽ cho ra chuỗi với mã TCVN3. Nếu sử dụng fonts VNI thì không thể đọc được (hoặc đọc theo tiếng Mán). Nếu Titlegirl cố gắng muốn sử dụng font UNICODE thì cần phải kết hợp thêm hàm ConvertFont. Secret_Grasses chỉ nốt cho bạn ấy nhé!

yeudoi
08-07-06, 04:25 PM
Mình gửi file này tổng hợp các ví dụ về ngày và dịch số mọi người xem thử nha.

workman
09-07-06, 09:51 PM
Các bạn vào thư viện của WKT mà download phần addin của bạn Maika ấy. Cái đấy có đủ tool để đọc số ra chữ dưới các dạng font/bộ mã tiếng việt thông dụng, bao gồm ABC/TCVN, VNI, Unicode. Không nhất thiết phải convert sang TCNV rồi mới convert sang unicode đâu.

Mua Thu
11-07-06, 03:12 PM
Bạn Secret_Grasses !
Add in của bạn rất hay,My đã tải về rồi , nói chung là tạm sử dụng được nhưng riêng số 9 nó đổi sang chữ thành chưn . Giúp My chỗ này nha .
thanks , Vui vẻ .

23041983
12-07-06, 12:16 PM
Bạn down add-in sau về,giải nén.Copy file vừa giải nén,sau đó vào tool/add-ins chọn browse===>paste===>click double vào add-ins đó===>click ok.

Vd: ở ô A1: 12.500.000đ

Ở ô A2 bạn gõ: =vnd(A1)

Kết quả: Mười hai triệu năm trăm ngàn đồng chẵn.


Em là dân mới tiếp cận với excel chua lâu nên em chưa biết cách làm sao để giải nén.Liệu các bác có thể hướng dẫn em không ạ
Em cảm ơn nhiều

hai2hai
12-07-06, 01:34 PM
Ngoài các cách ở trên ra, các bạn có thể sử dụng công cụ Add-In có tên "A-Tools" (tự động add khi cài VNUNI A-Excel).

Khi A-Tool đã được add vào Excel, xuất hiện 1 nút trên thanh toolbar. Click vào nút đó và chọn menu "Tài liệu hướng dẫn". Trong tài liệu hướng dẫn đó bạn có thể thấy cách sử dụng các hàm như:

1. Chuyển số thành chữ (Cùng với các hàm convert font sang Unicode hoặc VNI)
2. Hàm tạo Comment
3. Hàm tạo thông báo Msgbox
(Có thể kết hợp Msgbox và Comment)

Đó là chưa kể các tính năng tổng hợp dữ liệu thông qua các hàm thống kê của Excel (Làm rất dễ mà ko cần phải học nhiều lắm), v.v...

Cheer!

Công cụ này là Miễn phí hoàn toàn!

PhanTuHuong
12-07-06, 01:38 PM
Để giải nén thì bạn phải dùng chương trình giải nén như WinRar. Cài WinRar như 1 chương trình ứng dụng bình thường, bạn sử dụng sẽ hiểu thôi.

23041983
13-07-06, 03:38 PM
vâng!
nhờ diễn đàn mà bây giờ em cũng bắt đầu biết sử dụng những cái đó rồi
em sẽ tiếp tục tìm hiểu và mong đuọc các bác giúp đỡ em nhiều nhiều.

Pansy_flower
13-07-06, 04:28 PM
Các bạn vào thư viện của WKT mà download phần addin của bạn Maika ấy. Cái đấy có đủ tool để đọc số ra chữ dưới các dạng font/bộ mã tiếng việt thông dụng, bao gồm ABC/TCVN, VNI, Unicode. Không nhất thiết phải convert sang TCNV rồi mới convert sang unicode đâu.

Hì, anh ơi! Vậy file (http://www.giaiphapexcel.com/forum/showpost.php?p=1159&postcount=2) em up lên hổng phải của anh Maika hả anh?!
:*

ThanhThao
11-09-06, 09:09 PM
Tôi thấy có mấy chủ đề bàn về vấn đề đổi số sang chữ, đề nghị BQT thống nhất thành 1 chủ đề hoàn chỉnh, tránh lan man --=--

netnewbie
01-11-07, 05:05 PM
Mình không biết thư viện WKT ở đâu "Các bạn vào thư viện của WKT mà download phần addin của bạn Maika ấy" Vì mình tải NameManager.zip (http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=38&d=1152271713) của Secret_grasses nhưng vẫn ko hiện ra tiếng việt. Nhưng format ô đó thành VN.Time thì hiện ra chữ bình thường. Xin các bạn chỉ giúp mình mới vào à. Cảm ơn các bạn.

xuanhong192
21-11-07, 01:45 PM
Bạn down add-in sau về,giải nén.Copy file vừa giải nén,sau đó vào tool/add-ins chọn browse===>paste===>click double vào add-ins đó===>click ok.

Vd: ở ô A1: 12.500.000đ

Ở ô A2 bạn gõ: =vnd(A1)

Kết quả: Mười hai triệu năm trăm ngàn đồng chẵn.



Add-in này rất hay đấy cảm ơn bạn đã chia sẻ với mọi người. Nếu bạn nào dùng bị mã thì hãy chọn lại FONT ".vni___" nhé.

gaconlongvang
22-11-07, 09:34 AM
Tôi up AddIns “Đổi số ra chữ” này lên để ai có mục đích sử dụng như tôi thì down về dùng.
Xin nói trước là AddIns này tôi down trên diễn đàn và đã chỉnh sửa lại. Xin lỗi tác giả AddIns này. Lý do tôi chỉnh sửa là:
Khi đổi: 12,345.65 = Mười hai ngàn, ba trăm bốn nhăm đồng sáu nhăm
Tôi sửa AddIns này để khi đổi:
12,345.65 => =vnd(…)=Mười hai ngàn, ba trăm bốn sáu đồng chẵn
Cách sử dụng:
Copy AddIn theo đường dẫn: C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns
Khởi động Ecxel, vào Tool\Add-Ins\Browse… Chỉ theo đường dẫn trên đến AddIns “vnd”\OK.
Khởi động lại Ecxel.
AddIns này sử dụng font Unicode
Hy vọng có ích cho mọi người.

xuanhuyen24
28-01-10, 09:38 AM
nhờ các bạn chỉ cho mình với mình làm đúng như vậy mà mình muốn thêm có chữ đồng nữa vì xếp mình nói phải có chữ đồng mới được ví dụ như chín triệu đồng chẵn còn mình làm theo công thức chỉ có chín triệu thoi

khoavu87
28-01-10, 09:50 AM
nhờ các bạn chỉ cho mình với mình làm đúng như vậy mà mình muốn thêm có chữ đồng nữa vì xếp mình nói phải có chữ đồng mới được ví dụ như chín triệu đồng chẵn còn mình làm theo công thức chỉ có chín triệu thoi
thì bạn nối thêm cái đuôi là "đồng chẵn" vào nữa là được chứ có sao đâu nhờ?
các tiện ích đều chung quy lại là tạo ra một hàm mới trong excel
do đó cũng có chức năng như các hàm bình thường.
VD : một hàm tự tạo để đọc số thành chữ có tên VNUD không có chữ đồng ở sau thì bạn làm nó có như sau:
= VNUD(a1) &" Đồng Chẵn "
bạn có thể tham khảo file này .

hanoidoan
28-01-10, 10:21 AM
Các bạn vào thư viện của WKT mà download phần addin của bạn Maika ấy. Cái đấy có đủ tool để đọc số ra chữ dưới các dạng font/bộ mã tiếng việt thông dụng, bao gồm ABC/TCVN, VNI, Unicode. Không nhất thiết phải convert sang TCNV rồi mới convert sang unicode đâu.
nhờ bạn cho mình đường link được không?
mình tìm không ra. thanks

chucemhanhphuctd
28-01-10, 02:41 PM
Tôi up AddIns “Đổi số ra chữ” này lên để ai có mục đích sử dụng như tôi thì down về dùng.
Xin nói trước là AddIns này tôi down trên diễn đàn và đã chỉnh sửa lại. Xin lỗi tác giả AddIns này. Lý do tôi chỉnh sửa là:
Khi đổi: 12,345.65 = Mười hai ngàn, ba trăm bốn nhăm đồng sáu nhăm
Tôi sửa AddIns này để khi đổi:
12,345.65 => =vnd(…)=Mười hai ngàn, ba trăm bốn sáu đồng chẵn
Cách sử dụng:
Copy AddIn theo đường dẫn: C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns
Khởi động Ecxel, vào Tool\Add-Ins\Browse… Chỉ theo đường dẫn trên đến AddIns “vnd”\OK.
Khởi động lại Ecxel.
AddIns này sử dụng font Unicode
Hy vọng có ích cho mọi người.
Mình đã dùng thử add-in của bạn nhưng khi thử kết quả:
12,345.65 = Mười hai ngàn, ba trăm bốn mươi lăm đồng, sáu mươi lăm xu
bạn có thể sửa giúp lỗi đó không?

hoangle17
28-01-10, 06:19 PM
Tốt nhất bạn mở VBA =Alt+f11 tạo modun và dán vào đoạn code sau:"mình sử dụng Vntime nha VD: muốn đọc số ô A1 bạn chỉ cần gõ =bac(A1)


Function bac(A) As String
Dim s, cdv, ctr, cng, cty As String
Dim sdv, strieu, sng, sty As String
chuoi = ""
s = Trim(Str(A))
While Len(s) < 12
s = "0" + s
Wend
sdv = Right(s, 3)
sng = Mid(s, 7, 3)
strieu = Mid(s, 4, 3)
sty = Left(s, 3)
chuoi = IIf(doi(sty) <> " ", doi(sty) & " t?", "") & IIf(doi(strieu) <> " ", doi(strieu) & " triÖu", "") & IIf(doi(sng) <> " ", doi(sng) & " ngµn", "") & IIf(doi(sdv) <> " ", doi(sdv), "") & " ®ång ch½n"
bac = UCase(Left(Trim(chuoi), 1)) & Right(Trim(chuoi), Len(Trim(chuoi)) - 1) & "."
End Function
Function doi(c) As String
Dim dv, ch, tr, st1 As String
While Len(c) < 3
c = "0" & Trim(c)
Wend
dv = Right(c, 1)
ch = Mid(c, 2, 1)
tr = Left(c, 1)
st1 = ""
If tr = "0" Then
If ch = "0" Then
If dv = "0" Then
st1 = st1 & " "
Else
st1 = st1 & so(dv)
End If
Else
If dv = "0" Then
st1 = st1 & IIf(ch = "1", " m­êi", so(ch) & " m­¬i")
Else
st1 = st1 & IIf(ch = "1", " m­êi", so(ch) & " m­¬i") & IIf(dv = "1", " mèt", IIf(dv = "5", " n¨m", so(dv)))
End If
End If
Else
If ch = "0" Then
If dv = "0" Then
st1 = st1 & so(tr) & " tr¨m"
Else
st1 = st1 & so(tr) & " tr¨m linh" & so(dv)
End If
Else
If dv = "0" Then
st1 = st1 & so(tr) & " tr¨m" & IIf(ch = "1", " m­êi", so(ch) & " m­¬i")
Else
st1 = st1 & so(tr) & " tr¨m" & IIf(ch = "1", " m­êi", so(ch) & " m­¬i") & IIf(dv = "1", IIf(ch = "1", " mèt", " mèt"), IIf(dv = "5", " n¨m", so(dv)))
End If
End If
End If
doi = st1
End Function
Function so(c) As String
s = ""
Select Case c
Case "0"
s = s + " kh«ng"
Case "1"
s = s + " mét"
Case "2"
s = s + " hai"
Case "3"
s = s + " ba"
Case "4"
s = s + " bèn"
Case "5"
s = s + " n¨m"
Case "6"
s = s + " s¸u"
Case "7"
s = s + " b¶y"
Case "8"
s = s + " t¸m"
Case "9"
s = s + " chÝn"
End Select
so = s
End Function

nguyenbbc
12-11-10, 03:52 PM
Tốt nhất bạn mở VBA =Alt+f11 tạo modun và dán vào đoạn code sau:"mình sử dụng Vntime nha VD: muốn đọc số ô A1 bạn chỉ cần gõ =bac(A1)


Function bac(A) As String
Dim s, cdv, ctr, cng, cty As String
Dim sdv, strieu, sng, sty As String
chuoi = ""
s = Trim(Str(A))
While Len(s) < 12
s = "0" + s
Wend
sdv = Right(s, 3)
sng = Mid(s, 7, 3)
strieu = Mid(s, 4, 3)
sty = Left(s, 3)
chuoi = IIf(doi(sty) <> " ", doi(sty) & " t?", "") & IIf(doi(strieu) <> " ", doi(strieu) & " triÖu", "") & IIf(doi(sng) <> " ", doi(sng) & " ngµn", "") & IIf(doi(sdv) <> " ", doi(sdv), "") & " ®ång ch½n"
bac = UCase(Left(Trim(chuoi), 1)) & Right(Trim(chuoi), Len(Trim(chuoi)) - 1) & "."
End Function
Function doi(c) As String
Dim dv, ch, tr, st1 As String
While Len(c) < 3
c = "0" & Trim(c)
Wend
dv = Right(c, 1)
ch = Mid(c, 2, 1)
tr = Left(c, 1)
st1 = ""
If tr = "0" Then
If ch = "0" Then
If dv = "0" Then
st1 = st1 & " "
Else
st1 = st1 & so(dv)
End If
Else
If dv = "0" Then
st1 = st1 & IIf(ch = "1", " m­êi", so(ch) & " m­¬i")
Else
st1 = st1 & IIf(ch = "1", " m­êi", so(ch) & " m­¬i") & IIf(dv = "1", " mèt", IIf(dv = "5", " n¨m", so(dv)))
End If
End If
Else
If ch = "0" Then
If dv = "0" Then
st1 = st1 & so(tr) & " tr¨m"
Else
st1 = st1 & so(tr) & " tr¨m linh" & so(dv)
End If
Else
If dv = "0" Then
st1 = st1 & so(tr) & " tr¨m" & IIf(ch = "1", " m­êi", so(ch) & " m­¬i")
Else
st1 = st1 & so(tr) & " tr¨m" & IIf(ch = "1", " m­êi", so(ch) & " m­¬i") & IIf(dv = "1", IIf(ch = "1", " mèt", " mèt"), IIf(dv = "5", " n¨m", so(dv)))
End If
End If
End If
doi = st1
End Function
Function so(c) As String
s = ""
Select Case c
Case "0"
s = s + " kh«ng"
Case "1"
s = s + " mét"
Case "2"
s = s + " hai"
Case "3"
s = s + " ba"
Case "4"
s = s + " bèn"
Case "5"
s = s + " n¨m"
Case "6"
s = s + " s¸u"
Case "7"
s = s + " b¶y"
Case "8"
s = s + " t¸m"
Case "9"
s = s + " chÝn"
End Select
so = s
End Function

Minh đã làm theo code của bạn hoàn toàn hiệu nghiệm. Nhưng cho mình hỏi mình muốn có dấu phẩy ở hàng ngàn, triệu... thì viết lại code này thế nào nhỉ? vd: 1.234 = một ngàn, hai trăm ba mươi bốn ngàn đồng. Tại khi viết hóa đơn, chứng từ mình sd dấu phẩy quen rồi.
Cảm ơn bạn nhiều!

NH_DK
12-11-10, 04:17 PM
Minh đã làm theo code của bạn hoàn toàn hiệu nghiệm. Nhưng cho mình hỏi mình muốn có dấu phẩy ở hàng ngàn, triệu... thì viết lại code này thế nào nhỉ? vd: 1.234 = một ngàn, hai trăm ba mươi bốn ngàn đồng. Tại khi viết hóa đơn, chứng từ mình sd dấu phẩy quen rồi.
Cảm ơn bạn nhiều!

Bạn kiểm tra lại nha. Mình đã test code thửa của bạn và vẫn thấy lỗi.
http://i1005.photobucket.com/albums/af176/nh_dk/01200.jpg

Lê Duy Thương
12-11-10, 04:58 PM
Bạn kiểm tra lại nha. Mình đã test code thửa của bạn và vẫn thấy lỗi.
http://i1005.photobucket.com/albums/af176/nh_dk/01200.jpg
đây là code trên diễn đàn sử dụng font vni nè

Public Function VND(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 = "Khoâng ñoàng"
Else
If Abs(BaoNhieu) >= 1E+15 Then '1E+15 töùc 1.000.000.000.000.000 1 trieäu tyû
KetQua = "Soá quaù lôùn"
Else
If BaoNhieu < 0 Then
KetQua = "Tröø" & Space(1)
Else
KetQua = Space(0)
End If
SoTien = Format(Abs(BaoNhieu), "##############0.00") '18 digits with 2 decimal
SoTien = Right(Space(15) & SoTien, 18)
Hang = Array("None", "traêm", "möôi", "gì ñoù")
Doc = Array("None", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "ñoàng", "xu")
Dem = Array("None", "moät", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chí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 = "ñoàng" & Space(1)
Else
Chu = Space(0)
End If
Case ".00", ",00"
Chu = "chaü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öôø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 = "leû" & Space(1)
End If
End Select
Chu = Chu & Dich
Next j
End Select
ViTri = InStr(1, Chu, "möôi moät", 1)
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "möôi moát"
KetQua = KetQua & Chu
End If
Next i
End If
End If
VND = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
End Function

bichthuysv
03-03-11, 04:31 PM
Ban oi minh dang dung phien ban exel 2007, ban chi cho minh cach cai add-in nha

Mythanhbte
10-03-11, 09:41 AM
Cảm ơn bạn nhiều, nhưng mình cần sử dụng Unicode nhiều hơn!

sealand
10-03-11, 10:38 AM
Đây là Font Unicode, mở VBA bạn chép hàm UDF này vào là được. Trong bảng tính ô A1 là số tại ô bằng chữ gõ công thức:

=DocsoUNI(A1)


Public Function DocsoUNI(tienvao)
Dim ketqua, sotien, nhom, chu, dich, s1, s2, s3 As String
Dim i, j, vitri As Byte, s As Double
Dim hang, doc, dem
tienvao = Int(tienvao)
If tienvao = 0 Then
ketqua = "Kh" & ChrW(244) & "ng " & ChrW(273) & ChrW(7891) & "ng."
Else
If Abs(tienvao) >= 1E+15 Then
ketqua = "S" & ChrW(7889) & " qu" & ChrW(225) & " l" & ChrW(7899) & "n."
Else
If tienvao <= 0 Then
ketqua = "Tr" & ChrW(7915) & Space(1)
Else
ketqua = Space(0)
End If
sotien = Abs(tienvao)
sotien = Right(Space(15) & sotien, 15)
hang = Array("none", "tr" & ChrW(259) & "m", "m" _
& ChrW(432) & ChrW(417) & "i", "kh" & ChrW(225) & "c")
doc = Array("none", "ng" & ChrW(224) & "n t" & ChrW(7927), "t" & ChrW(7927), _
"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(7843) _
& "y", "t" & ChrW(225) & "m", "ch" & ChrW(237) & "n")
For i = 1 To 5
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 ch" & ChrW(7861) & "n" & Space(1)
Else
chu = Space(0)
End If
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(417) & "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
DocsoUNI = UCase(Left(ketqua, 1)) & Mid(ketqua, 2)
End Function

vyhung
11-03-11, 10:34 PM
Các bạn sử dụng phần mềm: http://www.tdmit.com/2011/03/bo-tien-ich-cho-excel-oc-so-thanh-chu.html
cài đặt xong trên MENU của bảng tính Excel có tiện ích tiếng Việt và hướng dẫn sử dụng.

trinh177
24-03-11, 01:34 PM
Bạn down add-in sau về,giải nén.Copy file vừa giải nén,sau đó vào tool/add-ins chọn browse===>paste===>click double vào add-ins đó===>click ok.

Vd: ở ô A1: 12.500.000đ

Ở ô A2 bạn gõ: =vnd(A1)

Kết quả: Mười hai triệu năm trăm ngàn đồng chẵn.



[COLOR="blue"]

Chao,

Em da lam theo huong dan, nhung van khong ra duoc ket qua. #NAME?.

Cam on da giup

thanhxitxit
06-04-11, 09:47 PM
Hi, em chào cả nhà, em là thành viên cũng lâu rùi nhưng chưa có đóng góp bài nào cả cho diễn đàn cũng ngại lắm, Bác Secret_Grasses ! ơi cho em hỏi sao số tiền của em khi đọc lại bị lặp lại.

GATEGAYTETE
24-06-12, 04:44 PM
em vao add ins ma chang thay browse dau ca la the nao ay nhi

GATEGAYTETE
24-06-12, 05:06 PM
thì bạn nối thêm cái đuôi là "đồng chẵn" vào nữa là được chứ có sao đâu nhờ?
các tiện ích đều chung quy lại là tạo ra một hàm mới trong excel
do đó cũng có chức năng như các hàm bình thường.
VD : một hàm tự tạo để đọc số thành chữ có tên VNUD không có chữ đồng ở sau thì bạn làm nó có như sau:
= VNUD(a1) &" Đồng Chẵn "
bạn có thể tham khảo file này .

bạn ơi mình làm như bạn rồi nhưng phông chữ ra trông tệ quá làm thế nào để nó giữ nguyên phông cũ đây

lyphuochoa
24-06-12, 10:57 PM
Em là thành viên mới, em tải về làm có máy hiểu có máy không hiểu. em không biết làm như thế nào?

tvl297
25-06-12, 03:10 AM
bạn Add-Ins vào excel. Rồi vào excel =dsa() đọc số ABC, =dsu() đọc số unicode

nguyenaiduyen
05-10-12, 02:01 PM
Pansy_flower (http://www.giaiphapexcel.com/forum/member.php?7-Pansy_flower), cho mình hỏi, mình tải phần này về rồi mà sao ko đọc được tiếng việt, mình dùng các Font rồi, có thể giúp mình ko?

thienanh20
25-01-13, 02:59 PM
Add-in của bạn tvl297 xài tốt quá. Cảm ơn nhìu nhé ^^

XOMDA
25-01-13, 04:05 PM
cái này thiệt là hay bạn ạ! cảm ơn nhiều nhé!

Jacky Chun
06-07-13, 10:46 AM
mình muốn đọc số USD thì làm thế nào hả các bác

vanle33
06-07-13, 10:58 AM
mình muốn đọc số USD thì làm thế nào hả các bác
Bạn dùng Add in ở đây http://www.giaiphapexcel.com/forum/showthread.php?1047-XLL-Add-In-%C4%90%E1%BB%95i-s%E1%BB%91-th%C3%A0nh-ch%E1%BB%AF-T%E1%BB%91c-%C4%91%E1%BB%99-nhanh-t%E1%BB%91i-%C4%91a-nhanh-h%C6%A1n-80-c%C3%A1c-Addins-kh%C3%A1c