Page 1 of 1
ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Mon Jul 04, 2016 11:44 am
by 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)
รบกวนทุกท่านช่วยบอกวิธีที่ใช้ได้ด้วยครับ
ขอขอบคุณครับ
Re: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Mon Jul 04, 2016 12:15 pm
by Serverchita
ถ้าแค่ Sum อย่างเดียวได้ลองปรับเป็นนี้หรือยังครับ
Dim x, y, sum As Integer
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
sum = x + y
TextBox3.Text = sum
Re: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Mon Jul 04, 2016 1:01 pm
by 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
Re: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Mon Jul 04, 2016 1:22 pm
by Serverchita
Re: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Mon Jul 04, 2016 6:10 pm
by snasui
การโพสต์ Code ให้ทำตามกฎการใช้บอร์ดข้อ 5 เพื่อสะดวกในการอ่านและนำไปทดสอบครับ
Re: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Mon Jul 04, 2016 9:45 pm
by au_montree
ขอโทษด้วยครับ ผมไม่ได้อ่านกฎการใช้บอร์ดโดยละเอียด
ครั้งหน้าผมจะระมัดระวังไม่ให้เกิดขึ้นอีก
Re: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Fri Aug 14, 2020 6:39 am
by pro602
au_montree wrote: Mon Jul 04, 2016 1:01 pm
ได้แล้วครับ ขอบคุณ คุณ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
Re: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Fri Aug 14, 2020 8:09 am
by snasui
การจะให้คำนวณทันทีจะต้องพึ่ง Change Event ครับ
ดูตัวอย่าง Change Event ได้ที่นี่ครับ
https://snasui.com/viewtopic.php?t=6455
เมื่อเกิด Change Event ที่ Object ใด ๆ แล้วเราจะเขียนให้โปรแกรมทำงานอย่างอื่น ๆ ต่อไปได้ ไม่ว่าจะไปจัดการกับ Object เซลล์ ชีต ไฟล์ ฯลฯ ครับ
Re: ต้องการให้ Textbox ใน User Form VBA คำนวณผลรวมได้
Posted: Fri Aug 14, 2020 1:16 pm
by pro602
snasui wrote: Fri Aug 14, 2020 8:09 am
การจะให้คำนวณทันทีจะต้องพึ่ง Change Event ครับ
ดูตัวอย่าง Change Event ได้ที่นี่ครับ
https://snasui.com/viewtopic.php?t=6455
เมื่อเกิด Change Event ที่ Object ใด ๆ แล้วเราจะเขียนให้โปรแกรมทำงานอย่างอื่น ๆ ต่อไปได้ ไม่ว่าจะไปจัดการกับ Object เซลล์ ชีต ไฟล์ ฯลฯ ครับ
-ขอบคุณครับ ผมจะลองเข้าไปศึกษาดูตามที่อาจารย์แนะนำครับ
