รวบกวนช่วยดูCode VBA ของข้อมูลชุดนี้หน่อยครับ

[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ยังไง ให้ ข้อความมันยังอยู่ครับ ขอบคุณมากครับ

[puriwutpokin]

ปรับเป็น

Code: Select all

Private Sub CommandButton1_Click()
Sheet1.Activate
Sheet2.TextBox1.Text = Sheet2.TextBox1.Text
Sheet1.Label1.Caption = ("ธาตุอาหารเสริม")
End Sub

[jullathep]

ปรับเป็น

Code: Select all

Private Sub CommandButton1_Click()
Sheet1.Activate
Sheet2.TextBox1.Text = Sheet2.TextBox1.Text
Sheet1.Label1.Caption = ("ธาตุอาหารเสริม")
End Sub

ขอบคุณมากครับ