/ / Excel VBA Select Case

Excel VBA Select Case

แทนที่จะเป็นคำสั่ง If Then ใน Excel VBAคุณสามารถใช้ เลือก Case structure.

สถานการณ์:

เลือก Case ใน Excel VBA

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

1. ขั้นแรกให้ประกาศตัวแปรสองตัวแปร ตัวแปรหนึ่งชนิดชื่อ Integer score และหนึ่งตัวแปรชนิด String ชื่อผล

Dim score As Integer, result As String

2. เราเริ่มต้นคะแนนตัวแปรด้วยค่าของเซลล์ A1

score = Range("A1").Value

3. เพิ่มโครงสร้าง Case Case

Select Case score
    Case Is >= 80
        result = "very good"
    Case Is >= 70
        result = "good"
    Case Is >= 60
        result = "sufficient"
    Case Else
        result = "insufficient"
End Select

คำอธิบาย: Excel VBA ใช้ค่าของคะแนนตัวแปรเพื่อทดสอบแต่ละคำสั่ง case ที่ตามมาเพื่อดูว่ารหัสภายใต้คำสั่ง case ควรถูกดำเนินการหรือไม่

4. เขียนค่าของตัวแปรผลลัพธ์ไปที่เซลล์ B1

Range("B1").Value = result

5. ทดสอบโปรแกรม

ผลลัพธ์เมื่อคุณคลิกปุ่มคำสั่งบนแผ่นงาน:

เลือก Case Results

หมายเหตุ: Excel VBA จะประมวลผลโค้ดภายใต้คำสั่ง Case ที่สองสำหรับค่าทั้งหมดที่มากกว่าหรือเท่ากับ 70 และน้อยกว่า 80

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