Có 1 câu hỏi nếu có một khoản tiền mà giờ muốn chia khoản tiền ấy ra theo từng mệnh giá thì làm như thế nào, thật ra thì có thể dùng công thức trong excelđể tính toán nhưng mình muốn giới thiệu với các bạn một đoạn Code VBA để các bạn dễ dàng áp dụng và hiểu thêm về VBA.
Để các bạn dễ hình dung điều mình muốn nói, mình xin giải thích như thế này.
Hiện tại ở Việt Nam mình lưu hành các tờ tiền với mệnh giá là 500.000, 200.000, 100.000, 50.000, 20.000, 10.000, 5.000, 2.000, 1000 mình chỉ nói mệnh giá ngang 1.000 trở liên, còn nhỏ lẻ thì không tính vào.
Và giờ mình có trong tay 1.200.000VNĐ thì mình sẽ tính toán là trong khoản tiền đó thì có bao nhiêu tờ tiền mệnh giá 500.000, bao nhiều tờ 200.000….
Link tải File mẫu : TẠI ĐÂY
Đầu tiên bạn mở File Excel lên. Sau đó mở chương trình VBA lên bằng cách nhấn phím tắt Excel Alt + F11
Khi chương trình VBA khởi động thì vào Insert – Module
Sau đó dán đoạn Code bên dưới vào khung soạn thảo.
Option Explicit: Option Base 1
Function ToTien(SoTien As Double, Optional Luot As Integer = 2) As Variant
''500; 200; 100; 50; 20; 10; 5; 2; 1
Dim SoChia As Integer, jJ As Byte
ReDim SoTo(1, 10) As Byte
SoTo(1, 10) = (SoTien / 1000) Mod Luot
SoTien = SoTien (1000 * Luot)
For jJ = 1 To 9
SoTo(1, jJ) = 0
SoChia = Choose(jJ, 500, 200, 100, 50, 20, 10, 5, 2, 1)
SoTo(1, jJ) = (SoTien SoChia) * Luot
SoTien = SoTien Mod SoChia
Next
ToTien = SoTo
End FunctionNhư hình
Sau đó bạn soạn một File Excel như hình, nhập mệnh giá tiền vào, nhập số tiền cần tính toán vào
Ở các ô cần tính toán mệnh giá các bạn nhập công thức vào.
Như ở ô C3 sẽ là {=ToTien($B3;1)} để có thể nhập được dấu {} vào công thức các bạn nhấn tổ hợp phím Ctrl + Shift + Enter nhé
Sau đó áp dụng công thức cho toàn bộ các mệnh giá còn lại thì ta sẽ biết được với số tiền đó thì cần bao nhiêu tờ tiền mệnh giá lớn nhất trở xuống.
Bạn nào chưa làm được thì tham khảo File Excel mình đã làm sẳn ở Link dưới nhé.
Chúc các bạn thành công.
https://quantriexcel.blogspot.com/2019/10/huong-dan-tai-file-tren-quan-tri-excel.html
DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.Cám ơn.
