ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้

[au_montree]

ขอสอบถามโค้ดที่ถูกต้องครับ: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
มี Textbox ใน User Form = 3 Textbox
Textbox1.Text
Textbox2.Text
Textbox3.Text (Textbox นี้ คือ ผลรวมจาก Textbox1.Text + Textbox2.Text)

เขียนสูตรนี้แล้วแต่ไม่สามารถใช้ได้ครับ
Dim x, y, sum As Integer
x = Val(Textbox1.Text)
y = Val(Textbox2.Text)
sum = x + y
Textbox3.Text = Convert.ToString(sum)

รบกวนทุกท่านช่วยบอกวิธีที่ใช้ได้ด้วยครับ
ขอขอบคุณครับ

[Serverchita]

ถ้าแค่ Sum อย่างเดียวได้ลองปรับเป็นนี้หรือยังครับ
Dim x, y, sum As Integer
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
sum = x + y
TextBox3.Text = sum

[au_montree]

ได้แล้วครับ ขอบคุณ คุณServerChita มากเลยครับ

ลองปรับเปลี่ยนโค้ดใหม่ ก็จะได้คอมม่า และ จุดทศนิยมด้วย

โค้ดที่ได้ เป็นดังนี้ครับ
Private Sub CommandButton1_Click()

Dim x, y, sum As Double
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
sum = x + y
TextBox3.Text = Format(sum, "##,##0.00")

End Sub

[Serverchita]

[snasui]

การโพสต์ Code ให้ทำตามกฎการใช้บอร์ดข้อ 5 เพื่อสะดวกในการอ่านและนำไปทดสอบครับ

[au_montree]

ขอโทษด้วยครับ ผมไม่ได้อ่านกฎการใช้บอร์ดโดยละเอียด
ครั้งหน้าผมจะระมัดระวังไม่ให้เกิดขึ้นอีก

[pro602]

ได้แล้วครับ ขอบคุณ คุณServerChita มากเลยครับ

ลองปรับเปลี่ยนโค้ดใหม่ ก็จะได้คอมม่า และ จุดทศนิยมด้วย

โค้ดที่ได้ เป็นดังนี้ครับ
Private Sub CommandButton1_Click()

Dim x, y, sum As Double
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
sum = x + y
TextBox3.Text = Format(sum, "##,##0.00")

End Sub

จากCode นี้ถ้าเราจะปรับให้Textbox3 แสดงผลเลยเมื่อป้อนค่าที่Textbox1,Textbox2แล้วต้องปรับcodeจุดไหนครับ

Code: Select all

Private Sub CommandButton1_Click()
Dim x, y, sum As Double
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
sum = x + y
TextBox3.Text = Format(sum, "##,##0.00")
End Sub

[snasui]

การจะให้คำนวณทันทีจะต้องพึ่ง Change Event ครับ

ดูตัวอย่าง Change Event ได้ที่นี่ครับ https://snasui.com/viewtopic.php?t=6455

เมื่อเกิด Change Event ที่ Object ใด ๆ แล้วเราจะเขียนให้โปรแกรมทำงานอย่างอื่น ๆ ต่อไปได้ ไม่ว่าจะไปจัดการกับ Object เซลล์ ชีต ไฟล์ ฯลฯ ครับ

[pro602]

การจะให้คำนวณทันทีจะต้องพึ่ง Change Event ครับ

ดูตัวอย่าง Change Event ได้ที่นี่ครับ https://snasui.com/viewtopic.php?t=6455

เมื่อเกิด Change Event ที่ Object ใด ๆ แล้วเราจะเขียนให้โปรแกรมทำงานอย่างอื่น ๆ ต่อไปได้ ไม่ว่าจะไปจัดการกับ Object เซลล์ ชีต ไฟล์ ฯลฯ ครับ

-ขอบคุณครับ ผมจะลองเข้าไปศึกษาดูตามที่อาจารย์แนะนำครับ