Hàm chuyển số ra chữ

  • Thread starter Thread starter levy
  • Ngày gửi Ngày gửi
Trạng thái
Không mở trả lời sau này.
L

levy

Guest
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:
 
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
 
mualantan nói:
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!
Nhấn để mở rộng...
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!
 
EVA919 nói:
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!
Nhấn để mở rộng...

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
 
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.
 
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)
 
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!
 
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:
 
Sửa lần cuối:
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.
 
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.
 
Trạng thái
Không mở trả lời sau này.

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Back
Top