วิธีใช้คำสั่ง exit if ใน vba (พร้อมตัวอย่าง)

ไม่มีคำสั่ง Exit If ในตัวใน VBA แต่คุณสามารถจำลองคำสั่งได้อย่างง่ายดายโดยใช้คำสั่ง If กับคำสั่ง GoTo

ตัวอย่างต่อไปนี้แสดงวิธีการทำเช่นนี้ในทางปฏิบัติ

ตัวอย่าง: วิธีใช้คำสั่ง Exit IF ใน VBA

สมมติว่าเราต้องการสร้างแมโครที่ขอให้ผู้ใช้ป้อนจำนวนเต็มที่น้อยกว่า 10 จากนั้นใช้คำสั่ง IF เพื่อทำสิ่งต่อไปนี้:

• หากจำนวนเต็มที่ป้อนน้อยกว่า 10 ให้คูณด้วย 2 แล้วแสดงผลลัพธ์ในเซลล์ A1
• หากจำนวนเต็มที่ป้อนไม่น้อยกว่า 10 ให้ออกจากคำสั่ง IF และสร้างข้อความแสดงข้อผิดพลาด

เราสามารถใช้ไวยากรณ์ต่อไปนี้เพื่อทำสิ่งนี้:

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราจะได้รับแจ้งให้ป้อนจำนวนเต็มที่น้อยกว่า 10:

สมมติว่าเราป้อนค่า 5 แล้วกด OK :

เนื่องจากจำนวนเต็มนี้น้อยกว่า 10 ขั้นตอนย่อยจะคูณค่าที่เราป้อนด้วย 2 และแสดงผลลัพธ์ในเซลล์ A1 :

อย่างไรก็ตาม สมมติว่าเราป้อนค่า 15 แทน:

เราจะได้รับกล่องข้อความต่อไปนี้ใน Excel:

ค่าที่เราป้อนจะไม่คูณด้วย 2 และจะไม่แสดงผลลัพธ์ในเซลล์ A1

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีออกจาก Sub เมื่อเกิดข้อผิดพลาดใน VBA
วิธีใช้ IFERROR ใน VBA
วิธีลบไฟล์โดยใช้ VBA