Hàm exel đổi kiểu số thành kiểu chữ

huongrainbow · 7/8/09

Mình muốn đổi kiểu số trong phần thành tiền thành kiểu chữ ở dòng đọc thành chữ ở phiếu chi, thu thì làm thế nào. VD Bằng tiền 200.000. Viết bằng chữ : Hai trăm ngàn đồng chẵn. [you] biết thì giúp với. Thanks [you]

hoasimtimht · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

http://*********.com/forum/showthread.php?t=52167
bạn lên chỗ này tham khảo xem nhé. hoặc bạn có thể liên hệ mình gửi cho. Yahoo hoasimtimht

kthntk3 · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

C1.Bạn có thể dùng tải phần mềm VNTOOLS114 và xem hướng dẫn cài đặt về máy tính của bạn.
C2. Có thể sử dụng ngay các hàm đọc số thành chữ trong Excel, mình thấy cách này hay và tiện lợi bạn tham khảo nhé.
200,000 000000200000 1 2 3 4 5 6 7 8 9 10 11 12
0 0 0 0 0 0 2 0 0 0 0 0
0 0 0 0 0 0 2 2 2 0 0 0
hai
trăm ngàn đồng.
Hai trăm ngàn đồng.
200000 =RIGHT("000000000000"&ROUND(A1,0),12) 1 2 3 4 5 6 7 8 9 10 11 12
=VALUE(MID(B1,C1,1)) =VALUE(MID(B1,D1,1)) =VALUE(MID(B1,E1,1)) =VALUE(MID(B1,F1,1)) =VALUE(MID(B1,G1,1)) =VALUE(MID(B1,H1,1)) =VALUE(MID(B1,I1,1)) =VALUE(MID(B1,J1,1)) =VALUE(MID(B1,K1,1)) =VALUE(MID(B1,L1,1)) =VALUE(MID(B1,M1,1)) =VALUE(MID(B1,N1,1))
=SUM(C2:C2) =SUM(C2

2) =SUM(C2:E2) =SUM(F2:F2) =SUM(F2:G2) =SUM(F2:H2) =SUM(I2:I2) =SUM(I2:J2) =SUM(I2:K2) =SUM(L2:L2) =SUM(L2:M2) =SUM(L2:N2)
=IF(C2=0,"",CHOOSE(C2,"một","hai","ba","bốn","năm","sáu","bảy","tám","chín")) =IF(D2=0,IF(AND(C2<>0,E2<>0),"lẻ",""),CHOOSE(D2,"mười","hai","ba","bốn","năm","sáu","bảy","tám","chín")) =IF(E2=0,"",CHOOSE(E2,IF(D2>1,"mốt","một"),"hai","ba","bốn",IF(D2=0,"năm","lăm"),"sáu","bảy","tám","chín")) =IF(F2=0,"",CHOOSE(F2,"một","hai","ba","bốn","năm","sáu","bảy","tám","chín")) =IF(G2=0,IF(AND(F2<>0,H2<>0),"lẻ",""),CHOOSE(G2,"mười","hai","ba","bốn","năm","sáu","bảy","tám","chín")) =IF(H2=0,"",CHOOSE(H2,IF(G2>1,"mốt","một"),"hai","ba","bốn",IF(G2=0,"năm","lăm"),"sáu","bảy","tám","chín")) =IF(I2=0,"",CHOOSE(I2,"một","hai","ba","bốn","năm","sáu","bảy","tám","chín")) =IF(J2=0,IF(AND(I2<>0,K2<>0),"lẻ",""),CHOOSE(J2,"mười","hai","ba","bốn","năm","sáu","bảy","tám","chín")) =IF(K2=0,"",CHOOSE(K2,IF(J2>1,"mốt","một"),"hai","ba","bốn",IF(J2=0,"năm","lăm"),"sáu","bảy","tám","chín")) =IF(L2=0,"",CHOOSE(L2,"một","hai","ba","bốn","năm","sáu","bảy","tám","chín")) =IF(M2=0,IF(AND(L2<>0,N2<>0),"lẻ",""),CHOOSE(M2,"mười","hai","ba","bốn","năm","sáu","bảy","tám","chín")) =IF(N2=0,"",CHOOSE(N2,IF(M2>1,"mốt","một"),"hai","ba","bốn",IF(M2=0,"năm","lăm"),"sáu","bảy","tám","chín"))
=IF(C2=0,"","trăm") =IF(D2=0,"",IF(D2=1,"","mươi")) =IF(AND(E2=0,E3=0),"","tỷ") =IF(F2=0,"","trăm") =IF(G2=0,"",IF(G2=1,"","mươi")) =IF(AND(H2=0,H3=0),"","triệu") =IF(I2=0,"","trăm") =IF(J2=0,"",IF(J2=1,"","mươi")) =IF(AND(K2=0,K3=0),"","ngàn") =IF(L2=0,"","trăm") =IF(M2=0,"",IF(M2=1,"","mươi")) đồng.
=UPPER(LEFT(TRIM(IF(A1=0,"không đồng.",C4&" "&C5&" "&D4&" "&D5&" "&E4&" "&E5&" "&F4&" "&F5&" "&G4&" "&G5&" "&H4&" "&H5&" "&I4&" "&I5&" "&J4&" "&J5&" "&K4&" "&K5&" "&L4&" "&L5&" "&M4&" "&M5&" "&N4&" "&N5)),1))&RIGHT(TRIM(IF(A1=0,"không đồng.",C4&" "&C5&" "&D4&" "&D5&" "&E4&" "&E5&" "&F4&" "&F5&" "&G4&" "&G5&" "&H4&" "&H5&" "&I4&" "&I5&" "&J4&" "&J5&" "&K4&" "&K5&" "&L4&" "&L5&" "&M4&" "&M5&" "&N4&" "&N5)),LEN(TRIM(IF(A1=0,"không đồng.",C4&" "&C5&" "&D4&" "&D5&" "&E4&" "&E5&" "&F4&" "&F5&" "&G4&" "&G5&" "&H4&" "&H5&" "&I4&" "&I5&" "&J4&" "&J5&" "&K4&" "&K5&" "&L4&" "&L5&" "&M4&" "&M5&" "&N4&" "&N5)))-1)

