ComboBox เพื่อสั่งให้ทำงานต่อหรือยกเลิก

[P1649]

ComboBox เพื่อสั่งให้ทำงานต่อหรือยกเลิก ต้องแก้ไขอย่างไรบ้างครับ

Code: Select all

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
    
    With ThisWorkbook.ComboBox1
    .AddItem "Continue"
    .AddItem "QUIT"
    End With
    
    If ComboBox1 = "QUIT" Then
    Application.Quit
    End If
    'Call other
    'Call other
End Sub

[snasui]

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

[P1649]

ไฟล์ที่ใช้งาน มีการดึงข้อมูลจากเวปเป็นลูป และใช้เวลานานมาก จึงต้องการ combobox ขั้นในลูป โดยเลือกได้ว่าจะให้ทำงานต่อ หรือยกเลิกการทำงานนั้น โค้ดที่ลองเขียนผิดพลาดคือ ไม่แสดงข้อมูลให้เลือก และเงื่อนไขยังไม่ทำงานครับ

[snasui]

การหยุดหรือไปต่อ ณ Runtime ต้องเขียนเงื่อนไขเข้าไปครับ เช่น หาก Loop แล้วใช้เวลาเกินเท่านั้นเท่านี้ หรือเจอเหตุการณ์นั้นเหตุการณ์นี้ให้ออกจาก Loop เพื่อแจ้งผลการทำงานหรือทำงานอื่น ๆ ต่อ เช่นนี้เป็นต้นครับ