Hàm chuyển số ra chữ

[levy]

Qui đổi số tiền ra chữ.

có bạn nào biết công thức:để qui đổi một số tiền ra chữ không?:wall: :wall:

 

[anh phuong]

Bạn vào trong thư viện mà tìm, có rất nhiều đấy

 

[ciffob]

http://www.webketoan.vn/forum/showpost.php?p=229640
Yes, CIFFOB! we are providing silica gel, silicagel, silicagen, silica gen. Please call: 0904009978. Bán buôn bán lẻ silica gel, silicagel, silicagen, silica gen, ẩm, chất chống ẩm, chất hút ẩm, gói chống ẩm, gói hút ẩm, thuốc chống ẩm, thuốc hút ẩm, hạt chống ẩm, hạt hút ẩm, bột chống ẩm, bột hút ẩm, ẩm, mốc, khô.

 

[123maianh]

Hàm đọc số tiền (Hàm tiền chữ) trong excel

Chào cả nhà!
Có ai biết cách tạo hàm trong excel đọc được tiền từ số sang chữ trong excel cho mình xin với! Có công thức hàm đó cho mình xin với nhé!

Thanks

 

[MINA]

Bạn tham khảo bài viết này
http://webketoan.vn/forum/showthread.php?t=15532
Thân

 

[hanhks]

Chuyển số ra chữ

Làm sao để chuyền số tiền bằng số sang số tiền bằng chữ trong excel được vậy?

 

[hồngtrường]

Làm sao để chuyền số tiền bằng số sang số tiền bằng chữ trong excel được vậy?

Bạn thử cái này xem. Chưa chuẩn nhưng hy vọng bạn dùng tạm trong khi chờ cái khác. hihihihi

 

[mualantan]

Bạn thử cái này xem. Chưa chuẩn nhưng hy vọng bạn dùng tạm trong khi chờ cái khác. hihihihi

Anh Hồngtrường ơi! Anh có file như vậy nhưng bằng tiếng Anh không, up lên cho em và mọi người dùng với.
Chân thành cám ơn anh!

 

[Truong Nguyen]

Anh Hồngtrường ơi! Anh có file như vậy nhưng bằng tiếng Anh không, up lên cho em và mọi người dùng với.
Chân thành cám ơn anh!

Tiếng anh thì cũng đơn giản thôi em ah, suy luận chút xíu tự mình nghĩ ra được kế sách ngay mà, thay vì tiếng việt ở các ô chuyển đổi là "một", "hai" .... thì mình thay là " one". "two".... bạn làm thử xem kết quả là gì nhé!
Thân!

 

[mualantan]

Tiếng anh thì cũng đơn giản thôi em ah, suy luận chút xíu tự mình nghĩ ra được kế sách ngay mà, thay vì tiếng việt ở các ô chuyển đổi là "một", "hai" .... thì mình thay là " one". "two".... bạn làm thử xem kết quả là gì nhé!
Thân!

Chào anh EVA919- Xuân Trường! Trước hết, mua cám ơn anh đã up file NKC hôm trước.
Còn file tiếng Anh, em thấy khó hơn tiếng Việt nhiều.
Tiếng Việt có một số trường hợp ngoại lệ : Năm, Lăm, Một, mốt
Còn tiếng Anh : teen, ty, fif, eleven, twelve,... rồi các trường hợp có số không ở giữa dãy số nữa, hàm nào cũng thêm ",and" ,"and" quá khó luôn., em viết hoài mà chưa hết IF anh ơi

 

[kunkun]

Mở VB lên và dán đoạn code này vào nhé :

Function VND(ByVal NumCurrency As Currency) As String
If NumCurrency = 0 Then
VND = "Không đồng"
Exit Function
End If
If NumCurrency > 922337203685477# Then
VND = "Khô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
Dim DonViTien As String, DonViLe As String
Dim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As Integer
Dim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As Integer

DonViTien = "đồng" ‘ Bạn có thể thay đơn vị tiền tệ khác ở đây
DonViLe = "xu"

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ẻ
PhanChan = Trim$(Str$(Int(NumCurrency)))
PhanChan = Space(15 - Len(PhanChan)) + PhanChan

