Snasui Excel Forum

คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/

อยากทราบ Code VB ที่สามารถ สั่งให้ Label แสดงข้อมูล ถ้าไม่มีข้อมูลจะไม่สามารถมองเห็นได้

https://www.snasui.com/viewtopic.php?t=12880

Page 1 of 1

อยากทราบ Code VB ที่สามารถ สั่งให้ Label แสดงข้อมูล ถ้าไม่มีข้อมูลจะไม่สามารถมองเห็นได้

Posted: Mon Feb 05, 2018 3:03 pm
by jullathep

Code: Select all

Private Sub CommandButton1_Click()
Sheet2.Activate
If Sheet1.TextBox1.Text = Sheet1.TextBox1.Text And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text And Sheet1.TextBox1.Text = "" Then
                Sheet2.Label2.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
                Sheet2.Label3.Caption = ("ธาตุอาหารรอง" & " - " & "¸ธาตุอาหารเสริม")
End If
End Sub
คือ สมมติว่าถามผม ต้องการจะให้ข้อมูลที่กรอกใน Textbox แล้วกดตกลง ให้ข้อมูลที่บันทึกไปแสดงใน Label เป้าหมายเช่น
กรอกข้อมูลใน Textbox1 ไปแสดงผลใน label1
กรอกข้อมูลใน Textbox2 ไปแสดงผลใน label2
กรอกข้อมูลใน Textbox1-2 ไปแสดงผลใน label 3
ซึ่งผมอยากทราบ Code จะสามารถ ซ่อน label ที่เราไม่ได้กรอกข้อมูลให้มันไม่แสดง เพราะผมจะต้องทำลาเบล ซ้อนกันทั้ง 3 อัน ในแบบ Transparent เพื่อโชว์ข้อมูลแต่ละประเภท เป็นต้นว่า
ผมกรอกข้อมูลใน Textbox 1 กดตกลง ข้อมูลจะโชว์ใน Label 1 (ให้เห็นเฉพาะ Label 1)
ผมกรอกข้อมูลใน Textbox 2 กดตกลง ข้อมูลจะโชว์ใน Label 2 (ให้Label 1 และ 3 ไม่สามารถมองเห็นได้)
ผมกรอกข้อมูลใน Textbox 1-2 กดตกลง ข้อมูลจะโชว์ใน Label 3 (ให้Label 2 และ 1 ไม่สามารถมองเห็นได้)
ขอบคุณมากครับ พี่ๆ อาจารย์ทุกๆท่าน

Re: อยากทราบ Code VB ที่สามารถ สั่งให้ Label แสดงข้อมูล ถ้าไม่มีข้อมูลจะไม่สามารถมองเห็นได้

Posted: Mon Feb 05, 2018 3:41 pm
by puriwutpokin
jullathep wrote: Mon Feb 05, 2018 3:03 pm

Code: Select all

Private Sub CommandButton1_Click()
Sheet2.Activate
If Sheet1.TextBox1.Text = Sheet1.TextBox1.Text And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text And Sheet1.TextBox1.Text = "" Then
                Sheet2.Label2.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
                Sheet2.Label3.Caption = ("ธาตุอาหารรอง" & " - " & "¸ธาตุอาหารเสริม")
End If
End Sub
คือ สมมติว่าถามผม ต้องการจะให้ข้อมูลที่กรอกใน Textbox แล้วกดตกลง ให้ข้อมูลที่บันทึกไปแสดงใน Label เป้าหมายเช่น
กรอกข้อมูลใน Textbox1 ไปแสดงผลใน label1
กรอกข้อมูลใน Textbox2 ไปแสดงผลใน label2
กรอกข้อมูลใน Textbox1-2 ไปแสดงผลใน label 3
ซึ่งผมอยากทราบ Code จะสามารถ ซ่อน label ที่เราไม่ได้กรอกข้อมูลให้มันไม่แสดง เพราะผมจะต้องทำลาเบล ซ้อนกันทั้ง 3 อัน ในแบบ Transparent เพื่อโชว์ข้อมูลแต่ละประเภท เป็นต้นว่า
ผมกรอกข้อมูลใน Textbox 1 กดตกลง ข้อมูลจะโชว์ใน Label 1 (ให้เห็นเฉพาะ Label 1)
ผมกรอกข้อมูลใน Textbox 2 กดตกลง ข้อมูลจะโชว์ใน Label 2 (ให้Label 1 และ 3 ไม่สามารถมองเห็นได้)
ผมกรอกข้อมูลใน Textbox 1-2 กดตกลง ข้อมูลจะโชว์ใน Label 3 (ให้Label 2 และ 1 ไม่สามารถมองเห็นได้)
ขอบคุณมากครับ พี่ๆ อาจารย์ทุกๆท่าน
ไม่ใช่ Label อันเดียวละครับ ไม่ต้องมาซ่อน
โดย คีย์ค่าใด อีกค่าก็ลบไป ไม่ง่ายกว่าหรือครับ

