/ / เครื่องคำนวณสินเชื่อใน Excel VBA

เครื่องคำนวณสินเชื่อใน Excel VBA

หน้านี้สอนวิธีสร้างแบบง่ายๆ เครื่องคำนวณสินเชื่อ ใน Excel VBA. แผ่นงานประกอบด้วยตัวควบคุม ActiveX ต่อไปนี้: scrollbars สองตัวและปุ่มตัวเลือกที่สอง

เครื่องคำนวณสินเชื่อใน Excel VBA

หมายเหตุ: คำแนะนำด้านล่างไม่ได้สอนวิธีจัดรูปแบบแผ่นงาน เราสมมติว่าคุณรู้จักเปลี่ยนประเภทแบบอักษรแทรกแถวและคอลัมน์เพิ่มเส้นขอบเปลี่ยนสีพื้นหลัง ฯลฯ

ดำเนินการตามขั้นตอนต่อไปนี้เพื่อสร้างเครื่องคำนวณสินเชื่อ:

1. เพิ่มตัวควบคุม scrollbar สองอัน คลิกที่แทรกจากแท็บนักพัฒนาแล้วคลิกที่แถบเลื่อนในส่วนตัวควบคุม ActiveX

สร้างแถบเลื่อน

2. เพิ่มปุ่มตัวเลือกสองปุ่ม คลิกที่แทรกจากแท็บนักพัฒนาแล้วคลิกปุ่มตัวเลือกในส่วนตัวควบคุม ActiveX

สร้างปุ่มตัวเลือก

เปลี่ยนคุณสมบัติต่อไปนี้ของตัวควบคุมแถบเลื่อน (ตรวจสอบว่าเลือกโหมดการออกแบบ)

3. คลิกขวาที่แถบควบคุมแถบเลื่อนแรกแล้วคลิก Properties ตั้งค่าต่ำสุดเป็น 0, สูงสุดถึง 20, SmallChange ถึง 0 และ LargeChange ถึง 2

4. คลิกขวาที่ตัวควบคุมแถบเลื่อนที่สองจากนั้นคลิกที่ Properties (คุณสมบัติ) ตั้งค่าต่ำสุดเป็น 5, สูงสุดถึง 30, SmallChange ถึง 1, LargeChange ถึง 5 และ LinkedCell ไปที่ F8

คำอธิบาย: เมื่อคุณคลิกลูกศรค่าแถบเลื่อนขึ้นหรือลงโดย SmallChange เมื่อคุณคลิกระหว่างแถบเลื่อนและลูกศรค่าแถบเลื่อนขึ้นหรือลงโดย LargeChange

สร้างกิจกรรมการเปลี่ยนแปลงแผ่นงาน รหัสที่เพิ่มเข้ากับ Worksheet Change Event จะถูกดำเนินการโดย Excel VBA เมื่อคุณเปลี่ยนเซลล์บนเวิร์กชีท

เปิดตัว Visual Basic Editor

6. ดับเบิลคลิกที่ Sheet1 (Sheet1) ใน Project Explorer

7. เลือกแผ่นงานจากรายการแบบหล่นลงด้านซ้ายและเลือกเปลี่ยนแปลงจากรายการแบบเลื่อนลงด้านขวา

เปลี่ยนเหตุการณ์ใน Excel VBA

8 เหตุการณ์การเปลี่ยนแปลงแผ่นงานจะฟังการเปลี่ยนแปลงทั้งหมดบนแผ่นงาน Sheet1 เราต้องการเฉพาะ Excel VBA เพื่อเรียกใช้ Sub คำนวณหากมีการเปลี่ยนแปลงบางอย่างในเซลล์ D4 เมื่อต้องการทำเช่นนี้เพิ่มบรรทัดรหัสต่อไปนี้ลงในเหตุการณ์การเปลี่ยนแปลงแผ่นงาน (เพิ่มเติมเกี่ยวกับการคำนวณย่อยในภายหลัง)

If Target.Address = "$D$4" Then Application.Run "Calculate"

9. รับเปอร์เซ็นต์ที่เหมาะสมในเซลล์ F6 (เปลี่ยนรูปแบบของเซลล์ F6 เป็นเปอร์เซ็นต์) คลิกขวาที่ตัวควบคุมแถบเลื่อนแรกจากนั้นคลิกที่ View Code เพิ่มบรรทัดรหัสต่อไปนี้:

Private Sub ScrollBar1_Change()

Range("F6").Value = ScrollBar1.Value / 100
Application.Run "Calculate"

End Sub

10. คลิกขวาที่แถบควบคุมแถบเลื่อนที่สองจากนั้นคลิกที่ View Code เพิ่มบรรทัดรหัสต่อไปนี้:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. คลิกขวาที่ตัวควบคุมปุ่มตัวเลือกแรกจากนั้นคลิกที่ View Code เพิ่มบรรทัดรหัสต่อไปนี้:

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then Range("C12").Value = "Monthly Payment"
Application.Run "Calculate"

End Sub

12. คลิกขวาที่ตัวควบคุมปุ่มตัวเลือกที่สองจากนั้นคลิกที่ View Code เพิ่มบรรทัดรหัสต่อไปนี้:

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then Range("C12").Value = "Yearly Payment"
Application.Run "Calculate"

End Sub

13. เวลาในการสร้างย่อย คุณสามารถอ่านบทฟังก์ชั่นและบทย่อยเพื่อเรียนรู้เพิ่มเติมเกี่ยวกับ subs หากคุณกำลังรีบเพียงแค่วางชื่อย่อยที่ชื่อว่า Calculate into a module (ใน Visual Basic Editor ให้คลิก Insert, Module)

Sub Calculate()

Dim loan As Long, rate As Double, nper As Integer

loan = Range("D4").Value
rate = Range("F6").Value
nper = Range("F8").Value

If Sheet1.OptionButton1.Value = True Then
    rate = rate / 12
    nper = nper * 12
End If

Range("D12").Value = -1 * WorksheetFunction.Pmt(rate, nper, loan)

End Sub

คำอธิบาย: sub ได้รับพารามิเตอร์ที่เหมาะสมสำหรับฟังก์ชันแผ่นงาน Pmt ฟังก์ชัน Pmt ใน Excel คำนวณการชำระเงินสำหรับเงินกู้ตามการชำระเงินคงที่และอัตราดอกเบี้ยคงที่ หากคุณชำระเงินรายเดือน (Sheet1.OptionButton1.Value = True) Excel VBA จะใช้อัตรา / 12 สำหรับอัตราและ nper * 12 สำหรับ nper (จำนวนรวมของการชำระเงิน) ผลเป็นตัวเลขเป็นค่าลบเนื่องจากการชำระเงินจะถือว่าเป็นการหักบัญชี คูณผลลัพธ์ตาม -1 ให้ผลบวก

ผลการคำนวณสินเชื่อ

อ่านเพิ่มเติมได้ที่: