300 Ví Dụ

Máy tính khoản vay

Loan Calculator

Trang này hướng dẫn bạn cách tạo một máy tính cho vay trong Excel VBA . Trang tính chứa các điều khiển ActiveX sau: hai thanh cuộn và hai nút tùy chọn.





Máy tính khoản vay trong Excel VBA

Lưu ý: hướng dẫn bên dưới không dạy bạn cách định dạng trang tính. Chúng tôi giả định rằng bạn biết cách thay đổi loại phông chữ, chèn hàng và cột, thêm đường viền, thay đổi màu nền, v.v.





Thực hiện các bước sau để tạo máy tính khoản vay:

1. Thêm hai điều khiển thanh cuộn. Nhấp vào Chèn từ tab Nhà phát triển và sau đó nhấp vào Thanh cuộn trong phần Điều khiển ActiveX.



Tạo thanh cuộn

2. Thêm hai nút tùy chọn. Nhấp vào Chèn từ tab Nhà phát triển và sau đó nhấp vào Nút Tùy chọn trong phần Điều khiển ActiveX.

Tạo các nút tùy chọn

Thay đổi các thuộc tính sau của các điều khiển thanh cuộn (đảm bảo Chế độ thiết kế được chọn).

3. Nhấp chuột phải vào điều khiển thanh cuộn đầu tiên, sau đó nhấp vào Thuộc tính. Đặt Min thành 0, Max thành 20, SmallChange thành 0 và LargeChange thành 2.

4. Nhấp chuột phải vào điều khiển thanh cuộn thứ hai, sau đó nhấp vào Thuộc tính. Đặt Min thành 5, Max thành 30, SmallChange thành 1, LargeChange thành 5 và LinkedCell thành F8.

Giải thích: khi bạn nhấp vào mũi tên, giá trị thanh cuộn sẽ tăng hoặc giảm theo SmallChange. Khi bạn nhấp vào giữa thanh trượt và mũi tên, giá trị thanh cuộn sẽ tăng hoặc giảm theo LargeChange.

Tạo sự kiện thay đổi trang tính. Mã được thêm vào Sự kiện Thay đổi Trang tính sẽ được Excel VBA thực thi khi bạn thay đổi một ô trên trang tính.

đặt đường viền trên và dưới trên các ô đã chọn

5. Mở Trình soạn thảo Visual Basic .

6. Nhấp đúp vào Trang tính1 (Sheet1) trong Trình khám phá dự án.

7. Chọn Trang tính từ danh sách thả xuống bên trái và chọn Thay đổi từ danh sách thả xuống bên phải.

Sự kiện thay đổi trang tính trong Excel VBA

8. Sự kiện Thay đổi Trang tính lắng nghe tất cả các thay đổi trên Trang tính1. Chúng tôi chỉ muốn Excel VBA chạy tính toán phụ nếu có gì đó thay đổi trong ô D4. Để đạt được điều này, hãy thêm dòng mã sau vào Sự kiện Thay đổi Trang tính (thêm về phần Tính toán phụ sau này).

Nếu nhưTarget.Address = '$ D $ 4'sau đóApplication.Run 'Tính toán'

9. Lấy phần trăm phù hợp trong ô F6 (thay đổi định dạng của ô F6 thành phần trăm). Bấm chuột phải vào điều khiển thanh cuộn đầu tiên, sau đó bấm vào Mã Chế độ xem. Thêm các dòng mã sau:

Riêng tư PhụScrollBar1_Change ()

Phạm vi ('F6'). Giá trị = ScrollBar1.Value / 100
Application.Run 'Tính toán'

Kết thúc Phụ

10. Nhấp chuột phải vào điều khiển thanh cuộn thứ hai, sau đó nhấp vào Mã Chế độ xem. Thêm dòng mã sau:

Riêng tư PhụScrollBar2_Change ()

Application.Run 'Tính toán'

Kết thúc Phụ

11. Nhấp chuột phải vào nút điều khiển tùy chọn đầu tiên, sau đó nhấp vào Mã Chế độ xem. Thêm dòng mã sau:

Riêng tư PhụOptionButton1_Click ()

Nếu nhưOptionButton1.Value =Thật sau đóPhạm vi ('C12'). Giá trị = 'Thanh toán hàng tháng'
Application.Run 'Tính toán'

Kết thúc Phụ

12. Nhấp chuột phải vào nút điều khiển tùy chọn thứ hai, sau đó nhấp vào Mã Chế độ xem. Thêm dòng mã sau:

Riêng tư PhụOptionButton2_Click ()

Nếu nhưOptionButton2.Value =Thật sau đóPhạm vi ('C12'). Giá trị = 'Thanh toán hàng năm'
Application.Run 'Tính toán'

Kết thúc Phụ

13. Thời gian tạo sub. Bạn có thể đi qua của chúng tôi Chức năng và phụ chương để tìm hiểu thêm về đăng ký. Nếu bạn đang vội, chỉ cần đặt con có tên là Tính toán vào một mô-đun (Trong Trình soạn thảo Visual Basic, bấm Chèn, Mô-đun).

PhụTính toán()

Không cótiền vayNhư Dài, tỷ lệNhư Kép, nperNhư Số nguyên

loan = Range ('D4'). Giá trị
rate = Range ('F6'). Giá trị
nper = Range ('F8'). Giá trị

Nếu nhưSheet1.OptionButton1.Value =Thật sau đó
rate = tỷ lệ / 12
nper = nper * 12
Kết thúc Nếu như

Phạm vi ('D12'). Giá trị = -1 * WorksheetFunction.Pmt (tỷ lệ, nper, khoản vay)

Kết thúc Phụ

Giải thích: sub lấy các tham số phù hợp cho hàm trang tính Pmt. Các Chức năng PMT trong Excel tính toán các khoản thanh toán cho một khoản vay dựa trên các khoản thanh toán không đổi và lãi suất không đổi. Nếu bạn thanh toán hàng tháng (Sheet1.OptionButton1.Value = True), Excel VBA sử dụng rate / 12 cho giá và nper * 12 cho nper (tổng số lần thanh toán). Kết quả là một số âm, bởi vì các khoản thanh toán được coi là một khoản ghi nợ. Nhân kết quả với -1 sẽ cho kết quả dương.

Kết quả Máy tính Khoản vay

8/8 Hoàn thành! Tìm hiểu thêm về điều khiển activex>
Đi tới Chương tiếp theo: Biểu mẫu người dùng



^