XLL Add-In Đổi số thành chữ - Tốc độ nhanh tối đa, nhanh hơn 80% các Addins khác

[Nguyễn Duy Tuân]

Bác Tuấn chuyển cái hàm sothanhchu sang font unicode đi bác ơi. Em ko khoái sử dụng font tcvn3 lắm. Với lại em thấy mấy chỗ còn chưa chuẩn lắm
Ví dụ: 104225353: đọc là Một trăm linh bốn triệu hai trăm hai mươi lăm nghìn ba trăm ba mươi lăm mới chuẫn.
Bác thêm chữ mươi vào đọc cho nó nuột nà.
Cách đọc số 4 nó tùy vào vị trí của nó đứng ở đâu. Em cũng ko nhớ rõ lắm. Bác đã thương thì thương cho trót vậy nhé. Cám ơn bác nhiều

Bộ AccHelper có hỗ trợ unicode rồi bạn à. Bạn đọc thêm phần này hướng dẫn này:
http://www.bluesofts.net/Products/AddIns/Accounting Helper/Index.htm

Cách dùng ừ "mươi" tôi sẽ xem xét lại cho phù hợp nhất. Trước đây mình bỏ chữ "mươi" vì thấy đọc dó dài dòng không gọn câu, chỉ dùng chữ "mươi" để đọc với số không như là "hai mươi","ba mươi",...

Cách đọc của số 4 mình nghĩ như thế là đúng rồi. Số 4 nếu đúng cuối nhóm số bao giờ cũng đọc là "tư", trừ số 14 thì phải đọc là "mười bốn" chứ không phải là "mười tư" .

Cảm ơn bạn đã góp ý.

 

[Nguyễn Duy Tuân]

Đọc tiếng Việt và đơn vị đo là đồng đô la Mỹ

Cam ơn thành viên TuanVNUNI
e có câu hỏi này mong a TuanVNUNI giúp đỡ, vì e ko biết nhiều về lập trình, chắc nó cũng dựa trên đoạn code của 2 file đấy thôi. Câu hỏi thế này:
- có một ô là 2,568.25 $, xây dựng một hàm để đọc là "Hai nghìn năm trăm sáu tám đôla Mỹ và hai mươi lăm cen"
mong nhận được sự giúp đỡ.

Đã có hàm đọc số thành chử rồi thì từ đó ta có thể "chế" cho nó đọc thành cách khác được mà:
Ví dụ: 1500 nó đọc thành "một nghìn năm trăm đồng chẳn"... vậy ta dùng SUBSTITUTE để thay chử "đồng chẳn" thành "Đô la Mỹ"
vân vân và vân vân... thiếu chi cách
ANH TUẤN

Để đọc tiếng Việt và đơn vị đo là đồng đô la Mỹ, mọi người có thể sử dụng công thức sau:

Giả sử tại ô A1 chứa số tiền là 2,568.25$

Ô B1 đặt công thức

=SUBSTITUTE(VND(INT(A1)),"®ång.","®« la Mü") & " vµ " & LOWER(SUBSTITUTE(VND(ROUND((A1-INT(A1))*100,0)),"®ång.","cent")) & IF(ROUND((A1-INT(A1))*100,0)>1,"s","")

Công thức trên trả về font chữ dạng TCVN3, nếu cần các bạn có thể dùng hàm ToUNC("chuỗi TCVN3") để đổi về Unicode (xem hướng dẫn chi tiết tại trang đầu).

 

[Nguyễn Duy Tuân]

Cách đọc mới

Chào bạn Nguyễn Duy Tuân.
Tôi đã sử dụng AddIns Accounting Helper 1.1 của bạn. Rất tuyệt, song có 1 vấn đề là đối với hàm USD, trong công việc tôi không sử dụng cấu trúc chuyển đổi như bạn.
Ví dụ: =USD(123.45) --> "One hundred twenty three dollars and forty five cents." Nhưng tôi thường dùng là: "US dollars One hundred twenty three and cents forty five."
Nếu được, bạn có thể cho tôi AddIns chuyển đổi theo cấu trúc trên!?

Để làm theo cách của bạn, hãy làm theo hướng dẫn của tôi như sau:

Giả sử tại ô A1 có giá trị 123.45

Tại ô B1 đặt công thức:

="US dollar" & IF(INT(A1)>1,"s "," ") & SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(USD(A1)," dollar" & IF(INT(A1)>1,"s",""),"")," cents","")," and "," and cent" & IF(ROUND((A1-INT(A1))*100,0)>1,"s "," "))

Để download Addin Accounting Helper các bạn về trang đầu của topic này.
Các cách đọc số thành chữ bằng các thứ tiếng Anh, Việt tôi làm trong file "Cach_doc_ khac.zip" được cập nhật tại trang đầu (khi phát sinh cách đọc mới).

 

[Nguyễn Duy Tuân]

Cám ơn Bạn TuanVNUNI đã nhiệt tình với cộng đồng GPE về vấn đề mà nhiều bạn mới sử dụng EXCEL còn lúng túng và Mình đồng ý với Bạn [FONT=&quot]hai2hai "[/FONT] [FONT=&quot]Cái quan trọng vẫn là mục tiêu, mục tiêu là đổi số thành chữ" .
Mình có ý kiến là để tiện cho các bạn sử dụng hoàn toàn yên tâm nếu Bạn [/FONT]TuanVNUNI có thời gian lập 1 file có ví dụ từ 0 đồng đến hàng ngàn tỷ đồng với các dạng số khác nhau để thử thì tốt quá và mọi người cùng bổ sung các dạng số đã gặp và nghĩ ra, cũng không nhiều dạng lắm đâu.

Các cách đọc mà mọi người thường đề cập là đơn vị đồng tiền đặt ở đầu hay cuối câu mà thôi. Còn đọc sai hay đọc đúng thì mình và nhiều bạn khác đã kiểm nghiệm lâu rồi, bản thân mã nguồn của hàm VND,USD này em đã đang dùng trong phần mềm của mình. Nếu anh còn nghi ngờ về cách đọc thì bạn cứ kiểm tra lại một vài con số xem sao. Nếu có sự sai sót nào bạn đưa lên đây mình sẽ sửa ngay.

Khi kiểm tra thì chỉ có thể làm mẫu một số con số có cách đọc đặc biệt thôi chứ để em kiểm tra từ số 0 đến hàng ngàn tỷ đồng thì chết. Trong sản xuất một lô sản phẩm vài ngàn chiếc, nếu kiểm tra chất lượng mà cũng phải mổ sẻ cả ngàn sản phẩm thì chắc phá sản mất

 

[Nguyễn Duy Tuân]

Accounting Helper v1.2

Xin giới thiệu các bạn thành viên phiên bản mới của Add-In Accounting Helper v1.2 .

Những thay đổi chính:

+ Sửa lại cách đọc của hàm VND, SothanhChu:
Thêm từ "mươi" trong câu đọc với số hàng chục. Ví dụ trước đây đọc số tiền 152 là
"Một trăm năm hai đồng."
Phiên bản mới đọc là
"Một trăm năm mươi hai đồng."

Sửa cách đọc số 1 trong một vài tình huống đặc biệt. Ví dụ trước đây đọc 101 là
"Một trăm linh mốt đồng."
Phiên bản mới đọc là
"Một trăm linh một đồng."

+ Sửa lại cấu trúc của cả 3 hàm SpthanhChu,VND, USD. Thêm một đối số nữa trong các hàm là strCurrency
phiên bản cũ là
VND(Amount,StrOutputType)
USD(Amount)

Phiên bản mới là
VND(Amount,StrOutputType,StrCurrency)
USD(Amount,StrCurrency)

StrCurrency là tham số nhận giá trị kiểu chuỗi, ngầm định là "đồng" với hàm VND, SothanhChu, "dollar" với hàm USD. Bạn có thể thay đổi đơn vị tiền tệ nếu cần.
(Việc thay đổi cấu trúc các hàm trên vẫn đảm bảo tương thích (không gây lỗi) với việc dùng cấu trúc trong hàm của phiên bản cũ.)

