Add-in: Đổi số sang chữ trong Excel sử dụng font Unicode

[anhducnd]

Sao mình chuyển qua số tiền bằng chữ cuối dòng không có chữ Đồng vậy

 

[pcviet]

Làm sao bỏ chữ .."chẵn" ở cuối dòng chuyển đổi ??

Sorry các bạn, post nhầm file đổi số cho VNI
Đây là bản đổi file cho font Unicode

Anh Infes oi
Làm sao để bỏ chữ "chẵn" ở cuối câu chuyển đổi...anh giúp với.
Có ai biết giúp tôi với....

vi dụ : 123 => Một trăm hai ba đồng chẵn.
Tôi viết lệnh chi...ngân hàng không đồng ý có chữ chẵn này .

Làm sao ? làm sao ?
Các chương trình khác cái thì lại thiếu chữ đồng, cái lại không viết hoa chữ đầu tiên....khổ thế cơ chứ
....

 

[cadafi]

Anh Infes oi
Làm sao để bỏ chữ "chẵn" ở cuối câu chuyển đổi...anh giúp với.
Có ai biết giúp tôi với....

vi dụ : 123 => Một trăm hai ba đồng chẵn.
Tôi viết lệnh chi...ngân hàng không đồng ý có chữ chẵn này .

Làm sao ? làm sao ?
Các chương trình khác cái thì lại thiếu chữ đồng, cái lại không viết hoa chữ đầu tiên....khổ thế cơ chứ
....

Có người thi không thích chữ chẵn, có người thích để chữ Đôla Mỹ, v.v...
Đơn giản nếu bạn xài chương trình nào, của ai, thì phải động não biến nó thành công cụ làm được việc cho mình chứ. Ví dụ hàm trên muốn bỏ chữ chẵn thì dùng substitute để thay thế, ví dụ:

=VND(123) =>  Một trăm hai ba đồng chẵn.

Đổi thành:
=Substitute(VND(123)," chẵn","") ==> Một trăm hai ba đồng

Còn chương trình nào không có chữ đồng và không viết hoa chữ đầu tiên, thì làm như sau:

=VND(123) =>  một trăm hai ba

Đổi thành:
=Upper(Left(VND(123)))&Right(VND(123),len(VND(123))-1)&" đồng"

 

[Ly_Hung]

Đổi số thành chữ

Mình Post file này để các bạn tham khảo, tuy nhiên nó chỉ dùng TCVN3 thôi. Mình cũng có câu hỏi như bạn quisitaro là:
Muốn đọc số thập phân kiểu như: 15,20 = Mười lăm phẩy hai mươi
15,26 m2 = Mười lăm phẩy hai (mươi) sáu mét vuông
thì phải làm thế nào? Mong được sự giúp đỡ của các Đại gia

 

[emonly10884]

Mình muốn đọc một số như sau: 100=> ONE HUNDRED ONLY
thì mình làm thế nào?
Vì mình để VND 100 dùng cách của infes nó thành ONE HUNDRED DOLLARS ONLY.
Có cách nào chỉ cần đọc số thôi không cần đọc ngoại tệ không nhỉ?

 

[ngochuyhn]

Mình Post file này để các bạn tham khảo, tuy nhiên nó chỉ dùng TCVN3 thôi. Mình cũng có câu hỏi như bạn quisitaro là:
Muốn đọc số thập phân kiểu như: 15,20 = Mười lăm phẩy hai mươi
15,26 m2 = Mười lăm phẩy hai (mươi) sáu mét vuông
thì phải làm thế nào? Mong được sự giúp đỡ của các Đại gia

Bạn dùng cái này thử xem. Mình cũng không nhớ là lấy cái này ở đâu nữa, nó có đọc được cả số thập phân.

 

[nguqua]

Đổi sổ tự động nhận dạng bảng mã, đổi dương lịch sang âm lịch và ngược lại.