Re: อยากทราบ Code VB ที่สามารถ สั่งให้ Label แสดงข้อมูล ถ้าไม่มีข้อมูลจะไม่สามารถมองเห็นได้

Posted: Mon Feb 05, 2018 3:52 pm
by jullathep
puriwutpokin wrote: Mon Feb 05, 2018 3:41 pm
jullathep wrote: Mon Feb 05, 2018 3:03 pm

Code: Select all

Private Sub CommandButton1_Click()
Sheet2.Activate
If Sheet1.TextBox1.Text = Sheet1.TextBox1.Text And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text And Sheet1.TextBox1.Text = "" Then
                Sheet2.Label2.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
                Sheet2.Label3.Caption = ("ธาตุอาหารรอง" & " - " & "¸ธาตุอาหารเสริม")
End If
End Sub
คือ สมมติว่าถามผม ต้องการจะให้ข้อมูลที่กรอกใน Textbox แล้วกดตกลง ให้ข้อมูลที่บันทึกไปแสดงใน Label เป้าหมายเช่น
กรอกข้อมูลใน Textbox1 ไปแสดงผลใน label1
กรอกข้อมูลใน Textbox2 ไปแสดงผลใน label2
กรอกข้อมูลใน Textbox1-2 ไปแสดงผลใน label 3
ซึ่งผมอยากทราบ Code จะสามารถ ซ่อน label ที่เราไม่ได้กรอกข้อมูลให้มันไม่แสดง เพราะผมจะต้องทำลาเบล ซ้อนกันทั้ง 3 อัน ในแบบ Transparent เพื่อโชว์ข้อมูลแต่ละประเภท เป็นต้นว่า
ผมกรอกข้อมูลใน Textbox 1 กดตกลง ข้อมูลจะโชว์ใน Label 1 (ให้เห็นเฉพาะ Label 1)
ผมกรอกข้อมูลใน Textbox 2 กดตกลง ข้อมูลจะโชว์ใน Label 2 (ให้Label 1 และ 3 ไม่สามารถมองเห็นได้)
ผมกรอกข้อมูลใน Textbox 1-2 กดตกลง ข้อมูลจะโชว์ใน Label 3 (ให้Label 2 และ 1 ไม่สามารถมองเห็นได้)
ขอบคุณมากครับ พี่ๆ อาจารย์ทุกๆท่าน
ไม่ใช่ Label อันเดียวละครับ ไม่ต้องมาซ่อน
โดย คีย์ค่าใด อีกค่าก็ลบไป ไม่ง่ายกว่าหรือครับ
อ่าใช่ๆผมคิดไม่ทัน แล้ว Code ส่วนนั้นผมต้องเขียนยังไงครับ พี่ ขอความอนุเคราะห์ด้วยครับผม อ้างแิงจาก Code เดิม

Re: อยากทราบ Code VB ที่สามารถ สั่งให้ Label แสดงข้อมูล ถ้าไม่มีข้อมูลจะไม่สามารถมองเห็นได้

Posted: Mon Feb 05, 2018 3:56 pm
by jullathep
jullathep wrote: Mon Feb 05, 2018 3:52 pm
puriwutpokin wrote: Mon Feb 05, 2018 3:41 pm
jullathep wrote: Mon Feb 05, 2018 3:03 pm

Code: Select all

Private Sub CommandButton1_Click()
Sheet2.Activate
If Sheet1.TextBox1.Text = Sheet1.TextBox1.Text And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text And Sheet1.TextBox1.Text = "" Then
                Sheet2.Label2.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
                Sheet2.Label3.Caption = ("ธาตุอาหารรอง" & " - " & "¸ธาตุอาหารเสริม")
