File dịch tiền ra chữ

  • Thread starter tonykhanh1818
  • Ngày gửi
T

tonykhanh1818

Guest
11/1/06
13
0
0
Chào bác đức
Mình vừa tải được file dịch tiền ra chử do bạn hướng dẩn,nhưng không biết cách sử dụng nhờ bác hường dẩn cho minh cách sử dụng để thuận lợi hơn cho công việc
Cám ơn bác Đức trước nghe
Khanh
 
Khóa học Quản trị dòng tiền
K

kimtinhtn

Guest
11/1/05
61
0
6
Tp HCM
Trước tiên, bạn phải copy file đổi số vào C:\Program Files\Microsoft Office\Office10\Addins (tùy theo máy bạn addins được đặt trong thư mục nào của ổ C: )
Trên file excel bạn đang cần dịch số thành chữ, bạn vào tools\add-ins chon browse sau đó chọn đường dẫn đến file doiso mà bạn vừa copy vào ổ C:
Trên bảng tính excel bạn gõ : =VND(chọn đường đến cell mà bạn cần dịch thành chữ)
Chúc thành công !
 
L

lehongduc

Trung cấp
29/3/05
131
1
18
64
VietNam
Sử dụng Tiện ích tiếng Việt cho Excel (VnUtils)

tonykhanh1818 nói:
Chào bác đức
Mình vừa tải được file dịch tiền ra chử do bạn hướng dẩn,nhưng không biết cách sử dụng nhờ bác hường dẩn cho minh cách sử dụng để thuận lợi hơn cho công việc
Cám ơn bác Đức trước nghe
Khanh
Xin chào,
Sau khi chạy file VnUtils.exe đế giải nén, nếu bạn không khai báo khác đề nghị của chương trình giải nén, bộ tiện ích này sẽ được đặt trong folder VNUTILS. Bên trong folder này có sẵn các file hướng dẫn cách thức sử dụng đặt bên trong folder con HELP.
Xin các bạn đọc các file hướng dẫn này để biết cách setup VnUtils vào Excel và cách sử dụng các hàm của bộ tiện ích này.
Lê Hồng Đức
(0913.941.144)
 
thanhvunt

thanhvunt

http://thanhvunt.com
22/1/06
2,078
10
0
Nha Trang
thanhvunt.com
Chào bác Đức. Hôm trước em cũng đã tải cái file của bác về rồi nhưng thấy cái đuôi của nó có họ ét xe nên em ngại vá. Em chẳng biết nguồn này có yêu cầu li xăng hay lai xần gì không nữa. Em chỉ sợ dính vai rớt nên hỏng dám thử lửa nữa. he he...
 
B

Bình_OverAC

Over Abnormal / Crazy
14/5/04
846
10
18
42
Nha Trang
Vâng em cũng có ý engại như anh OldNTV. Việc nén file không khó. Nếu có config riêng gì đấy mới nên đưa vào exe. Vậy file Exe của bác sẽ làm những việc gì thế nhỉ? hay chỉ đơn giản là giải nén?
 
thanhvunt

thanhvunt

http://thanhvunt.com
22/1/06
2,078
10
0
Nha Trang
thanhvunt.com
Bình_OverAC nói:
Việc nén file không khó. Nếu có config riêng gì đấy mới nên đưa vào exe. Vậy file Exe của bác sẽ làm những việc gì thế nhỉ? hay chỉ đơn giản là giải nén?
Thường thì việc nén file ít ai dùng đến kiểu giải này. Nếu giải nén theo kiểu setup thì có vẻ chuyên nghiệp nhưng phải chuyên nghiệp theo kiểu chỉ cần run và sau đó nó sẽ auto update. Nhưng thời buổi này mà mấy file họ ét tung lên mạng chỉ những ai khờ mới run. Nếu bác Đức thực sự có thành ý thì nên up lên một nguồn có uy tín thì anh em mới dám xài bác ạ.
 
L

lehongduc

Trung cấp
29/3/05
131
1
18
64
VietNam
Về VnUtils

