Page 1 of 1
ComboBox เพื่อสั่งให้ทำงานต่อหรือยกเลิก
Posted: Sat Jun 01, 2013 11:22 pm
by 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
Re: ComboBox เพื่อสั่งให้ทำงานต่อหรือยกเลิก
Posted: Sun Jun 02, 2013 12:14 am
by snasui
ช่วยอธิบายว่าขั้นตอนการทำงานเป็นอย่างไร ต้องการทำงานต่อแบบใดครับ
Re: ComboBox เพื่อสั่งให้ทำงานต่อหรือยกเลิก
Posted: Sun Jun 02, 2013 12:50 am
by P1649
ไฟล์ที่ใช้งาน มีการดึงข้อมูลจากเวปเป็นลูป และใช้เวลานานมาก จึงต้องการ combobox ขั้นในลูป โดยเลือกได้ว่าจะให้ทำงานต่อ หรือยกเลิกการทำงานนั้น โค้ดที่ลองเขียนผิดพลาดคือ ไม่แสดงข้อมูลให้เลือก และเงื่อนไขยังไม่ทำงานครับ
Re: ComboBox เพื่อสั่งให้ทำงานต่อหรือยกเลิก
Posted: Sun Jun 02, 2013 12:56 am
by snasui
การหยุดหรือไปต่อ ณ Runtime ต้องเขียนเงื่อนไขเข้าไปครับ เช่น หาก Loop แล้วใช้เวลาเกินเท่านั้นเท่านี้ หรือเจอเหตุการณ์นั้นเหตุการณ์นี้ให้ออกจาก Loop เพื่อแจ้งผลการทำงานหรือทำงานอื่น ๆ ต่อ เช่นนี้เป็นต้นครับ