Snasui Excel Forum

Posted: **Tue Dec 10, 2013 1:12 pm**

อาจารย์ครับ ผมต้องการให้คลิ๊กแล้วโปรแกรมทำการวนลูป ลบค่าใน Textbox1 ลงเรื่อยๆ(อัตโนมัติ)จนกว่า label2จะ มากกว่าหรือเท่ากับศูนย์ครับ
แต่มัน Error ครับรบกวนแนะนำการเขียน Code ทีครับ

Posted: **Tue Dec 10, 2013 4:29 pm**

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    TextBox1 = 2000
    Do
        If Val(Label2.Caption) <= 0 Then
            TextBox1.Value = Val(TextBox1.Value) - 10
        End If
    Loop Until Val(Label2.Caption) > 0
End Sub

Private Sub TextBox1_Change()
    Label2.Caption = Val(Label1.Caption) - Val(TextBox1.Value)
End Sub

Posted: **Tue Dec 10, 2013 7:00 pm**

ขอบคุณ ครับอาจารย์ ได้ความรู้เพิ่มครับผม

Snasui Excel Forum

Do loop until รบกวนช่วยแนะนำทีครับ มันErrorครับ

Do loop until รบกวนช่วยแนะนำทีครับ มันErrorครับ

Re: Do loop until รบกวนช่วยแนะนำทีครับ มันErrorครับ

Re: Do loop until รบกวนช่วยแนะนำทีครับ มันErrorครับ