OldNTV nói:
Thường thì việc nén file ít ai dùng đến kiểu giải này. Nếu giải nén theo kiểu setup thì có vẻ chuyên nghiệp nhưng phải chuyên nghiệp theo kiểu chỉ cần run và sau đó nó sẽ auto update. Nhưng thời buổi này mà mấy file họ ét tung lên mạng chỉ những ai khờ mới run. Nếu bác Đức thực sự có thành ý thì nên up lên một nguồn có uy tín thì anh em mới dám xài bác ạ.
Xin chào các Bạn,
Thể theo yêu cầu của các Bạn, tôi đã nhờ Bác Duyệt (levanduyet) giúp upload tiện ích này lên WKT với dạng nén RAR để các Bạn tiện và khỏi ngại virus.
Về vấn đề thành ý, xin có mấy lời trao đổi cùng các Bạn, VnUtils đã được tôi công bố lên internet và tặng cộng đồng từ cuối năm 1999, lúc Excel 5 còn phổ biến và Excel 6 mới ra lò, kèm theo cả password để User tùy ý sửa đổi theo nhu cầu. Password đó là: ANHBADUC
Các Bác nghi ngờ và cẩn thận là phải, nhưng phải đặt vấn đề thành ý thì hơi buồn đấy các Bác ạ.
Chúc các Bác hạnh phúc.
Lê Hồng Đức
 
Sửa lần cuối:
levanduyet

levanduyet

Welcome
16/10/04
537
19
18
HCM
my.opera.com
L

lehongduc

Trung cấp
29/3/05
131
1
18
64
VietNam
Xin chào,
Về tiện ích "dịch tiền ra chữ" và một số tiện ích xử lý tiếng Việt khác do tôi viết: xin các Bạn download và tìm hiểu chi tiết tại đây:
http://quantribanhang.googlepages.com mục "Quà tặng cộng đồng"
Xin lưu ý: đây là mã nguồn mở với pasword vào là ANHBADUC
Chúc sức khỏe.
Lê Hồng Đức
 
Secret_grasses

Secret_grasses

Guest
linhtinh145 nói:
Xin chào anh Đức
Trang Quà Tặng Cộng Đồng như anh nói, em truy cập cảnh báo không tìm thấy
Anh vui lòng hướng dẫn lại
Cảm ơn anh

Mình vô vẫn bình thường, nhưng down file ko đc.
http://ketoan.wkt.googlepages.com/quatangcongdong.htm

Nếu bạn muốn down file thì xem bài #10 của anh Duyệt có link download đó.

linhtinh145 nói:
Mình muốn tải được file dịch tiền ra chử do bạn hướng dẩn,nhưng không biết cách nhờ bác hường dẩn cho minh cách sử dụng để thuận lợi hơn cho công việc
Cám ơn

Trước tiên bạn down file này về.(Trong thư viện còn rất nhiều file đổi số thành chữ, SG lấy file này làm ví dụ để hướng dẫn cụ thể hơn cho bạn).

Sau khi giải nén,bạn vào tool====>add-ins===>browse====>chọn đường dẫn đến nơi bạn mới down file add-in đó về===>enter.(Hoặc khi giải nén xong bạn copy file đó===>ở cửa sổ browse bạn chỉ việc paste là xong)

Ở ô bạn muốn đổi số thành chữ bạn đặt công thức:
-Nếu muốn đọc đồng USD: =USD(A1)
-Nếu muốn đọc đồng VN : =VND(A1)
 
V

vietdoan

