If…Then…Else คือคำสั่งเพื่อการตัดสินใจอย่างหนึ่ง เป็นการเขียนตรวจสอบเงื่อนไขและกำหนดการแสดงผลหากว่าเข้าเงื่อนไขนั้น สามารถตรวจสอบได้หลายเงื่อนไขได้ตามความต้องการ ปกติแล้วในการทำงานใด ๆ
ก็ตามมักจะมีการตัดสินใจเข้ามาเกี่ยวข้องด้วยเสมอ การเขียนโปรแกรมก็เช่นเดียวกัน มักจะมีทางเลือกและเงื่อนไขให้ต้องตัดสินใจอยู่เป็นประจำและเป็นเรื่องปกติธรรมดาของการเขียนโปรแกรม จึงต้องเรียนรู้วิธีการใช้งานคำสั่งที่จะใช้เพื่อการตัดสินใจเหล่านั้นเพื่อทำงานที่มีความซับซ้อนได้อย่างสะดวก สำหรับการตัดสินใจต่าง ๆ เราไม่สามารถบันทึกด้วย Macro ได้ จำเป็นต้องเขียนขึ้นมาเอง
Video ด้านล่างนี้อธิบายและยกตัวอย่างการใช้งาน If Then Else ประกอบการเขียนโปรแกรม ซึ่งจะประกอบด้วยการใช้งาน 3 รูปแบบตามด้านล่าง
1. If…Then
Sub DecisionIf() If Range("e2").Value > 10000 Then Range("f2").Value = 20 End If End Sub
ความหมายคือ หาก E2 มีค่ามากกว่า 10,000 แล้วให้ F2 มีค่าเป็น 20 หากไม่ใช่ ไม่ต้องแสดงผลใด ๆ
2. If…Then…Else
Sub DecisionIf_Else() If Range("e2").Value > 10000 Then Range("f2").Value = 20 Else Range("f2").Value = 50 End If End Sub
ความหมายคือ หาก E2 มีค่ามากกว่า 10,000 แล้วให้ F2 มีค่าเป็น 10 หากไม่ใช่ ให้ F2 มีค่าเป็น 50
3. If…Then…ElseIf
Sub DecisionIf_ElseIf() If Range("e2").Value <= 2000 Then Range("f2").Value = 20 ElseIf Range("e2") <= 5000 Then Range("f2").Value = 50 Else Range("f2").Value = 100 End If End Sub
ความหมายคือ หาก E2 มีค่าน้อยกว่าหรือเท่ากับ 2,000 แล้วให้ F2 มีค่าเป็น 20 หากไม่ใช่ ให้ตรวจสอบต่อว่า E2 มีค่าน้อยกว่าหรือเท่ากับ 5,000 หรือไม่ หากใช่ให้ F2 มีค่าเท่า 50 หากไม่เข้าเงื่อนไขใดให้ F2 มีค่าเป็น 100
📹 Video อธิบาย If…Then…Else
🧭 Timeline
- 00:00:00 เกริ่นนำ: ความสำคัญของโครงสร้าง If ใน VBA
- 00:02:10 รูปแบบพื้นฐานของคำสั่ง If…Then
- 00:05:45 การใช้ If…Then…Else เพื่อควบคุมทางเลือก
- 00:10:20 การซ้อน If หลายชั้น (Nested If)
- 00:15:05 การใช้ If ร่วมกับตัวแปรและค่าจากเซลล์
- 00:22:30 ตัวอย่างการใช้งานจริงในงานเอกสาร
- 00:30:45 สรุปแนวคิดการใช้ If เพื่อควบคุมการทำงานใน VBA
🔗 Link ที่เกี่ยวข้อง
สามารถดาวน์โหลดไฟล์ตัวอย่างได้ที่ If…Then…Else
กรณีมีปัญหาการใช้งาน Excel and VBA สามารถสอบถามได้ที่ Excel Forum
Pingback: VBA Excel - Select...Case - Excel Tips and Tricks by Santipong Nasui