Snasui Excel Forum

jullathep wrote: Mon Feb 05, 2018 9:02 am

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text = "MgO" Then
        Sheet2.Label1.Caption = Sheet3.Range("B1")
ElseTextBox1.Text (" ")
        Sheet2.Label1.Caption = " "
End If
End Sub

รบกวนช่วย ดู Code หน่อยครับ พอดี ผมต้องการดึงข้อมูลจาก Sheet3 cell B1 มาแสดงใน Label ใน sheet2 เมื่อกรอก MgO ใน Sheet1 จะแสดงข้อมูล ประโยชน์ของ MgO ถ้าไม่กรอกก็ให้ตีเป็นค่าว่าง แต่มันกลับกัน พอไม่กรอก กด ตกลง มันดึงข้อมูลมาแสดง พอกรอก MgO error
รบกวนอาจารย์และพี่ๆทุกท่ายด้วยครับ

Private Sub CommandButton1_Click()
If TextBox1.Text = "MgO" Then
        Sheet2.Label1.Caption = Sheet3.Range("B1")
Else: TextBox1.Text = ("")
        Sheet2.Label1.Caption = " "
End If
End Sub

puriwutpokin wrote: Mon Feb 05, 2018 9:18 am

jullathep wrote: Mon Feb 05, 2018 9:02 am

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text = "MgO" Then
        Sheet2.Label1.Caption = Sheet3.Range("B1")
ElseTextBox1.Text (" ")
        Sheet2.Label1.Caption = " "
End If
End Sub

รบกวนช่วย ดู Code หน่อยครับ พอดี ผมต้องการดึงข้อมูลจาก Sheet3 cell B1 มาแสดงใน Label ใน sheet2 เมื่อกรอก MgO ใน Sheet1 จะแสดงข้อมูล ประโยชน์ของ MgO ถ้าไม่กรอกก็ให้ตีเป็นค่าว่าง แต่มันกลับกัน พอไม่กรอก กด ตกลง มันดึงข้อมูลมาแสดง พอกรอก MgO error
รบกวนอาจารย์และพี่ๆทุกท่ายด้วยครับ

ลองปรับตามนี้ครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text = "MgO" Then
        Sheet2.Label1.Caption = Sheet3.Range("B1")
Else: TextBox1.Text = ("")
        Sheet2.Label1.Caption = " "
End If
End Sub