การ วนloop เพื่อเรียก Function ตลอดเวลา

[tid_champ]

ผมติดเรื่อง Function ไม่ยอมทำงาน จะต้องเขียนเรียกที่ใหนหรอครับให้มันวนLoopเรียกFunctionนี้ตลอดเวลา จนกว่าจะปิด From ซึ่งFunction นี้ผมเขียนไว้ในFrom ที่2ครับ อย่างเช่นในกรณีเขียนC++ จะมี Void Loop ถ้าเขียน Call function ในนี้มันจะทำงานตลอดเวลา ผมสงสัยว่า VBA จะเขียนอย่างไรครับ

[snasui]

ช่วยแนบไฟล์พร้อม Code ที่ติดปัญหามาด้วยจะได้ช่วยทดสอบได้ครับ

[tid_champ]

ที่ From set1 ครับ

[snasui]

ช่วยอธิบายขั้นตอนการทดสอบ ผลลัพธ์ที่ได้ ผลลัพธ์ที่ต้องการมาด้วยครับ

[tid_champ]

ในFrom Set 2 เวลาCheckbox ใดๆ ถูกติ๊ก จะนำค่าp(0) - p(60) บวกกัน แล้วเก็บไว้ในตัวแปลTotal1 ครับ ปัจจุบันผมใช้ปุ่มSum สั่งงานมันครับ อยากให้เมื่อเกิดเหตุการณ์กับCheckbox ก็ให้เรียก Function Cal1 หรือ ให้ วนLoop เรียก Function Cal1 ทุกวินาทีในขณะที่ From Set1 ถูกเปิดอยู่ครับ
รบกวนด้วยครับผมเพิ่งหัดเขียนน่ะครับ

[snasui]

Double Click CheckBox แต่ละตัวแล้วเพิ่ม Code ตามตัวอย่างด้านล่างครับ

Code: Select all

Private Sub CheckBox1_Click()
    Call Cal1
End Sub

Private Sub CheckBox2_Click()
    Call Cal1
End Sub

[tid_champ]

อีกข้อนึงครับ อาจารย์ ถ้าในกรณีที่่ค่าในตัวแปร Public Total1 เปลี่ยนแปลงให้แสดงค่าใน txtcap1 ที่อยู่ในfrom Main ครับ ต้องเขียนCode ลักษณะใหนและใส่ไว้ที่ใหนครับ

[snasui]

ปกติยอดจะเปลียนทุกการคลิก CheckBox อยู่แล้ว เราสามารถปรับ Code ด้านบนเป็นตามด้านล่างได้ครับ

Code: Select all

Private Sub CheckBox1_Click()
    Call Cal1
    Main.txtcap1.Text = Total1
End Sub

[tid_champ]

ขอบคุณครับ อาจารย์ แล้วถ้าผมอยากให้checkbox คงค่าเดิมเอาไว้ ในกรณีที่ปิดFrom ไป ถ้าเปิดขึ้นมาใหม่ให้ตัวที่Check อยู่เหมือนเดิมต้องทำอย่างไรครับ

[snasui]

หากเราปิด Form ด้วย Unload จะทำให้ค่าต่าง ๆ ถูกลบทิ้ง ให้ใช้การ Hide แทน เช่นจากเดิม Code คือ Unload Me ก็ปรับเป็น Me.Hide เป็นต้น

[tid_champ]

ขอบคุณครับ

[tid_champ]

รบกวนอีกรอบ หน้าset 1 ผมใส่ combobox 0-1 ก็runได้ปรกติ แต่พอใส่ Combobox2 ก็เกิดError เป็นเพราะอะไรครับ

[snasui]

ไฟล์ที่แนบมา UserForm ที่ชีอ Set1 ไม่มี Control ที่ชื่อ ComboBox0 ช่วยตรวจสอบและแนบมาใหม่อีกครั้งครับ

[tid_champ]

ขออภัยครับ อีกรอบ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

 'Calculate
Public Sub Cal1()
    Total1 = (p(0) * Val(ComboBox0)) + (p(1) * Val(ComboBox1)) + (p(2) * Val(ComboBox2))
    TextBox1.Value = Total1
    Main.txtcap1.Text = Total1
End Sub

[tid_champ]

อาจารย์ครับ จะเขียนโค๊ดอย่างไรให้ เวลาเราคลิ๊กที่ textbox แล้วปฏิทิน ขึ้นมาให้เลือกวัน หลังจากนั้นให้วันที่เข้าไปอยู่ในtextbox น่ะครับ

[snasui]

จะมีปฏิทินได้ก็ต้องสร้าง Control ที่เป็นปฏิทินขึ้นมาใช้เองครับ (ใน Excel รุ่น 2010+ ไม่มี Date Time Picker ให้ใช้)

[tid_champ]

คือผมสร้างมาแล้วแต่เวลาคลิ๊กเลือก ที่ปฏิทินแล้วค่าไม่ลงไปในTextBox น่ะครับ ไม่ทราบว่าจะmoveค่าอย่างไร

[snasui]

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

[tid_champ]

รบกวนช่วยดูCode ให้หน่อยครับ ผมทำpopup ขึ้นมาแล้วแต่ เวลาคลิ๊กแล้ว Error ครับ