- Đổi số: =docso(A1) (A1 là địa chỉ của cell có con số cân đọc thành chữ)
- Đổi số USD: =docsoUSD(A1) (A1 là địa chỉ của cell có con số cân đọc thành chữ)
- Đổi ra âm lịch: =Amlich(A1) (A1 là địa chỉ của cell có ngày dương lịch)
- Đổi ra dương lịch: =duonglich(A1) (A1 là địa chỉ của cell có ngày âm lịch)

Font sẽ được tự động nhận dạng.
Download :

[URL]http://www.giaiphapexcel.com/forum/showthread.php?p=172970#post172970[/URL]

 

[ndt789]

Cho em hỏi cách sử dụng cho Office 2007.

 

[hanamhoa]

Add- In trong ứng dụng đọc số thành chữ

Em chào cả nhà,

Em down file đổi số về máy rùi nhưng sao chỉ đổi sang tiền Việt Nam được thôi nhỉ. Còn khi muốn đọc số tiền USD bằng tiếng Việt và tiếng Anh thì không được. Cả nhà chỉ giùm em với nha.

Thanks cả nhà nhìu!!!

 

[phamduylong]

sao mìmh không Chép được file Doiso.XLA vào thư mục Add-in

máy mình dùng Excel XP trên Windows XP: nhưng lại ko có các thư mục UserNam\Application Data\Microsoft\AddIns như theo đường dẫn này.
C:\Documents and Settings\UserName\Application Data\Microsoft\AddIns
Làm thế nào bây giờ? mọi người hãy giúp mình với

Bạn chép Doiso.xla vào 1 nơi nào đó trên ổ cứng. Ví dụ: D:\AddIn\Doiso.xla
Mở Excel > Tools > AddIns > Browse > tìm đến D:\AddIn\Doiso.xla > OK

 

[soonwi]

Function DocSoUni(conso) As String
s09 = Array("", " 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")
lop3 = Array("", " tri" & ChrW(7879) & "u", " ngh" & ChrW(236) & "n", " t" & ChrW(7927))

Các bác ơi kíu em đọan này với, em sử dụng VBA đọc số ra chữ font Unicode và em muốn thêm chữ đồng vào cuối nên em đã sử dụng thêm hàm này vào sau End If
DocSoUni = DocSoUni & ChrW(???) & "ng". Đoạn code ChrW(???) & "ng" em biết là ChrW(???) kết hợp với & "ng" để thành chữ đồng. nhưng em không thể biết con số trong (???) là bao nhiêu để nó thành chữ "đồ" thì khi kết hợp với "ng" sẽ cho ra chữ đồng. Các bác giúp em với
thanks

 

[phamduylong]

Các bác ơi kíu em đọan này với, em sử dụng VBA đọc số ra chữ font Unicode và em muốn thêm chữ đồng vào cuối nên em đã sử dụng thêm hàm này vào sau End If
DocSoUni = DocSoUni & ChrW(???) & "ng". Đoạn code ChrW(???) & "ng" em biết là ChrW(???) kết hợp với & "ng" để thành chữ đồng. nhưng em không thể biết con số trong (???) là bao nhiêu để nó thành chữ "đồ" thì khi kết hợp với "ng" sẽ cho ra chữ đồng. Các bác giúp em với
thanks

đồng = đ & ồ & ng
mã đ = 273, ồ = 7891 > DocSoUni = DocSoUni & ChrW(273) & ChrW(7891) & "ng"

Để biết mã của 1 ký tự, bạn dùng hàm AscUni:

Function AscUni(text As String) As Long
AscUni = AscW(text)
End Function

 

[phuong khanh]

Chào cả nhà, anh chị cho e hỏi, e add ADD-IN này vào nhưng nói kg đọc được tiếng việt (chỉ đọc được tiếng anh thôi ah). Có cách nào đề nó đợc được tiếng việt kg a? help em với nha. Thanks all!

 

[duongdv]

Chào cả nhà, anh chị cho e hỏi, e add ADD-IN này vào nhưng nói kg đọc được tiếng việt (chỉ đọc được tiếng anh thôi ah). Có cách nào đề nó đợc được tiếng việt kg a? help em với nha. Thanks all!

