Page 1 of 1
รวบกวนช่วยดูCode VBA ของข้อมูลชุดนี้หน่อยครับ
Posted: Sat Feb 03, 2018 3:12 pm
by jullathep
Code: Select all
Private Sub CommandButton1_Click()
Sheet1.Activate
Sheet2.TextBox1.Text = (" ")
Sheet1.Label1.Caption = ("ธาตุอาหารเสริม")
End Sub
คือว่า ผมต้องการให้ Keyword คำว่า อาหารเสริมไปโชว์ใน Label1 ในอีก Sheet โดยกรอกข้อมูลใน TextBox เช่น "Zn" กดตกลง ทีนี้
คำว่าธาตุอาหารเสริม มันไปโชว์แล้ว แต่ คำว่า Zn ใน Textbox มันหาย ผมอยากทราบว่าจะเขียนcodeยังไง ให้ ข้อความมันยังอยู่ครับ ขอบคุณมากครับ
Re: รวบกวนช่วยดูCode VBA ของข้อมูลชุดนี้หน่อยครับ
Posted: Sat Feb 03, 2018 3:37 pm
by puriwutpokin
ปรับเป็น
Code: Select all
Private Sub CommandButton1_Click()
Sheet1.Activate
Sheet2.TextBox1.Text = Sheet2.TextBox1.Text
Sheet1.Label1.Caption = ("ธาตุอาหารเสริม")
End Sub
Re: รวบกวนช่วยดูCode VBA ของข้อมูลชุดนี้หน่อยครับ
Posted: Sat Feb 03, 2018 4:20 pm
by jullathep
puriwutpokin wrote: Sat Feb 03, 2018 3:37 pm
ปรับเป็น
Code: Select all
Private Sub CommandButton1_Click()
Sheet1.Activate
Sheet2.TextBox1.Text = Sheet2.TextBox1.Text
Sheet1.Label1.Caption = ("ธาตุอาหารเสริม")
End Sub
ขอบคุณมากครับ