tungnguyen_kt · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Vì mình là thành viên mới nên kg gởi được file đính kèm, nhờ các anh chị khác quan tâm giúp đỡ cho huongrainbow. nếu không bạn đưa email mình sẽ gởi add-in cho bạn.

huongrainbow · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Minh lên rồi nhưng không biết sử dụng Add- in.
Có cách nào dùng được hàm Text không?
-----------------------------------------------------------------------------------------

Mình chẳng hiểu gì cả, có cách nào hay hơn không? hay bạn giải thích rõ hơn không, mình không biết nhiều về cel lắm. :motsach:

Pysanka · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Oh, giờ mới đọc entry này. Bạn thử tham khảo cái này xem:
- Download file về : http://www.*************/Products/AddIns/Accounting Helper/Index.htm
- Giải nén
- Mở Excel, vào menu Tools\Add-Ins chọn nút "Browse" và chọn tới các file *.Xll, *.xla (vừa được giải nén).

Cách dùng (đơn giản) trong Sheet:
=VND(Số tiền)
Ví dụ:
=VND(1000000)

=VND(1000000) kết quả là chuỗi TCVN3 (Nếu Excel 2003 trở về trước)
=VND(1000000) kết quả là chuỗi Unicode (Nếu từ Excel 2007 trở lên)

=VND(1000000,2) kết quả là chuỗi VNI
=VND(1000000,3) kết quả là chuỗi Unicode

=ToUNC(VND(1000000,1),1) kết quả là chuỗi Unicode
=ToUNC(VND(1000000,2),2) kết quả là chuỗi Unicode

=USD(1000000) kết quả là chuỗi đọc số tiếng Anh

=Num2Str(1000000) kết quả là chuỗi Unicode (tiếng Anh)
=Num2Str(1000000,1) kết quả là chuỗi đọc số tiếng Việt

Để biết được nó tối ưu như thế nào, bạn vào công thức tại ô A1
=VND(1000000) copy cho tất cả các dòng trong một cột (65536 dòng)

Bạn cũng làm vậy với hàm đổi số thành chữ của các AddIns khác bạn sẽ thấy sự khác nhau về tốc độ!

Để cài đặt "Accounting Helper", bạn hãy cài đặt lần lượt 2 file Add-In là:
1- AccHelper.xll (file này có 4 hàm: SoThanhChu, VND, USD, Num2Str)
2- AccHelperEx.xla (file này để hỗ trợ các hàm chuyển Unicode: ToUNC, Num2StrW, VNDW, USDW)
(*) Nếu bạn đang dùng Excel2007 thì không cần cài Add-In "AccHelperEx.xla", vì với Excel2007 "AccHelper.xll" đã hỗ trợ Unicode và các hàm ToUNC, NumStr.

Source: http://www.giaiphapexcel.com/forum/showthread.php?t=1047

Pysanka · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Hì, nếu chưa nhận được thì bạn cứ vào cái link này: http://www.*************/Products/Ad...lper/Index.htm

Ah, nhưng mà mấy hàm này có hạn chế đó là ko linh động chuyển thành các font chữ Unicode, hay TCVN. Nó cứ chuyển sang, rồi bạn chọn font chữ thích hợp (Vntime với Office 2003)

thanhtrung35 · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

cách này khó hiểu quá bạn à
không có cách nào hơn sao

dgs · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Cái này nói về ngôn ngữ Excel và liên quan đến các toán tử. Mà phần này nói thật là mình ko biét. Bạn tìm cuốn tin học cho mọi người nói về Excel(cuốn này trong TPHCM viêt) trong đó cũng nói về nội dung này và công thức đơn giản lắm ko púc tạp. Nói chung liên quan đén lập chưong trình mình bó tay!

hieutckt · 7/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Bạn thử sài cái này coi, rất tiện lợi, có thể chuyển đổi được cả Font chữ trọng Excel.
http://www.4shared.com/file/72886877/eade5ee9/vnTools114.html
Chúc thành công!

takuda_khoad · 8/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

bạn nên dùng cách viết hàm tự tạo trên excel ,cách này ngắn hơn nhiều nhưng có liên quan đến VB. mình nghĩ các bạn nên dùng skype để tiện gửi file

bainguyenvan · 8/8/09

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

