ใส่ค่าใน Form VBA ไปอยู่ใน cell

[construction]

ผมสร้าง Form ขึ้นมา มีทั้ง combobox และ textbox เพื่อไว้ใส่ค่า หรือ เลือกค่าตัวเลข พอใส่หรือเปลี่ยนค่าแล้ว อยากให้ไปแสดงค่านี้ใส่หรือเปลี่ยนไปแสดงที่ cell ของ Excel ครับ

[snasui]

การใช้ VBA ต้องเขียน Code มาเอง ติดตรงไหนค่อยถามกันต่อ อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

[construction]

การใช้ VBA ต้องเขียน Code มาเอง ติดตรงไหนค่อยถามกันต่อ อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

ครับผม ขอโทษด้วยครับสมาชิกใหม่

ประเด็นที่ผมสอบถามทำได้แล้วครับอาจารย์ คำถามใหม่คือ ดังนี้
1.อยากให้มีหลังจุดทศนิยมสองตำแหน่ง
2.อยากให้มีเครื่องหมาย , เลขหลักพัน แสน ล้าน
3.ขอแนวทางการทำปุ่มรัน

Private Sub OptionButton1_Click()
TextBox2.Text = Sheet1.Cells(6, 7)
TextBox3.Text = Sheet1.Cells(7, 7)
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub OptionButton1_Click()
TextBox2.Text = Format(Sheet1.Cells(6, 7),"#,##0.00")
TextBox3.Text = Format(Sheet1.Cells(7, 7),"#,##0.00")
End Sub

[construction]

แล้วกรณีที่เราใส่ตัวเลขที่ Form เอง ละครับ อยากให้มี , เช่น 100,000 4,422,111


Private Sub TextBox1_Change()
Sheet1.Cells(5, 7) = TextBox1.Text
Sheet2.Cells(7, 7) = TextBox1.Text
Sheet3.Cells(3, 5) = TextBox1.Text
End Sub

[snasui]

การแนบภาพ แนบไฟล์ ให้ทำตามกฎการใช้บอร์ดข้อ 4 ด้านบนครับ

ไฟล์หรือภาพที่แนบไว้ที่อื่นหากถูกลบไปจะทำให้กระทู้ขาดสาระสำคัญที่อ้างอิงไว้ด้วยภาพครับ

การโพสต์ Code ควรโพสต์ให้แสดงเป็น Code จะได้สะดวกในการนำไปทดสอบ ทดลอง อ่านวิธีการโพสต์ในข้อ 4 ของหัวข้อโปรดทราบด้านบน

ตัวอย่างการจัด Format ตามที่ถามมาครับ

Code: Select all

Private Sub TextBox1_Change()
on error resume next
TextBox1.Text = Format(TextBox1.Text,"#,##0.00")
Sheet1.Cells(5, 7) = TextBox1.Text
Sheet2.Cells(7, 7) = TextBox1.Text
Sheet3.Cells(3, 5) = TextBox1.Text
End Sub

[construction]

รับทราบ ขอบคุณครับ