+ Sửa lại mã nguồn, tự động nhận dạng ký tự của nhóm số và ký tự ngăn cách của phần thập phân theo hệ điều hành. Phiên bản trước đây, nếu trong Control Panel/Regional Setting/Currency, nếu đặt nhóm số là dấy chẩm (.) và nhóm thập phân là dấu phảy (,) các hàm đọc số thẽ báo lỗi.

Phiên bản v1.2 đã có những thay đổi rất quan trọng về mặt kỹ thuật cũng như đáp ứng về cách đọc mà nhiều bạn thành viên đã góp ý. Tác giả rất mong tiếp tục nhận được sự góp ý để AccHelper hoàn thiện hơn.

Các bạn có thể download theo đường dẫn dưới đây hoặc tại trang đầu:
http://www.bluesofts.net/Products/AddIns/Accounting Helper/Index.htm

 

[Nguyễn Duy Tuân]

Accounting Helper v1.3 ngày 21/05/08. Phiên bản mới!

Xin giới thiệu các bạn thành viên phiên bản mới của Add-In Accounting Helper v1.3.

Những thay đổi chính:

+ Hàm VND, SoThanhChu, Num2Str Cho phép đọc số thành chữ với font Unicode nhưng chỉ với Excel2007 trở lên.
Ví dụ:
=VND(120050) hoặc VND(120050,3)
Kết quả: "Một trăm hai mươi ngàn không trăm năm mươi USD."

3 - là giá trị của đối số OutputType xác định kết quả trả về là Unicode. Ngầm định với Excel2007 hoặc cao hơn, các phiên bản Excel thấp hơn thì giá trị này ngầm định là 1 - kiểu TCVN3(ABC).

+ Thêm đối số thứ tư HasGroupingSymbol kiểu logic, nếu là TRUE hoặc 1 thì chuỗi câu có dấu phảy (,) ngăn cách, nếu FALSE hoặc 0 (giá trị ngầm định) thì không có dấu phảy.

=VND(120050,3,"USD",TRUE) hoặc =VND(120050,,"USD",TRUE)
Kết quả: "Một trăm hai mươi ngàn, không trăm năm mươi USD."

+ Sửa lại cách đọc "không trăm".

(*) Bắt đầu từ phiên bản v1.3 trở lên sẽ hỗ trợ font Unicode (giá trị ngầm định) nhưng chỉ hỗ trợ Unicode cho Excel2007 hoặc cao hơn.
Các phiên bản cũ Excel2000/2002/2003 không hõ trợ font Unicode, nếu người dùng vẫn muốn kết quả là Unicode thì cần cài thêm AccHelperEx.xla (hỗ trợ hàm ToUNC,...)
Ví dụ:
=ToUNC(VND(120050,1),1)

Lý do mà với Excel của các phiên bản 2003 hoặc thấp hơn, Add-In AccHelper.xll không hỗ trợ Unicode vì kiểu giá trị của Excel API không hõ trợ loại font này (không giống với viết trong VBA với Add-In xla).

Với Add-In *.XLL sẽ không bị các phần mềm diệt virus như BKAV làm hỏng, tốc độ tính toán nhanh.

Các bạn có thể download tại trang đầu hoặc theo đường link dưới đây:
http://www.bluesofts.net/Products/AddIns/Accounting Helper/Index.htm

 

[hocdohoa.com]

Bạn ơi cho hỏi tí , Bạn có hàm nào đọc tiền đô rõ như sau ko?
Ví dụ nhé : 150.5 USD : Phải đọc là : Một Trăm năm chục đô la Mỹ năm cent ,.... vì cty em người ta bắt phải dịch rõ ra là Đô La Mỹ , đọc tới cent luôn ....giúp mình với nhé ....người ta ko dùng USD ..

 

[Nguyễn Duy Tuân]

Bạn ơi cho hỏi tí , Bạn có hàm nào đọc tiền đô rõ như sau ko?
Ví dụ nhé : 150.5 USD : Phải đọc là : Một Trăm năm chục đô la Mỹ năm cent ,.... vì cty em người ta bắt phải dịch rõ ra là Đô La Mỹ , đọc tới cent luôn ....giúp mình với nhé ....người ta ko dùng USD ..

Giả sử ô A1 có giá trị là 150.50
Công thức để đọc số thành chữ "Một Trăm năm chục đô la Mỹ năm cent" là:

IF(MOD(A1,INT(A1))<>0,SUBSTITUTE(IF(MOD(A1,INT(A1))=0,SUBSTITUTE(SUBSTITUTE(VND(A1),"mươi","chục"),"đồng"," đô la Mỹ"), SUBSTITUTE(SUBSTITUTE(VND(A1),"mươi","chục"),", lẻ"," đô la Mỹ")),"đồng.","cent")&IF(MOD(A1,INT(A1))*100>1,"s.","."),IF(MOD(A1,INT(A1))=0,SUBSTITUTE(SUBSTITUTE(VND(A1),"mươi","chục"),"đồng"," đô la Mỹ"), SUBSTITUTE(SUBSTITUTE(VND(A1),"mươi","chục"),", lẻ"," đô la Mỹ")))

 

[hocdohoa.com]

Không phải vậy ... Mình muốn có một cái hàm giống như doisothanhchu(...) đó chứ viết như vậy chắc xỉu luôn quá .. vì nó nhập nhiều số khác nhau mà.. nhập số vô là nó thành chữ luôn ..

Giả sử ô A1 có giá trị là USD 150.50
ở ô A2 mình đặt cái hàm là nó đọc ra thành "Một Trăm năm chục đô la Mỹ và năm mươi cent"
Bạn có thể sửa lại mấy cái hàm bạn đã có rồi để cho nó đọc như thế không ?
One hundred fifty and fifty cents.

Mình thấy cái hàm =USD(A1) đọc là : One hundred fifty and fifty cents . Đọc như thế là đúng ... nhưng mình muốn nó đọc tiếng việt ....
Rất mong pro sửa giúp mình nhé .. "Một Trăm năm chục đô la Mỹ và năm mươi cent"
Có chữ "Và" nữa nhé . Bạn làm tên hàm ngắn giống hàm này USD(A1) là tố lắm thank...
Cái công thức bạn viết cho mình ko có chữ "và" , và nó bị không ra tiếng việt nữa...giúp mình với nhé...

thank..

 

[nhatchimai]

Sao em add vào toàn bị báo lỗi như hình kèm theo. Ai giúp em với????
http://www.zshare.net/image/17066928ba015ede/

 

[Nguyễn Duy Tuân]

Sao em add vào toàn bị báo lỗi như hình kèm theo. Ai giúp em với????
http://www.zshare.net/image/17066928ba015ede/

Bạn mở Excel, vào menu Tools->Add-Ins kiểm tra xem có loại add-in nào có sử dụng hàm VND, USD thì gỡ bỏ đi (kể cả các file phiên bản cũ của AccHelper), đóng Excel lại rồi tiến hành cài đặt bình thường.

Nếu đã làm theo hướng dẫn trên mà máy bạn vẫn không nhận, bạn hãy copy các file (*.xll,*.xla) vào đường dẫn sau:
C:\Documents and Settings\YOURUSER\Application Data\Microsoft\AddIns

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

 

[Nguyễn Duy Tuân]

Accounting Helper v1.4 ngày 23/08/08. Phiên bản mới!

Xin giới thiệu các bạn thành viên phiên bản mới của Add-In Accounting Helper v1.4.

Những thay đổi chính:

+ Sửa cách đọc "bẩy" thành "bảy".
+ Khắc phục lỗi cài đặt trên một số loại máy.

Các bạn có thể download tại trang đầu hoặc theo đường link dưới đây:
http://www.bluesofts.net/Products/AddIns/Accounting Helper/Index.htm

 

[Nguyễn Duy Tuân]

Accounting Helper v2.0 ngày 25/11/08. Phiên bản mới!

Xin giới thiệu các bạn thành viên phiên bản mới của Add-In Accounting Helper v2.0

Những thay đổi chính:

v2.0: (25-Nov-2008)

+ Sửa lại các đọc chuẩn hơn: sửa lại các đọc số thập phân trong tiếng Việt, các đọc nhóm số trong tiếng Anh.
+ Cho phép đọc số tiền lên tới 18 chữ số.
+ Sửa lại cấu trúc các hàm đọc số VND, USD, Num2Str. Thêm các tham số để thực hiện việc đọc linh động.