1. Khởi động Excel, tạo một workbook mới (hoặc dùng Book1 như mặc định). Chọn Tools\ Macro\ Visual Basic Editor để mở cửa sổ soạn thảo VBA. Trong cửa sổ Project Explorer (nếu không thấy thì chọn View\ Project Explorer để mở nó), chọn VBAProject (Book1). Chọn Insert\ Module để thêm một module vào workbook.
2. Gõ nội dung hàm đổi số ra chữ SoRaChu(N) như đoạn mã 1 vào module mới tạo.
Đoạn mã 1 (Luu y de go duoc font co dau ban phai chon trong visual basic tools options chon font la VNI-Centur (Western) thi danh duoc trong VBA)
Function SoRaChu(ByVal NumCurrency As Currency) As String
If NumCurrency = 0 Then
SoRaChu = "Khoâng ñoàng"
Exit Function
End If
If NumCurrency > 922337203685477# Then ‘ Soá lớn nhất của loại CURRENCY
SoRaChu = "Khoâng đñổi ñược số lớn hơn 922,337,203,685,477"
Exit Function
End If
'-------------------------------------------------
Static CharVND(9) As String, BangChu As String, I As Integer
Dim SoLe, SoDoi As Integer, PhanChan, Ten As String
CharVND(1) = "một"
CharVND(2) = "hai"
CharVND(3) = "ba"
CharVND(4) = "bốn"
CharVND(5) = "năm"
CharVND(6) = "sáu"
CharVND(7) = "bảy"
CharVND(8) = "tám"
CharVND(9) = "chín"
'-------------------------------------------------
SoLe = Int((NumCurrency - Int(NumCurrency)) * 100) '2 kí số lẻ
I = 1
PhanChan = Trim$(Str$(Int(NumCurrency)))
While Len(PhanChan) > 0
Select Case I
Case 1 'Dong
Dong = Val(Right$(PhanChan, 3))
PhanChan = Left$(PhanChan, Len(PhanChan) - Len(Trim$(Str$(Dong))))
Case 2 'Ngan
Ngan = Val(Right$(PhanChan, 3))
PhanChan = Left$(PhanChan, Len(PhanChan) - Len(Trim$(Str$(Ngan))))
Case 3 'Trieu
Trieu = Val(Right$(PhanChan, 3))
PhanChan = Left$(PhanChan, Len(PhanChan) - Len(Trim$(Str$(Trieu))))
Case 4 'Ty
Ty = Val(Right$(PhanChan, 3))
PhanChan = Left$(PhanChan, Len(PhanChan) - Len(Trim$(Str$(Ty))))
Case 5 'Ngan Ty
NganTy = Val(Right$(PhanChan, 3))
PhanChan = Left$(PhanChan, Len(PhanChan) - Len(Trim$(Str$(NganTy))))
End Select
I = I + 1
Wend
If NganTy = 0 And Ty = 0 And Trieu = 0 And Ngan = 0 And Dong = 0 Then
BangChu = "không đồng "
I = 5
Else
BangChu = ""
I = 0
End If
While I <= 5 ‘ Bắt đầu đổi
Select Case I
Case 0
SoDoi = NganTy
Ten = "ngàn tỷ"
Case 1
SoDoi = Ty
Ten = "tỷ"
Case 2
SoDoi = Trieu
Ten = "triệu"
Case 3
SoDoi = Ngan
Ten = "ngàn"
Case 4
SoDoi = Dong
Ten = "đồng"
Case 5
SoDoi = SoLe
Ten = "xu"
End Select
If SoDoi <> 0 Then
Tram = Int(SoDoi / 100)
Muoi = Int((SoDoi - Tram * 100) / 10)
DonVi = (SoDoi - Tram * 100) - Muoi * 10
BangChu = BangChu + IIf(Tram <> 0, CharVND(Tram) + " trăm ", "")
If Muoi = 0 And Tram <> 0 And DonVi <> 0 Then
BangChu = BangChu + "lẻ "
Else
If Muoi <> 0 Then
BangChu = BangChu+IIf(Muoi <> 0 And Muoi <> 1,CharVND(Muoi)+" mươi ","mười ")
End If
End If
If Muoi <> 0 And DonVi = 5 Then
BangChu = BangChu + "lăm " + Ten + " "
Else
If Muoi <> 0 And Muoi <> 1 And DonVi = 1 Then
BangChu = BangChu + "mốt " + Ten + " "
Else
BangChu = BangChu + IIf(DonVi <> 0, CharVND(DonVi) + " " + Ten + " ", Ten + " ")
End If
End If
Else
BangChu = BangChu + IIf(I = 4, "đồng ", "")
End If
I = I + 1
Wend
If SoLe = 0 Then
BangChu = BangChu + "chẵn"
End If
Mid$(BangChu, 1, 1) = UCase$(Mid$(BangChu, 1, 1))
SoRaChu = BangChu
End Function
Bạn để ý, hàm SoRaChu có phân biệt cách đọc số 1 (một hay mốt), 5 (năm hay lăm), mươi hay mười và chỉ đổi số có trị lớn nhất là 922,337, 203, 685, 477. Các chữ Việt có dấu trong đoạn mã 1 có mã Unicode.
3. Chuyển sang cửa sổ Excel để kiểm tra hàm bằng cách thử gõ vào ô bất kỳ, ví dụ: =SoRaChu(922337203,34). Nếu êm xuôi thì chuyển sang bước kế tiếp.
4. Mô tả hàm để chọn chính xác tên hàm khi bạn sử dụng công cụ Past Function. Trong cửa sổ Excel, chọn menu Tools\ Macro\ Macros để hiển thị hộp thoại Macro. Gõ tên hàm SoRaChu vào ô Macro name, rồi bấm Options để mở tiếp hộp thoại Macro Options, gõ nội dung mô tả hàm vào ô Description, bấm OK để đóng hộp thoại Macro Options, cuối cùng bấm Cancel để đóng hộp thoại Macro.
5. Ghi workbook lên đĩa thành tập tin TienBac.XLA (ví dụ). Bạn phải đặt tập tin này đúng chỗ để mỗi lần Excel khởi động sẽ nạp nó tự động.
Đối với Excel XP trên Windows XP:
C

Documents and Settings\UserName\Application Data\Microsoft\AddIns
Đối với Excel 2000 trên Windows 98:
C

Windows\Application Data\Microsoft\AddIns
Đối với Excel 97 trên Windows 98:
C