Bạn vào đây tham khảo nhé.
Có cả tiếng tây lẫn tiếng ta cho bạn lựa chọn
http://www.giaiphapexcel.com/forum/showthread.php?t=1047

 

[violetdylan]

Các bác ơi kíu em đọan này với, em sử dụng VBA đọc số ra chữ font Unicode và em muốn thêm chữ đồng vào cuối nên em đã sử dụng thêm hàm này vào sau End If
DocSoUni = DocSoUni & ChrW(???) & "ng". Đoạn code ChrW(???) & "ng" em biết là ChrW(???) kết hợp với & "ng" để thành chữ đồng. nhưng em không thể biết con số trong (???) là bao nhiêu để nó thành chữ "đồ" thì khi kết hợp với "ng" sẽ cho ra chữ đồng. Các bác giúp em với
thanks

Hoặc đơn giản hơn, bạn thêm & "đồng" như công thức sau: =DocSoUni(xx) & " đồng."

 

[huongcc]

Mình thực hiện được việc đọc số bằng hàm vnd rồi nhưng mình muốn hỏi thêm khi có nhu cầu chuyển từ số 101.30$ sang "Một trăm đô la và ba mươi cent" thì dùng hàm gì. Bạn nào biết chỉ giúp mình với. Trong công việc của mình rất cần, nhiểu khi không chú ý là quên và thêm vốn tiếng Anh ko vững nên mình bị sai.

 

[muontennguoikhac]

Mình thực hiện được việc đọc số bằng hàm vnd rồi nhưng mình muốn hỏi thêm khi có nhu cầu chuyển từ số 101.30$ sang "Một trăm đô la và ba mươi cent" thì dùng hàm gì. Bạn nào biết chỉ giúp mình với. Trong công việc của mình rất cần, nhiểu khi không chú ý là quên và thêm vốn tiếng Anh ko vững nên mình bị sai.

Nếu đó là tiền Việt thì nó đọc ra sao?
Nếu là "Một trăm lẻ một đồng và ba mươi xu" (bạn bẻ cò hết 1 đồng đấy nhá ) thì bạn replace "đồng" thành "đô la" và replace "xu" thành "cent".

 

[VuDT]

Đã tìm được cách khắc phục. Co 2 cach:
1/ Lồng thêm hàm Substitute để remove dấu phẩy: vd =substitute(vnd(a1),",","")

2/ Can thiệp vào code ( ALT-F11), tìm và xoá chuỗi ;2C ở dòng

BangChu = BangChu + IIf(Len(BangChu) = 0, "", ";2C;20")

 

[huycuongxd]

Mọi người xin chỉ giáo cho mình làm sao để thêm ngoặc đơn vào phần chữ vừa được đổi từ số sang vd: (Hai trăm ba mươi tám nghìn, chín trăm sáu mươi bảy đồng). Cám ơn !

Bạn làm thế này cho đơn giản:
Giả sử bạn vừa đổi số thành chữ bằng công thức: =ABC
Bây giờ bạn gõ là: ="("&ABC&")"
Chúc bạn thành công!

 

[ThuNghi]

Các pac oi, mọi người có thể chỉ cho mình cách đổi số (đọc số tiền USD = tiếng Việt) bây giờ mới thấy là mình cần phải dùng nó, nhưng chỉ dùng được hàm vnd và usd thôi chứ không dùng được hàn usvn, kết quả nó toàn báo lỗi (#name) thôi. Cảm ơn mọi người nhiều. Có gì mọi người gửi mail cho mình với nhé, địa chỉ mail của minh là: anh.0208@gmail.com

Bạn copy thêm 1 UDF (function) và thay thế VND = USVN. Và phần chữ đồng bạn thay thế = Đôla Mỹ là OK.
Còn chưa OK thì gởi code lên.
Hay dùng cách khác là dùng hàm substitute(VND(...),"đồng","DoLa...")