VND(Amount, OutputType, Unit1, Unit2, MUnit2, HasGroupingSymbol)
USD(Amount, Unit1, Unit2, MUnit2, HasGroupingSymbol)
Num2Str(Amount, LangType, Unit1, Unit2, MUnit2, HasGroupingSymbol)

Amount: là số tiền cần chuyển đổi thành văn bản.
OutputType: là một số, nếu giá trị là 1 hàm trả về kiểu chuỗi TCVN3, 2 kiểu chuỗi là VNI, 3 kiểu chuỗi là Unicode - ngầm định (Chỉ dùng từ Excel 2007 trở lên)
Unit1: là giá trị kiểu chuỗi, chỉ ra loại đơn vị tiền tệ, ngầm định là "đồng"
Unit2: là giá trị kiểu chuỗi, chỉ ra loại đơn vị tiền tệ cho số lẻ, ngầm định là "xu"
MUnit2: là con số được nhân với số lẻ của Amount, quy đổi số lẻ từ đơn vị Unit1 sang Unit2, ngầm định giá trị là 1
HasGroupingSymbol là giá trị kiểu logic(boolean), nếu là TRUE thì chuỗi kết quả sẽ có dấu phảy (, ) ngăn cách câu, FALSE là giá trị ngầm định không có dấu (, ) ngăn cách.

(*) Với sự thay đổi cấu trúc này cho phép khả năng đọc phong phú, không chỉ đọc số tiền mà đọc cho các đơn vị đo lường khác, cho phép quy đổi đơn vị.

Các ví dụ được trình bày chi tiết trong file "Help.xls"

+ Tăng tốc độ đọc của các hàm.
+ Quản lý bộ nhớ của Windows tốt hơn.
+ Với Excel 2007, Add-In hỗ trợ đầy đủ Unicode. Chữ tiếng Việt được thể hiện trong hộp thoại "Add-Ins" và "Function Wizard/Arguments", các hướng dẫn cho các tham số được chi tiết.
+ Cung cấp thêm khả năng tùy chọn cho người dùng.
(*) Để thay đổi những thông số được thiết lập ngầm định cho các hàm cũng như cách đọc số của các hàm, người dùng có thể mở file "AccHelper.ini" bằng Notepad hay một trình soạn thảo (hỗ trợ Unicode) nào đó để sửa đổi.
Nội dung file "AccHelper.ini" gồm:

;==================================================
;Thiết lập giá trị ngầm định cho Excel Add-In "Accounting Helper" (acchelper.xll)
;Bạn cần gõ chuỗi Unicode!
;--------------------------------------------------------------------------------------------------------------
;E = English; V = Việt Nam

[NUM2STRING]
DecPointV=và
DecPointE=and
OnlyV=chẵn
OnlyE=only
Unit1V=đồng
Unit1E=dollars
Unit2V=xu
Unit2E=cents
EndPoint=.

Nếu người dùng sửa lại các thông số trong file "AccHelper.ini" thì phải khởi động lại Excel thì các hàm mới cập nhật lại.

Các bạn có thể download tại trang đầu hoặc theo đường link dưới đây:

Bluesofts AccHelper (Accounting Helper) Đọc số thành chữ trong Excel

bluesofts.net

 

[Lệnh Hồ Đại Hiệp]

Không phải đâu bạn. Từ "and" được dùng trong tất cả các nhóm số, nếu nhóm có 3 chữ số.

Có hai cách đọc tiếng anh : Anh Anh và Anh Mỹ.
Anh Mỹ sẽ ít and hơn

 

[Cá ngừ F1]

bây h tớ không muốn đọc số lẻ sau số thập phân được không?
vd: số 64,000.75
hàm vnd đọc là: sáu tư ngàn và bẩy lăm xu
nhưng ô số này tớ định dạng ko có số thập phân, tức là thành số 64,001, thì hàm trên vẫn đọc theo như trên
liệu có thể cho hàm đọc cho kết quả là "sáu tư ngàn không tram linh một đồng" được không?

 

[cadafi]