End If
End Sub
คือ สมมติว่าถามผม ต้องการจะให้ข้อมูลที่กรอกใน Textbox แล้วกดตกลง ให้ข้อมูลที่บันทึกไปแสดงใน Label เป้าหมายเช่น
กรอกข้อมูลใน Textbox1 ไปแสดงผลใน label1
กรอกข้อมูลใน Textbox2 ไปแสดงผลใน label2
กรอกข้อมูลใน Textbox1-2 ไปแสดงผลใน label 3
ซึ่งผมอยากทราบ Code จะสามารถ ซ่อน label ที่เราไม่ได้กรอกข้อมูลให้มันไม่แสดง เพราะผมจะต้องทำลาเบล ซ้อนกันทั้ง 3 อัน ในแบบ Transparent เพื่อโชว์ข้อมูลแต่ละประเภท เป็นต้นว่า
ผมกรอกข้อมูลใน Textbox 1 กดตกลง ข้อมูลจะโชว์ใน Label 1 (ให้เห็นเฉพาะ Label 1)
ผมกรอกข้อมูลใน Textbox 2 กดตกลง ข้อมูลจะโชว์ใน Label 2 (ให้Label 1 และ 3 ไม่สามารถมองเห็นได้)
ผมกรอกข้อมูลใน Textbox 1-2 กดตกลง ข้อมูลจะโชว์ใน Label 3 (ให้Label 2 และ 1 ไม่สามารถมองเห็นได้)
ขอบคุณมากครับ พี่ๆ อาจารย์ทุกๆท่าน
ไม่ใช่ Label อันเดียวละครับ ไม่ต้องมาซ่อน
โดย คีย์ค่าใด อีกค่าก็ลบไป ไม่ง่ายกว่าหรือครับ
อ่าใช่ๆผมคิดไม่ทัน แล้ว Code ส่วนนั้นผมต้องเขียนยังไงครับ พี่ ขอความอนุเคราะห์ด้วยครับผม อ้างแิงจาก Code เดิม
อ้อๆไม่ใช่ครับ ผมพูดผิด code เดิมใช้ได้แล้ว แต่ว่า อยากทราบ Code ที่ พอเราไม่กรอกแล้วกดตกลง ให้ Label เป้าหมาย มันเป็นค่าว่าง ซึตอนนี้ พอ ลบค่าใน Textbox ออก แล้วกดตกลง มัน ดัน ขึ้นว่า ธาตุอาหารรอง ขอบครับ

Re: อยากทราบ Code VB ที่สามารถ สั่งให้ Label แสดงข้อมูล ถ้าไม่มีข้อมูลจะไม่สามารถมองเห็นได้

Posted: Mon Feb 05, 2018 4:02 pm
by puriwutpokin
ปรับตามนี้ครับ

Code: Select all

Private Sub CommandButton1_Click()
If Sheet1.TextBox1 = "" And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ""
ElseIf Sheet1.TextBox1.Text = Sheet1.TextBox1.Text And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text And Sheet1.TextBox1.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง" & " - " & "ธาตุอาหารเสริม")
End If
End Sub

Re: อยากทราบ Code VB ที่สามารถ สั่งให้ Label แสดงข้อมูล ถ้าไม่มีข้อมูลจะไม่สามารถมองเห็นได้

Posted: Mon Feb 05, 2018 4:33 pm
by jullathep
puriwutpokin wrote: Mon Feb 05, 2018 4:02 pm ปรับตามนี้ครับ

Code: Select all

Private Sub CommandButton1_Click()
If Sheet1.TextBox1 = "" And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ""
ElseIf Sheet1.TextBox1.Text = Sheet1.TextBox1.Text And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text And Sheet1.TextBox1.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง" & " - " & "ธาตุอาหารเสริม")
End If
End Sub
ขอบคุณครับพี่

Re: อยากทราบ Code VB ที่สามารถ สั่งให้ Label แสดงข้อมูล ถ้าไม่มีข้อมูลจะไม่สามารถมองเห็นได้

Posted: Tue Feb 06, 2018 8:48 am
by jullathep
puriwutpokin wrote: Mon Feb 05, 2018 4:02 pm ปรับตามนี้ครับ

Code: Select all

Private Sub CommandButton1_Click()
If Sheet1.TextBox1 = "" And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ""
ElseIf Sheet1.TextBox1.Text = Sheet1.TextBox1.Text And Sheet1.TextBox2.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text And Sheet1.TextBox1.Text = "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
                Sheet2.Label1.Caption = ("ธาตุอาหารรอง" & " - " & "ธาตุอาหารเสริม")
End If
End Sub
ขอบคุณมากครับ
All times are UTC+07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited