สอบถามเรื่อง CODE VBA ในการดึงข้อมูล จาก Cell มาแสดงใน Label ครับ

[jullathep]

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
รบกวนอาจารย์และพี่ๆทุกท่ายด้วยครับ

[puriwutpokin]

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

[jullathep]

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

ขอบคุณครับพี่ได้แล้วครับผม