Snasui Excel Forum

Posted: **Thu Aug 09, 2012 12:40 pm**

รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox ครับ
จากไฟล์ที่แนบมา กดปุ่ม OpenForm แล้วใส่ค่าในช่องยกมา ช่องข้อมูลที่ 1 และช่องข้อมูลที่ 2
แล้วให้เปรียบเทียบว่า ข้อมูลที่ 1 หรือข้อมูลที่ 2 ถ้าข้อมูลใดน้อยกว่าให้นำไปลบกับข้อมูลในช่องยกมา
แล้วแสดงค่าที่ช่องคงเหลือครับ เช่น
ยกมา 2,000,000
ข้อมูลที่1 1,000,000
ข้อมูลที่2 500,000
คงเหลือ 1,500,000
แต่ว่า Code ที่ได้แนบมานั้นคำตอบออกมาที่ 1,000,000 ซึ่งผิด ไม่ทราบว่าควรปรับ Code ยังไง
รบกวนท่านอาจารย์หรือผู้รู้ช่วยแนะนำด้วยครับ

Posted: **Thu Aug 09, 2012 2:54 pm**

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

Code: Select all

Private Sub txtcl_Change()
    If txtcl.Value = "" Then Exit Sub
    If txtpvcl.Value = "" Then Exit Sub
    If CDbl(txtcl.Value) < CDbl(txtpvcl.Value) Then
        txtbeforepv = Format(txtbl.Value - txtcl.Value, "###,##0.00")
        Else
        txtbeforepv = Format(txtbl.Value - txtpvcl.Value, "###,##0.00")
    End If
End Sub
Private Sub txtpvcl_Change()
    If txtcl.Value = "" Then Exit Sub
    If txtpvcl.Value = "" Then Exit Sub
    If CDbl(txtpvcl.Value) < CDbl(txtcl.Value) Then
        txtbeforepv = Format(txtbl.Value - txtpvcl.Value, "###,##0.00")
        Else
        txtbeforepv = Format(txtbl.Value - txtcl.Value, "###,##0.00")
    End If
End Sub

Posted: **Thu Aug 09, 2012 3:52 pm**

ขอบคุณมากครับ Code ที่ให้มาใช้ได้ตรงความต้องการเลยครับ ถ้าไม่เป็นการรบกวนอยากสอบถามว่า CDbl ใส่เพิ่มเข้าไปเพื่ออะไรหรือครับ

Posted: **Thu Aug 09, 2012 3:58 pm**

เป็นการ Convert Data Type จาก String ให้เป็น Double ครับ ดูเพิ่มเติมที่นี่ครับ http://office.microsoft.com/en-us/excel ... 29018.aspx

Posted: **Fri Aug 10, 2012 7:03 am**

ครับ ขอบคุณท่านอาจารย์มากครับ

Snasui Excel Forum

รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox ครับ

รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox ครับ

Re: รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox คร

Re: รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox คร

Re: รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox คร

Re: รบกวนช่วยดู Code เกี่ยวกับการเปรียบเทียบค่าใน Textbox คร