Guest
28/7/04
6
0
1
Bước 1:
- Mở một Workbook mới
- Vào Tools > Macro > Visual Basic Editor
- Click chuột phải, chọn Insert Module > Module
Bước 2:
Nhập đoạn mã lệnh sau:
Public Function vn(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
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")
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", "chaün")
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"
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
vn = UCase(Left(ketqua, 1)) & Mid(ketqua, 2)
End Function

Public Function usd(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 dollars"
Else
If Abs(baonhieu) >= 1E+15 Then
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")
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", "dollars", "cents")
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 = "dollars" & Space(1)
Else
chu = Space(0)
End If
Case ".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
usd = UCase(Left(ketqua, 1)) & Mid(ketqua, 2)
End Function
Bước 3:
Sau khi ghi lại đoạn mã lệnh trên, bạn đóng cửa sổ Visual Basic lại, trở về bảng tính Excel, chọn File > Save As…
Tại ô Save As Type, chọn “Microsoft Excel Add-Ins (*.xla). Rồi đặt cho nó một cái tên là Name.
Bước 4:
Vào Tools > Add-Ins. Bấm vào Browse chọn đường dẫn đến file Name.xla vừa tạo. Bấm OK.
Các bạn có thể làm theo cách sau để có đc hàm dịch số ra chữ
Chúc các bạn thành công
 
V

vietdoan

Guest
28/7/04
6
0
1
Hàm dịch số sang tiếng anh

Bước 1

- Mở một Workbook mới
- Vào Tools > Macro > Visual Basic Editor
- Click chuột phải, chọn Insert Module > Module

Bước 2
Nhập câu lệnh.
Public Function EN(AMT)
Dim ToRead, Chuoi, Nhom, Word As String
Dim I, J As Byte, W, X, Y, Z As Double
Dim Donvi, HChuc, Khung
If AMT = 0 Then
ToRead = "none"
Else
Donvi = Array("none", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twele", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen")
HChuc = Array("none", "none", "twenty", "thirty", "fourty", "fifty", "sixty", "seventy", "eighty", "ninety")
Khung = Array("none", "trillion", "billion", "million", "thousand", "dolars", "cents")
If AMT < 0 Then
ToRead = "Minus" & Space(1)
Else
ToRead = Space(0)
End If
Chuoi = Format(Abs(AMT), "###############.00") '18 digits with 2 decimal places
Chuoi = Right(Space(15) & Chuoi, 18)
For I = 1 To 6
Nhom = Mid(Chuoi, I * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If I = 5 And Abs(AMT) > 1 Then
Word = "dollars" & Space(1)
Else
Word = Space(0)
End If
Case ".00"
Word = "only"
Case Else
X = Val(Left(Nhom, 1))
Y = Val(Mid(Nhom, 2, 1))
Z = Val(Right(Nhom, 1))
W = Val(Right(Nhom, 2))
If X = 0 Then
Word = Space(0)
Else
Word = Donvi(X) & Space(1) & "hundred" & Space(1)
If W > 0 And W < 21 Then
Word = Word & "and" & Space(1)
End If
End If
If I = 6 And Abs(AMT) > 1 Then
Word = "and" & Space(1) & Word
End If
If W < 20 And W > 0 Then
Word = Word & Donvi(W) & Space(1)
Else
If W >= 20 Then
Word = Word & HChuc(Y) & Space(1)
If Z > 0 Then
Word = Word & Donvi(Z) & Space(1)
End If
End If
End If
Word = Word & Khung(I) & Space(1)
End Select
ToRead = ToRead & Word
End If
Next I
End If
EN = UCase(Left(ToRead, 1)) & Mid(ToRead, 2)
End Function

Bước 3
Sau khi ghi lại đoạn mã lệnh trên, bạn đóng cửa sổ Visual Basic lại, trở về bảng tính Excel, chọn File > Save As…
Tại ô Save As Type, chọn “Microsoft Excel Add-Ins (*.xla). Rồi đặt cho nó một cái tên là Name.
Bước 4
Vào Tools > Add-Ins. Bấm vào Browse chọn đường dẫn đến file Name.xla vừa tạo. Bấm OK.
Bước 5
Cách sử dụng
=en(10.000.000) => Enter sẽ thấy công dụng của hàm
chúc các bạn thành công!!!!!!!!
 
haizapo

haizapo

Trung cấp
18/4/06
67
1
8
HCMC
Em có 1 file doitien.xls. Chẳng biết cách upload, mong các bác giúp em để em share cho mọi người.
Cách để sử dụng rất đơn giản, chẳng cần phải setup gì hết. Chỉ cần mở file doitien.xls, sau đó save as type Add In, OK. Sau đó, vào tools/Add in..., rồi chọn doitien/ OK. Xong.
Tất cả các file excel đều có thể sử dụng chức năng:
=vnd(a1) hoặc =usd(a1)( ô a1 chính là ô chứa số cần đổi ra chữ)

Bácnào cho em cái quyền upload, hay gửi mail cho em, em gửi file cho
haikt1@yahoo.com
Haizapo
 
K

kiennt83

Guest
3/4/06
34
1
6
Hà Nội
E gọi hàm đc rồi =vn(number) đã ra chữ nhưng font định dạng ko phải .Vntime.
Hix chắc là VniTime rồi :L
 
L

lehongduc

Trung cấp
29/3/05
131
1
18
64
VietNam
Để chia xẻ file với Bà con trên mạng.

thanhkien78 nói:
Tôi đã làm 1 vài hàm Exel chuyển số ra chữ rất đơn giản (từ hồi tôi còn sinh viên), hiện tại NH tôi đang sử dụng nó để in các hóa đơn thu, chi, dịch vụ ... Nếu ai cần tôi cung cấp cho, nó không phải là đuôi "exe" hay gì gì phức tạp, thậm chí tôi còn giải thích các hàm này để các bạn có thể tự tay làm được luôn.
Chỉ có điều tôi không biết gửi kèm file như thế nào thôi. híc ...
Các Bác thân mến,
Để chia xẻ tài liệu với bà con trên mạng khi chưa có quyền upload lên diễn đàn, các Bác có thể mần như sau:
1. Hoặc là đăng ký lấy 1 Account của các Website có cung cấp dịch vụ lưu trữ và chia xẻ miễn phí tài nguyên trên Internet, thí dụ như: www.enips.com, sau đó upload lên và chia xẻ.
2. Sử dụng dịch vụ miễn phí của Gmail. Điều kiện cần là phải có 1 Account của Gmail, dễ thôi: xin gửi email cho tôi tới địa chỉ: lhongduc@gmail.com với Subject: "Pls Invite", tôi sẽ gửi đến các bác 1 thư mời đăng ký lấy Account miễn phí của Gmail (invite). Sau khi đăng ký, các bác sử dụng dịch vụ Google Page Creator của Google (www.googlepages.com) để tạo Website cho riêng mình và cho upload tài liệu lên đây để chia xẻ cho cộng đồng. Các Bác có thể tham khảo tại địa chỉ này: ketoan.wkt.googlepages.com
Chúc sức khỏe Bà con Cô Bác
 
anhoanh

anhoanh

Guest
25/3/04
105
1
0
45
Đà Nẵng
Các Bác ơi!
Lâu nay tôi dùng file này để dịch tiền từ số ra chữ. Không biết các Bác co thế dùng được không.
Đây là file dạng Add-in.
Các Bác tải file này về sau đó:
1. Mở Excel
2. Chọn Tools -> Add-ins
3. Browse đến file bạn tải về sau đó chọn
Để chuyển số thành chữ bạn phải dùng hàm sau:
1. VND: Cho ra tiếng việt VND
2. VND_US: Cho ra Tiếng Anh VND
3. USD: Cho ra Tiếng ANH USD
4. USDV: Cho ra Tiếng ANH VND
Nói chung đây là file rất đơn giẩn các Bác có thể vào Macro để chỉnh Hàm lại theo như mong muons của Các Bác.
Hy vọng các Bác có thể sử dụng được.
Thân CHào
 

Đính kèm

  • Usd_vnd.rar
    11.7 KB · Lượt xem: 361
anhoanh

anhoanh

Guest
25/3/04
105
1
0
45
Đà Nẵng
Mình xin đính chính:

Để chuyển số thành chữ bạn phải dùng hàm sau:
1. VND: Cho ra tiếng việt VND
2. VND_US: Cho ra Tiếng Anh VND
3. USD: Cho ra Tiếng ANH USD
4. USDV: Cho ra Tiếng Việt USD
 
C

ciffob

Guest
11/3/07
2
0
0
45
Hà Nội
www.ciffob.com
Bổ sung đọc số tiếng Việt

:cool2: http://www.pcworld.com.vn/pcworld/info/article/2006-6/TVExcel.zip

Nhân đọc bài "Tiện ích Excel chuyển số sang chữ" trong TGVT số 4/2006, tôi xin đóng góp thêm tiện ích TVEXCEL.XLA phục vụ cho việc đọc số tiếng Việt (ĐSTV). Tiện ích này có hộp thoại giao diện tiếng Việt giúp người sử dụng dễ dàng chọn các mục theo yêu cầu (các phần việc còn lại do chương trình tự xử lý.

MỘT SỐ TÍNH NĂNG

• ĐSTV làm việc trên nền Excel 2000/XP/2003, không làm việc tốt trên Excel 97 (hoặc cũ hơn) vì không hỗ trợ Unicode.

• Hỗ trợ 3 bảng mã VNI, ABC, Unicode. ĐSTV tự chọn bảng mã của ô hiện hành theo tên font. Nhóm VNI Windows có tên font "VNI-*"; nhóm TCVN3-ABC có tên font ".VN*"; nhóm Unicode là các tên font khác, do tên font Unicode không có đặc điểm nhận dạng chung nên không xác định chính xác. Do đó, nếu bạn sử dụng các bảng mã khác thì ĐSTV sẽ coi như là Unicode. Để thể hiện chữ Việt đúng trên form, ĐSTV cần các font sau cho 3 bảng mã:

+ Unicode: Arial, Times New Roman

+ Vni Windows: VNI-Times

+ TCVN3-ABC: .VnTime

• Tự chọn ô có số (ô nguồn) cuối cùng bên phải của dòng phía trên gần ô cần ghi đọc số nhất (ô đích). Điều này phù hợp với ô tổng cộng (ô nguồn) là ô cuối cùng bên phải của bảng tổng hợp số liệu ô ghi tổng kết bằng chữ (ô đích) nằm ở dòng dưới ô tổng cộng. ĐSTV cho phép bạn chọn lại 1 ô nguồn khác bất kỳ trên bảng tính (trừ ô đích).

• Do cách đọc số thập phân không thống nhất giữa các loại đơn vị (một đồng năm mươi hai xu, một đơn vị năm mươi hai phần trăm,...) nên ĐSTV chỉ đọc phần nguyên (sau khi làm tròn số) của số. Độ lớn của số không giới hạn (một số ứng dụng chỉ xử lý đến 15 chữ số). Số có thể là giá trị của một ô, kết quả trả về từ công thức trên bảng tính hoặc nhập số trực tiếp vào form.

• Cho phép thay đổi linh hoạt cách đọc số qua chuỗi nhập bất kỳ (có thể đưa vào công thức các chuỗi như "Tổng cộng", "đồng", "mét",... ) kết hợp biến docso và nhomngan. Kết quả đọc số thể hiện ngay trên form.

• Có thể ghi kết quả ra ô đích trên bảng tính bằng công thức (sẽ tự cập nhật đọc số khi ô nguồn thay đổi) hoặc bằng chuỗi.

• Thể hiện tình trạng hoạt động của ĐSTV trên form giúp người sử dụng dễ dàng.

CÁCH SỬ DỤNG

Giải nén tập tin TVEXCEL.ZIP (tải về từ www.pcworld.com.vn) để lấy tập tin TVEXCEL.XLA. Bạn có thể mở trực tiếp tập tin TVEXCEL.XLA để sử dụng, nhưng tốt nhất nên cho nó hoạt động cùng Excel để khai thác các hàm đọc số như hàm của Excel bằng cách: vào menu Tools > Add-Ins, chọn Browse rồi duyệt tìm đến tập tin TVEXCEL.XLA, chọn nó rồi nhấn OK. Sau đó, trên thanh menu Excel sẽ có thêm menu Tiếng Việt và menu con Đọc số tiếng Việt. Bạn có thể sử dụng ĐSTV bằng 2 cách:

I. Sử dụng hàm

TVEXCEL cung cấp các hàm sau:

Hàm Công dụng
DocSoVni(số) Đọc số mã VNI Windows
DocSoVniH(số) Đọc số mã VNI Windows (ký tự đầu viết hoa)
DocSoAbc(số) Đọc số mã TCVN3-ABC
DocSoAbcH(số) Đọc số mã TCVN3-ABC (ký tự đầu viết hoa)
DocSoUni(số) Đọc số mã Unicode
DocSoUniH(số) Đọc số mã Unicode (ký tự đầu viết hoa)
NhomNgan(số) Định dạng số sang dạng 0.000

Bạn sử dụng các hàm này giống như các hàm của Excel, chú ý bảng mã đang sử dụng mà chọn hàm cho phù hợp.

Ví dụ: ô B12 sử dụng font .VnTime (bảng mã TCVN3-ABC) có giá trị 1234

Công thức Kết quả trả về
=DocSoAbc(B12) một ngàn hai trăm ba mươi bốn
= "Tổng cộng số tiền là " & DocSoAbc(B12) Tổng cộng số tiền là một ngàn hai trăm ba mươi bốn
=DocSoAbc(B12) & " (" & NhomNgan(B12) & ")" một ngàn hai trăm ba mươi bốn (1.234)

II. Sử dụng hộp thoại

Từ bảng tính Excel:

- Chọn 1 ô nguồn để làm nơi ĐSTV sẽ ghi công thức đọc số vào bảng tính (không hoạt động khi bạn chọn nhiều ô nguồn).

- Chọn menu Tiếng Việt --> Đọc số tiếng Việt, form TVEXCEL Doc so tieng Viet xuất hiện. Trong form (từ trên xuống) có những mục sau:

1. Bảng thông báo tình trạng: Cho biết tình trang hiện tại và gợi ý cho bạn cách xử lý phù hợp.

2. Nguồn dữ liệu:

- Số từ ô nguồn: để lấy giá trị từ 1 ô trên bảng tính. Bạn có thể thay đổi địa chỉ ô nguồn.

- Tự nhập số: bạn tự nhập số vào hộp nhập (chỉ nhập số nguyên). Nếu chọn mục này, ĐSTV chỉ cho ghi vào bảng tính dạng chuỗi.

3. Địa chỉ ô nguồn: Cho phép thay đổi địa chỉ ô nguồn qua cột và dòng. ĐSTV sẽ cập nhật lại theo dữ liệu ô nguồn mới chọn.

4. Số từ ô nguồn/ Tự nhập số: Dữ liệu từ ô nguồn hoặc số do bạn nhập vào.

5. Số định dạng 0.000:

Nếu Số từ ô nguồn là số, ĐSTV sẽ làm tròn số và định dạng số theo dạng 0.000 không lệ thuộc vào khai báo Digit grouping symbol trong Regional and Language Options của Control Panel.

6. Cách đọc số:

Cho phép thay đổi linh hoạt cách đọc số bằng bàn phím qua chuỗi kết hợp 2 biến docso và nhomngan. 2 biến này có hiệu lực khi trong Cách đọc số có chuỗi "docso" hoặc "nhomngan" (không phân biệt chữ hoa, thường), cần chọn kiểu gõ bàn phím phù hợp với bảng mã nhập tiếng Việt.

- Biến docso: chuyển số sang cách đọc tiếng Việt.

- Biến nhomngan: định dạng số theo dạng 0.000

Ví dụ: ô nguồn A1 sử dụng font Arial (bảng mã Unicode) có giá trị là 1233,5

Cách đọc số (bạn tự nhập vào) Kết quả đọc số
1
Tổng cộng số tiền là docso đồng (nhomngan). Tổng cộng số tiền là một ngàn hai trăm ba mươi bốn đồng (1.234).
2
Danh sách này có docso thí sinh (nhomngan). Danh sách này có một ngàn hai trăm ba mươi bốn thí sinh (1.234).
3
Tổng khối lượng là docso kg Tổng khối lượng là một ngàn hai trăm ba mươi bốn kg
4
Danh sách này có nhomngan thí sinh Danh sách này có 1.234 thí sinh

Những thay đổi trong Cách đọc số sẽ được cập nhật trong Kết quả đọc số.

7. Kết quả đọc số: Cho biết kết quả đọc số theo Cách đọc số. Kết quả này được ghi vào ô đích nếu chọn lệnh Ghi đọc số (nếu bảng tính bị khóa thì Ghi đọc số không hiệu lực).

8. Ghi dạng công thức/ chuỗi:

- Ghi dạng công thức: sẽ ghi công thức vào ô đích. Khi ô nguồn thay đổi giá trị thì công thức sẽ trả về kết quả mới theo giá trị ô nguồn. Ví dụ công thức tại ví dụ 1 sử dụng mã Unicode sẽ được ĐSTV ghi vào ô nguồn:

="Tổng cộng số tiền là " & DocSoUni(A4) & " đồng (" & NhomNgan(A4) & ")."

Nếu sử dụng thạo công thức, bạn có thể chỉnh lại công thức không cần đến hộp thoại.

- Ghi dạng chuỗi: sẽ ghi vào ô đích chuỗi trong Kết quả đọc số.

9. Cách viết hoa số:

- Một triệu...: sẽ ghi hoa ký tự đầu của chuỗi đọc số. Ví dụ: Một triệu hai trăm ngàn.

- một triệu...: sẽ ghi thường ký tự đầu của chuỗi đọc số. Ví dụ: một triệu hai trăm ngàn.

10. Bảng mã: Cho biết ô đang chọn sử dụng bảng mã nào và ĐSTV sẽ chọn công thức phù hợp với bảng mã đang chọn.
TVEXCEL còn một số vấn đề cần trao đổi với các bạn để chương trình hoàn thiện hơn:

- Một ngàn triệu đọc là một tỷ. Vậy một ngàn tỷ và một triệu tỷ đọc là gì? Số 1.000.000.000.000.000.000 đọc là một tỷ tỷ có đúng không?

- Theo sách giáo khoa, số "1,2" đọc là một đơn vị hai phần mười. Cách đọc này chính xác. Nhưng nếu đọc một đồng hai phần mười thì hơi lạ tai. Có cách đọc số thập phân nào áp dụng chung cho các loại đơn vị không?

- Làm thế nào để nhận dạng tên 1 font nào đó là Unicode?

Phạm Duy Long
Trung tâm dạy nghề huyện Lai Vung, Đồng Tháp
pham_duy_long@yahoo.com

|<< << >> >>|
 
Sửa lần cuối:

Xem nhiều

Webketoan Zalo OA