NganTy = Val(Left(PhanChan, 3))
Ty = Val(Mid$(PhanChan, 4, 3))
Trieu = Val(Mid$(PhanChan, 7, 3))
Ngan = Val(Mid$(PhanChan, 10, 3))
Dong = Val(Mid$(PhanChan, 13, 3))
If NganTy = 0 And Ty = 0 And Trieu = 0 And Ngan = 0 And Dong = 0 Then
BangChu = "không " + DonViTien + " "
I = 5
Else
BangChu = ""
I = 0
End If
While I <= 5
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 = DonViTien
Case 5
SoDoi = SoLe
Ten = DonViLe
End Select
If SoDoi <> 0 Then
Tram = Int(SoDoi / 100)
Muoi = Int((SoDoi - Tram * 100) / 10)
DonVi = (SoDoi - Tram * 100) - Muoi * 10
BangChu = Trim(BangChu) + IIf(Len(BangChu) = 0, "", ", ") + _
IIf(Tram <> 0, Trim(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, _
Trim(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 > 1 And DonVi = 1 Then
BangChu = BangChu + "mốt " + Ten + " "
Else
BangChu = BangChu+IIf(DonVi <> 0,Trim(CharVND(DonVi))+" "+Ten+" ", Ten + " ")
End If
End If
Else
BangChu = BangChu + IIf(I = 4, DonViTien + " ", "")
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))
VND = BangChu
End Function

(dùng mã unicode nhé pà con.)

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ụ: =VND(922337203,34). Nếu êm xuôi thì chuyển sang bước kế tiếp.
4. Chọn Files - > Save as -> save as type - > Micorossoft office excell add-ins ( *.xla) ở dưới -> lưu name = TS.
5. 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 VND 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 VND trong add-in VND.XLA.

 

[khainguyen]

Thể hiện số tiền bằng chữ

Các bạn vui lòng chỉ giúp mình tí nhé.
Trong excel gõ số máy thể hiện bằng chữ thì phải làm như thế nào?
VD: 120.000 (Một trăm hai mươi ngàn đồng)

 

[kunkun]

down cái này về mà làm theo bạn nhé..!

 

[batdong]

Mình đã thử hàm của bạn nhưng gặp vấn đề về font chữ. Bạn có thể nói thêm một chút về font chữ không??
thanks!

 

[tamnt07]

Ban chọn Tools\ Macro\ Visual Basic Editor để mở cửa sổ soạn thảo VBA. Vào tiếp Tools/Options/Editor Format chọn font phù hợp (hình như ở đây là Arial). OK

 

[kunkun]

Ban chọn Tools\ Macro\ Visual Basic Editor để mở cửa sổ soạn thảo VBA. Vào tiếp Tools/Options/Editor Format chọn font phù hợp (hình như ở đây là Arial). OK

chính xác là font arial đó các bạn. các bạn vào font của code mà chỉnh lại cho phù hợp.:015:

 

[kunkun]

bạn down cái nay về thử nhé ... rùi thiết lập cho cái files excell khác như phần duới..!
mình lộn là front vni nha các bạn..lộn cái code khác mất tiêu..sorry.!:wall:

 

[DaoQuynhNhi]

thế bạn down cái code đó về làm ở máy bạn có được ko? nếu được rùi thì mình sẽ chỉ cho bạn làm tiếp.!

Mình down được rồi..nó vẫn chạy bình thường..nhưng mình ko add in cho tất cả các file đc

 

[kunkun]

Bước 1 : Mở code.xls - > vào files -> save as -> trong mục save as type -> microsoft office Add-in ( *.xla)-> bạn lưu tên là docso
Bươc 2 : close files code lại, sau đó mở lên lại -> vào Tools -> Add-ins -> chọn docso - > ok.
Bước 3 : khởi động lại excell và làm như bình thường…
Bước 4 : thành công.

 

[phambang]

Bạn Copy file mà có Code vào một Modul trong VBA>>> trở ra worksheet>>chọn Save as>> chọn Windows>>chọn Addins>>rồi save fiel có chứa hàm đọc chữ vào Addins. Luu ý quan trọng: Ngay chỗ Save as type bạn chọn microsoft Excel Add-in xong rồi mới save. Tiếp theo bạn vào tools chọn mục Add-in rồi check tên hàm bạn vừa save vào là OK. Như vậy bạn sẽ có hàm chữ thường trú trong máy của bạn, bất kỳ file excel nào cũng doc đươc.