/ / การคำนวณที่ซับซ้อนใน Excel VBA

การคำนวณที่ซับซ้อนใน Excel VBA

The kTH ระยะยาว Tk, ของชุดทางคณิตศาสตร์บางอย่างที่กำหนดโดยสูตรต่อไปนี้:

Tk = k2 + 6k + 1
9k + 7

ระยะแรก T1, ของชุดได้โดยการแทนที่ k = 1 ลงในสูตรคือ

T1 = 12 + 6 +1 = 1 และ
9 + 7 2
T2 = 22 + 12 + 1 = 17 ... และอื่น ๆ
18 + 7 25

ด้านล่างเราจะดูที่โปรแกรมมา Excel VBA ที่ คำนวณ คำใด ๆ Tk และผลรวมของข้อตกลงถึง N.

การคำนวณที่ซับซ้อนใน Excel VBA

คำอธิบาย: ผู้ใช้มีตัวเลือกในการป้อน "ทั้งหมด" หรือ "แปลก" เพื่อคำนวณผลรวมของเทอมแรกของชุดหรือผลรวมของข้อคี่ที่ไม่เกิน N.

วางปุ่มคำสั่งในแผ่นงานของคุณและเพิ่มบรรทัดรหัสต่อไปนี้:

1. ขั้นแรกเราจะประกาศตัวแปรทั้งสี่แบบของ Type Integer และหนึ่งตัวแปร Type String

Dim i, term, N, stepSize As Integer
Dim sumType As String

2. ประการที่สองเราเริ่มต้นตัวแปร

i = 0
N = Range("C2").Value
sumType = Range("C3").Value

3. ล้างข้อมูลในฟิลด์

Range("A8:B1000").Value = ""
Range("C6").Value = ""

4. กำหนด stepSize

Select Case sumType
    Case Is = "All"
        stepSize = 1
    Case Is = "Odd"
        stepSize = 2
    Case Else
        MsgBox "Enter a valid expression in cell C3"
        End
End Select

เคล็ดลับ: เลือกโปรแกรม Case Case เพื่อเรียนรู้เพิ่มเติมเกี่ยวกับโครงสร้าง Select Case

5. ทำการคำนวณ

For term = 1 To N Step stepSize
    Cells(8 + i, 1).Value = term
    Cells(8 + i, 2).Value = (term ^ 2 + (6 * term) + 1) / ((9 * term) + 7)

    Range("C6").Value = Range("C6").Value + Cells(8 + i, 2).Value

    i = i + 1
Next term

คำอธิบาย: เราใช้คำหลักขั้นตอนเพื่อระบุการเพิ่มขึ้น (1 สำหรับ "ทั้งหมด" และ 2 สำหรับ "แปลก") สำหรับตัวแปรตัวนับของลูป

ผล:

ผลการคำนวณที่ซับซ้อน

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