Page 1 of 1
ใส่ค่าใน Form VBA ไปอยู่ใน cell
Posted: Mon Oct 24, 2016 7:24 am
by construction
ผมสร้าง Form ขึ้นมา มีทั้ง combobox และ textbox เพื่อไว้ใส่ค่า หรือ เลือกค่าตัวเลข พอใส่หรือเปลี่ยนค่าแล้ว อยากให้ไปแสดงค่านี้ใส่หรือเปลี่ยนไปแสดงที่ cell ของ Excel ครับ
Re: ใส่ค่าใน Form VBA ไปอยู่ใน cell
Posted: Mon Oct 24, 2016 7:35 am
by snasui
การใช้ VBA ต้องเขียน Code มาเอง ติดตรงไหนค่อยถามกันต่อ อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ
Re: ใส่ค่าใน Form VBA ไปอยู่ใน cell
Posted: Mon Oct 24, 2016 10:59 pm
by construction
snasui wrote: การใช้ VBA ต้องเขียน Code มาเอง ติดตรงไหนค่อยถามกันต่อ อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ
ครับผม ขอโทษด้วยครับสมาชิกใหม่
ประเด็นที่ผมสอบถามทำได้แล้วครับอาจารย์
คำถามใหม่คือ ดังนี้
1.อยากให้มีหลังจุดทศนิยมสองตำแหน่ง
2.อยากให้มีเครื่องหมาย , เลขหลักพัน แสน ล้าน
3.ขอแนวทางการทำปุ่มรัน
Private Sub OptionButton1_Click()
TextBox2.Text = Sheet1.Cells(6, 7)
TextBox3.Text = Sheet1.Cells(7, 7)
End Sub
Re: ใส่ค่าใน Form VBA ไปอยู่ใน cell
Posted: Tue Oct 25, 2016 7:12 pm
by 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
Re: ใส่ค่าใน Form VBA ไปอยู่ใน cell
Posted: Wed Oct 26, 2016 6:12 am
by 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
Re: ใส่ค่าใน Form VBA ไปอยู่ใน cell
Posted: Wed Oct 26, 2016 6:50 am
by 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
Re: ใส่ค่าใน Form VBA ไปอยู่ใน cell
Posted: Thu Oct 27, 2016 7:04 am
by construction
รับทราบ ขอบคุณครับ