หาผลรวมใน userform
Posted: Wed Aug 17, 2016 3:55 pm
ผมต้องการหาผลรวม ใน Userform ครับ เป็นการหาผลรวมของสินค้าครับ
Excel Forum
ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
หาผลรวมใน userform
Page 1 of 1
Re: หาผลรวมใน userform
Posted: Wed Aug 17, 2016 4:02 pm
แนบไฟล์ใหม่ครับ
Re: หาผลรวมใน userform
Posted: Wed Aug 17, 2016 4:13 pm
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
Re: หาผลรวมใน userform
Posted: Wed Aug 17, 2016 7:25 pm
ขอบคุณครับ
Re: หาผลรวมใน userform
Posted: Mon Aug 22, 2016 4:25 am
ผมต้องการหาผลรวมของ textbox19 ครับ โดยเป็นการรวมเงินของสินค้าแต่ละรายการ แต่ติดปัญที่ ถ้ารายการสินค้าเป็นจุดทศนิยม จะรวมเงินไมได้ ครับ
Re: หาผลรวมใน userform
Posted: Mon Aug 22, 2016 11:30 am
ผมทดสอบแล้วไม่พบว่ามีปัญหา ช่วยให้รายละเอียดเพิ่มขึ้นว่าต้องกรอกค่าใดใน TextBox ใด แล้วกดปุ่มใด ค่าที่ถูกต้องควรเป็นเท่าใด จะได้ใช้สภาพแวดล้อมเดียวกันในการทดสอบครับRe: หาผลรวมใน userform
Posted: Mon Aug 22, 2016 1:14 pm
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
ลองแก้ตัวสีแดงนี้ก่อนจะใช่ไหมครับให้เป็นทศนิยม
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
ลองแก้ตัวสีแดงนี้ก่อนจะใช่ไหมครับให้เป็นทศนิยม
Re: หาผลรวมใน userform
Posted: Mon Aug 22, 2016 1:57 pm
ผลลัพทธืที่ต้องการครับ
1.กรอกข้อมูล ราคา กับ จำนวน จะคูณออกมาเป็นเงินของสินค้าแต่ละรายการ
2.นำจำนวนเงินของแต่ละ รายการมารวมกันให้ทราบยอดเงิน
3 ผมทำแล้วใส่ code
4.ผลรวมของ textbox ออกมาไม่ตรงครับ
5.แต่ผมเปลี่ยน TextBox 6 ,12 ,18 เป็น TextBox18.Text = Format(sum, "####0") ผลลัพธ์ textbox19 ออกมาจะตรงครับ
6.และหากต้องการให้ textbox19 ขึ้นผลรวมอัตโนมัติได้ไหมครับ
ขอบคุณครับ
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 Sub5.แต่ผมเปลี่ยน TextBox 6 ,12 ,18 เป็น TextBox18.Text = Format(sum, "####0") ผลลัพธ์ textbox19 ออกมาจะตรงครับ
6.และหากต้องการให้ textbox19 ขึ้นผลรวมอัตโนมัติได้ไหมครับ
ขอบคุณครับ
Re: หาผลรวมใน userform
Posted: Mon Aug 22, 2016 3:19 pm
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