bây h tớ không muốn đọc số lẻ sau số thập phân được không?
vd: số 64,000.75
hàm vnd đọc là: sáu tư ngàn và bẩy lăm xu
nhưng ô số này tớ định dạng ko có số thập phân, tức là thành số 64,001, thì hàm trên vẫn đọc theo như trên
liệu có thể cho hàm đọc cho kết quả là "sáu tư ngàn không tram linh một đồng" được không?

Vậy thì bạn hãy lồng hàm làm tròn số trước khi đọc:

Ví du5:

=VND(Round(64,000.75,0))

 

[BNTT]

Tuân ơi, cho mình hỏi tí.
Mình không thích chữ "chẵn", nên đã bỏ chữ này trong phần:

OnlyV=​

Tuy nhiên, khi đó kết quả sẽ xấu, vì nó có một khoảng trắng trước dấu chấm. Ví dụ:

Một ngàn đồng .​

Mình mày mò bỏ luôn dấu chấm ở mục này:

Endpoint=​

Kết quả "tạm được", nghĩa là không còn dấu chấm.

Nhưng nếu nhấn F2 rồi F9 thì kết quả sẽ có một khoảng trắng thừa ở sau cùng.

Nếu muốn khắc phục, phải dùng thêm hàm TRIM:

=TRIM(VND(B1))​

Vậy, cho mình hỏi, Tuân có thể sửa vấn đề này không?

Nghĩa là:

• Nếu không dùng chữ chẵn, thì dấu chấm làm ơn nằm sát vào cuối kết quả
• Nếu không dùng Endpoint, thì cũng sẽ không có khoảng trắng thừa ở cuối kết quả

Vấn đề này, không thành vấn đề nữa nếu chỉ cần có kết quả.

Nhưng nếu dùng hàm tham chiếu (VLOOKUP chẳng hạn), đem cái "Một ngàn đồng" đi dò với kết quả tạo ra bởi VND(), thì sẽ sai, bởi bình thường, chúng ta gõ "Một ngàn đồng" thì không bao giờ có khoảng trắng thừa phía sau.

Hoặc, khi gõ "Một ngàn đồng." (có dấu chấm), thì không ai gõ cách một cái mới đến dấu chấm, cho nên nếu đem cái này đi dò với kết quả tạo ra của VND(), thì cũng không được.

Hy vọng Tuân hiểu mình muốn nói cái gì.

Cảm ơn nhiều.

 

[BNTT]

Thêm hai cái nữa, Tuân ơi.

Một, mình hổng thích chữ "và", ví dụ:
Mình thích 9.5 = "Chín đồng 50 xu", chứ không thích "Chín đồng và năm mươi xu"
Theo hướng dẫn, mình cho cái DecPoint= (rỗng)
Thế là, kết quả của VND có đến hai khoảng trắng sau chữ đồng: "Chín đồng năm mươi xu"

Hai, dùng cái Addin này để dịch thời gian rất hay (Chín giờ ba mươi phút chẳng hạn)
Nhưng, cũng giống như trên, nếu bỏ chữ "và" thì sau chữ "giờ" ở kết quả sẽ có 2 khoảng trắng.

Ý mình là Tuân có thể gài cái giống như TRIM() vào trong cái Addin này không?

(Đòi hỏi hơi nhiều, mong là không bị bực...)

 

[Nguyễn Duy Tuân]

Accounting Helper v2.0.1 - 08/12/08

Xin giới thiệu các bạn thành viên phiên bản mới của Add-In Accounting Helper v2.0.1

v2.0.1: (08-Dec-2008)
Những thay đổi chính:

+ Sửa lại các lỗi khi xóa giá trị các tham số trong file "acchelper.ini", khi đó các hàm đọc số vẫn đặt khoảng trắng ở cuối câu hoặc cuối đơn vị tiền tệ,

dấu chấm câu.
+ Thêm 2 biến tham số vào file "acchelper.ini", người dùng có thể đặt giá trị cho tham số để cho phép có đọc số lẻ thành chữ hay không.
DecTransV=1 đọc số lẻ tiếng Việt.
VND(9.25) = "Chín đồng và hai mươi lăm xu."
DecTransV=0 không đọc.
VND(9.25) = "Chín đồng 25 xu."

