Đọc số tiền bằng chữ trong Excel không cần Add-in là thủ thuật bạn đang muốn biết? Vậy thì để Trùm Thủ Thuật chia sẻ cho bạn phải làm thế nào nhé!
Khi làm việc với Excel, việc chuyển đổi số tiền thành chữ giúp tăng tính chính xác. Tuy nhiên, nếu như sử dụng các Add-in bên ngoài thì nhiều người e ngại việc mất an toàn dữ liệu và khó kiểm soát. Do đó, đọc số tiền bằng chữ trong Excel không cần Add-in là cách mà nhiều người tìm kiếm. Đừng vội lo, tất tần tật những gì bạn cần đã được Trùm Thủ Thuật bật mí ở phần sau.
Hướng dẫn cách đọc số tiền bằng chữ trong Excel nhanh và hiệu quả
Nếu không muốn sử dụng add-in, admin sẽ hướng dẫn cách chuyển số tiền thành chữ trong Excel bằng mã VBA. Tuy nhiên, admin xin lưu ý rằng mã VBA phức tạp, yêu cầu kiến thức về lập trình. Do đó, dù đây là mã có sẵn nhưng cũng có thể có sai sót, bạn nên tìm hiểu kỹ, cân nhắc và sử dụng nháp trước rồi tiến hành với dữ liệu chính để tránh sai sót hết mức có thể nha.
Bước 1: Trước tiên, bạn cần mở Excel lên > Sau đó, nhấn tổ hợp phím Alt + F11 để mở cửa sổ VBA lên.
Bước 2: Bạn nhấn vào tab Insert > Khi menu thả xuống, bạn chọn Module.
Bước 3: Bạn sao chép và dán mã code sau vào Module mới nha.
| Function DocSoTien(ByVal SoTien As Double) As String
Dim ChuSo As Variant, DonVi As Variant Dim NganTy As String, Ty As String, Trieu As String, Ngan As String, Dong As String Dim So As Double, KetQua As String, i As Integer
ChuSo = Array(“không”, “một”, “hai”, “ba”, “bốn”, “năm”, “sáu”, “bảy”, “tám”, “chín”) DonVi = Array(“”, “nghìn”, “triệu”, “tỷ”)
If SoTien = 0 Then DocSoTien = “Không đồng” Exit Function End If
If SoTien < 0 Then KetQua = “Âm “ SoTien = Abs(SoTien) End If
i = 0 Do While SoTien > 0 So = SoTien Mod 1000 If So > 0 Then KetQua = Doc3ChuSo(So, ChuSo) & ” ” & DonVi(i) & ” ” & KetQua End If SoTien = Int(SoTien / 1000) i = i + 1 Loop
KetQua = Application.WorksheetFunction.Proper(KetQua) DocSoTien = KetQua & “đồng chẵn” End Function
Private Function Doc3ChuSo(ByVal So As Double, ByVal ChuSo As Variant) As String Dim Tram As Integer, Chuc As Integer, DonVi As Integer Dim KetQua As String
Tram = Int(So / 100) Chuc = Int((So Mod 100) / 10) DonVi = So Mod 10
If (Tram = 0) And (Chuc = 0) And (DonVi = 0) Then Doc3ChuSo = “” Exit Function End If
If Tram > 0 Then KetQua = ChuSo(Tram) & ” trăm” If (Chuc = 0) And (DonVi > 0) Then KetQua = KetQua & ” lẻ” End If End If
If Chuc > 0 Then If Chuc = 1 Then KetQua = KetQua & ” mười” Else KetQua = KetQua & ” ” & ChuSo(Chuc) & ” mươi” End If End If
If DonVi > 0 Then If (Chuc > 1) And (DonVi = 1) Then KetQua = KetQua & ” mốt” ElseIf (Chuc > 0) And (DonVi = 5) Then KetQua = KetQua & ” lăm” Else KetQua = KetQua & ” ” & ChuSo(DonVi) End If End If
Doc3ChuSo = KetQua End Function |
Bước 4: Mã code sẽ giúp bạn tạo hàm đọc số tiền bằng chữ > Bạn nhấn Ctrl + S > Bấm chọn Save as type: Excel Macro-Enabled Workbook (.xlsm) để lưu lại.
Bước 5: Quay trở lại Excel, bạn sử dụng hàm là =DocSoTien(A1). LƯU Ý: A1 là (Số cần đổi). Sau đó, kết quả sẽ hiển thị. Ví dụ như nếu ô A1 chứa 1523000, kết quả sẽ là: “Một triệu năm trăm hai mươi ba nghìn đồng chẵn”.
Bật mí Hàm đổi số tiền thành chữ trong Excel (khác)
Ngoài cách trên, bạn có thể tạo hàm đổi số tiền thành chữ với add-in như sau:
- B1: Tải TẠI ĐÂY (file Excel =VND) > Tải xong thì mở Excel lên > Nhấn vào tab File > Options > Ở cửa sổ tiếp theo, nhấn vào tab Add-ins.
- B2: Ở trường Manage > Chọn Go… > Khi cửa sổ Add-Ins hiển thị > Chọn Browse > Sau đó, bạn tìm đến file Excel vừa tải > Nhấp vào file Doiso > Nhấn OK để thêm vào.
- B3: Tick chọn file Doiso ở cửa sổ Add-Ins > Nhấp OK.
Như vậy là bạn đã tạo được hàm chuyển đổi số thành tiền > Cú pháp của hàm: =VND(Số_cần_đổi).
Trùm Thủ Thuật đã hướng dẫn xong đọc số tiền bằng chữ trong Excel không cần Add-in và cả cách dùng Add-in. Chúc bạn áp dụng và chuyển đổi thành công nhé!
THEO DÕI THÊM