Program Files\Microsoft Office\Office\Library
Đóng Excel mà không cần ghi lại các thay đổi trên Book1.
6. Dùng Windows Explorer để thêm mô tả cho add-in bằng cách bấm chuột phải trên tên tập tin TienBac.XLA, chọn mục Properties để mở hộp thoại Properties, chọn thẻ Summary để gõ mô tả vào ô Comments, gõ tên của add-in vào ô Title. Chọn nút OK để chấp nhận các thông tin vừa nêu.
7. Khởi động lại Excel, cài đặt add-in vừa tạo cho Excel bằng cách chọn trình đơn Tools\ Add-Ins để mở hộp thoại Add-Ins, chọn tên add-in của ta trong danh sách Add-Ins available, rồi bấm OK.
Từ đây trở về sau, mỗi lần mở Excel, bạn đương nhiên dùng được hàm SoRaChu trong add-in TienBac.XLA.
Chúc bạn thành công

cuncon8282 · 7/1/10

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Tôi cũng có file đính kèm như bạn tungnguyen_kt nếu bạn có mail thì mình sẽ gởi lại cho bạn làm cách này dễ hiểu hơn. :dotphao:

saothuy43 · 7/1/10

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Mình có file đính kèm, dể hiểu dễ làm, bạn nhận file kèm, giải nén, save trong ổ đĩa D.
Mở một file Excell bất kỳ, vào Tools / Add_Ins / Brows (vào ổ đĩa D chọn file Docsotien mà bạn mới giải nén) - ok / đánh dấu check Ô Vuông Docsotien / ok.
Chúc bạn thành công nha. (chắc phải gọi bạn bằng chị :sorrynha:

)
Nick YH: saothuy43 , nếu ko được thì Buzz nha

aloha2009 · 7/1/10

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

bạn hãy vào macro trong excel va danh chương trinh đổi số thành chữ và bạn có thể liện hệ với mình qua mail thnhung.0804@yahoo.com.vn mình sẽ chuyển cho bạn chương trình này
hoac bạn có vào google de tim kiem chuong trinh này copy ve may va coppy vào macro cua excel nhe

phuoc1811 · 8/1/10

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Mình có 2 cách:
1- Dùng hàm Excel
2- Dùng VBA (Visual Basic)
Nếu hướng dẫn cho bạn chưa chắc bạn làm được. Cách nhanh nhất thì bạn tạo file phiếu thu chi rồi gửi mail cho mình phuoc1811@yahoo.com.vn ... khi nào rãnh sẽ hướng dẫn sau.

linhnguyen12 · 12/1/10

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Số thì chỉ có 10 chữ số, có hàng đơn vị, hàng chục, hàng trăm... rõ ràng thì ta mới xác định được. Còn chữ thì mỗi người mỗi kiểu ví dụ: Ngàn, nghìn; lẻ, linh; nhăm, lăm... Rồi có người viết "một ngàn không trăm linh một", có người lại "một ngàn lẻ một"... Nói chung là dữ liệu không có chuẩn nhất định. Viết code sẽ mất nhiều công sức mà tính ứng dụng không cao (thường ít khi ai dùng hàm đổi ngược chữ ra số).
Bạn có thể sử dụng một số phần mền kế tóan bằng Excel viết sẵn để áp dụng.
Còn nếu muốn làm tốt thì mua phần mềm là Ok hi

lamquang111 · 14/1/10

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Mình sài cái VND, bạn cho mình mail để mình gởi cho

lamquang111 · 21/1/10

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

Liên hệ: quangtimban_tv84@yahoo.com
nick tại danketoan: lamquang111

Oanhhp1810 · 4/2/10

Ðề: Hàm exel đổi kiểu số thành kiểu chữ

xin chào nhé!
hôm nay minh mới thấy bài náy, không biết mình trả lời bây giờ còn muộn không.
vd: số tiền là 200.000
được thành chữ bạn dùng từ +hy(đối tượng cần đọc) thế là xong
đây là trong Excel thôi còn trong word thì minh chưa biết, ai biết bảo nhé!

Hàm exel đổi kiểu số thành kiểu chữ

*-*-*Mẹ Yêu Con*-*-*

Member

New Member

New Member

*-*-*Mẹ Yêu Con*-*-*

Member

Member

New Member

Member

^^ Xìtin nhất DKT ^^

Member

New Member

New Member

VPP Yên Gấm

Đính kèm

New Member

Member

New Member

Hội viên mới mẻ

Hội viên mới mẻ

New Member

CẨM NANG KẾ TOÁN TRƯỞNG

KÊNH YOUTUBE DKT

SÁCH QUYẾT TOÁN THUẾ

--Mẹ Yêu Con--

--Mẹ Yêu Con--