DecTransE=1 đọc số lẻ tiếng Anh
DecTransE=0 không đọc

+ Thêm 3 hàm gồm VNDW, USDW, Num2StrW trong add-in "AccHelperEx.xla", các hàm này luôn trả về giá trị ngầm định là Unicode.
Cách dùng cũng như tốc độ tính toán tương tự như các hàm VND, USD, Num2Str.
Lưu ý, add-in "AccHelperEx.xla" chỉ cần thiết với Excel 2003 hoặc các phiên bản thấp hơn để nhận giá trị Unicode.

Xin cảm ơn anh BNTT đã thông báo các lỗi trên!

Nếu các bạn muốn sử dụng các hàm trên trong VB6, VBA thì có thể copy các khai báo dưới đây đưa vào module của ứng dụng. Nếu dùng các ngôn ngữ khác như Foxpro, Delphi, C, .NET thì cần sửa khai báo theo cách thức khai báo kiểu gọi API Functions.

Option Explicit
'Author: Nguyen Duy Tuan
'Website: www.bluesofts.net

Declare Function VNDW Lib "AccHelper.xll" Alias "VND" (ByVal Amount As Double, _
                                        Optional ByVal OutputType As Integer = 3, _
                                        Optional ByVal Unit1 As Variant = vbNullString, _
                                        Optional ByVal Unit2 As Variant = vbNullString, _
                                        Optional ByVal MUnit2 As Long = 1, _
                                        Optional ByVal HasGroupingSymbol As Boolean = False) As Variant
'OutputType = 1 => TCVN3(ABC)
'OutputType = 2 => VNI
'OutputType = 3 => UNICODE (Ngam dinh)

Declare Function USDW Lib "AccHelper.xll" Alias "USD" (ByVal Amount As Double, _
                                        Optional ByVal Unit1 As Variant = vbNullString, _
                                        Optional ByVal Unit2 As Variant = vbNullString, _
                                        Optional ByVal MUnit2 As Long = 1, _
                                        Optional ByVal HasGroupingSymbol As Boolean = False) As Variant

Declare Function Num2StrW Lib "AccHelper.xll" Alias "Num2Str" (ByVal Amount As Double, _
                                        Optional ByVal LangType As Integer = 2, _
                                        Optional ByVal Unit1 As Variant = vbNullString, _
                                        Optional ByVal Unit2 As Variant = vbNullString, _
                                        Optional ByVal MUnit2 As Long = 1, _
                                        Optional ByVal HasGroupingSymbol As Boolean = False) As Variant

'LangType = 1 => Viet Nam
'LangType = 2 => English

Declare Function ToUNC Lib "AccHelper.xll" Alias "UNC" (ByVal Text As Variant, _
                                        Optional ByVal InputType As Integer = 1) As Variant
'InputType = 1  TCVN3>>UNICODE (ngam dinh)
'InputType = 2    VNI>>UNICODE

Các bạn có thể download tại trang đầu hoặc theo đường link dưới đây:

Bluesofts AccHelper (Accounting Helper) Đọc số thành chữ trong Excel

bluesofts.net

 

[BNTT]

Xin góp ý thêm môt chút nữa, Tuân ơi.
Trong phần hướng dẫn, Tuân có ghi như vầy:

(*) Cài đặt Addin trong Excel2007:
+ Bấm vào nút "Office Button" (nút to, tròn ở góc đỉnh bên trái màn hình)
+ Chọn "Excel Options"
+ Chọn "Add-Ins", màn hình phía bên phải, dưới đáy "Manage:" chọn "Excel Add-Ins" cuối cùng chọn "Go".
+ Tại màn hình "Add-Ins" bạn làm như với Excel2003 trở về trước. Bấm chọn "Browse" và chọn file AccHelper.xll và AccHelperEx.xla.

Tuy nhiên, mình thấy là Excel 2007 nó không cần cái AccHelperEx.xla, chỉ cần mỗi cái AccHelper.xll thôi.
Không biết như vậy có đúng hay không?

Còn phần sửa lại khoảng trắng và dấu chấm câu, tuyệt rồi. Cảm ơn Tuân nhiều. Chúc bạn có nhiều chương trình hay hơn nữa.