หาผลรวมใน userform

[san02551]

ผมต้องการหาผลรวม ใน Userform ครับ เป็นการหาผลรวมของสินค้าครับ

[san02551]

แนบไฟล์ใหม่ครับ

[puriwutpokin]

Code: Select all

Private Sub TextBox6_Enter()
Dim x, y, sum As Double
x = Val(TextBox3.Text)
y = Val(TextBox5.Text)
sum = x * y
TextBox6.Text = Format(sum, "##,##0.00")
End Sub
Private Sub TextBox12_Enter()
x = Val(TextBox9.Text)
y = Val(TextBox11.Text)
sum = x * y
TextBox12.Text = Format(sum, "##,##0.00")
End Sub
Private Sub TextBox18_Enter()
x = Val(TextBox15.Text)
y = Val(TextBox17.Text)
sum = x * y
TextBox18.Text = Format(sum, "##,##0.00")
End Sub

ลองแบบง่ายดูครับ

[san02551]

ขอบคุณครับ

[san02551]

ผมต้องการหาผลรวมของ textbox19 ครับ โดยเป็นการรวมเงินของสินค้าแต่ละรายการ แต่ติดปัญที่ ถ้ารายการสินค้าเป็นจุดทศนิยม จะรวมเงินไมได้ ครับ

[snasui]

ผมทดสอบแล้วไม่พบว่ามีปัญหา ช่วยให้รายละเอียดเพิ่มขึ้นว่าต้องกรอกค่าใดใน TextBox ใด แล้วกดปุ่มใด ค่าที่ถูกต้องควรเป็นเท่าใด จะได้ใช้สภาพแวดล้อมเดียวกันในการทดสอบครับ

[puriwutpokin]

Private Sub TextBox6_Enter()
Dim x, y, sum As Double
x = Val(TextBox3.Text)
y = Val(TextBox5.Text)
sum = x * y
TextBox6.Text = Format(sum, "##,##0.00")
End Sub
Private Sub TextBox12_Enter()
x = Val(TextBox9.Text)
y = Val(TextBox11.Text)
sum = x * y
TextBox12.Text = Format(sum, "##,##0.00")
End Sub
Private Sub TextBox18_Enter()
x = Val(TextBox15.Text)
y = Val(TextBox17.Text)
sum = x * y
TextBox18.Text = Format(sum, "##,##0.00")
End Sub

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

[san02551]

ผลลัพทธืที่ต้องการครับ
1.กรอกข้อมูล ราคา กับ จำนวน จะคูณออกมาเป็นเงินของสินค้าแต่ละรายการ
2.นำจำนวนเงินของแต่ละ รายการมารวมกันให้ทราบยอดเงิน
3 ผมทำแล้วใส่ code

Code: Select all

Private Sub TextBox6_Enter()
Dim x, y, sum As Double
x = Val(TextBox3.Text)
y = Val(TextBox5.Text)
sum = x * y
TextBox6.Text = Format(sum, "##,##0.00")
End Sub
Private Sub TextBox12_Enter()
x = Val(TextBox9.Text)
y = Val(TextBox11.Text)
sum = x * y
TextBox12.Text = Format(sum, "##,##0.00")
End Sub
Private Sub TextBox18_Enter()
x = Val(TextBox15.Text)
y = Val(TextBox17.Text)
sum = x * y
TextBox18.Text = Format(sum, "##,##0.00")
End Sub

4.ผลรวมของ textbox ออกมาไม่ตรงครับ
5.แต่ผมเปลี่ยน TextBox 6 ,12 ,18 เป็น TextBox18.Text = Format(sum, "####0") ผลลัพธ์ textbox19 ออกมาจะตรงครับ
6.และหากต้องการให้ textbox19 ขึ้นผลรวมอัตโนมัติได้ไหมครับ
ขอบคุณครับ

[puriwutpokin]

Code: Select all

Private Sub TextBox19_Enter()
Dim a, b, c, sum As Double
a = Val(TextBox6.Text)
b = Val(TextBox12.Text)
c = Val(TextBox18.Text)
sum = a + b + c
TextBox19.Text = Format(sum, "##,##0.00")
End Sub

ตัวอย่างครับอันที่รวม ส่วนอันอื่นผมว่า คงตัวเป็น Format(sum, "##,##0.00") ไม่งั้นยอดไม่เท่ากันนะครับ