:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
jullathep
Member
Member
Posts: 148
Joined: Fri Feb 02, 2018 1:56 pm

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

#1

Post 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 ไม่สามารถมองเห็นได้)
ขอบคุณมากครับ พี่ๆ อาจารย์ทุกๆท่าน
You do not have the required permissions to view the files attached to this post.
Top
User avatar
puriwutpokin
Guru
Guru
Posts: 3700
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

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

#2

Post 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 อันเดียวละครับ ไม่ต้องมาซ่อน
โดย คีย์ค่าใด อีกค่าก็ลบไป ไม่ง่ายกว่าหรือครับ
:shock: :roll: :D
Top
jullathep
Member
Member
Posts: 148
Joined: Fri Feb 02, 2018 1:56 pm

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

#3

Post 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 เดิม
Top
jullathep
Member
Member
Posts: 148
Joined: Fri Feb 02, 2018 1:56 pm

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

#4

Post 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 ออก แล้วกดตกลง มัน ดัน ขึ้นว่า ธาตุอาหารรอง ขอบครับ
Top
User avatar
puriwutpokin
Guru
Guru
Posts: 3700
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

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

#5

Post 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
:shock: :roll: :D
Top
jullathep
Member
Member
Posts: 148
Joined: Fri Feb 02, 2018 1:56 pm

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

#6

Post 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
ขอบคุณครับพี่
Top
jullathep
Member
Member
Posts: 148
Joined: Fri Feb 02, 2018 1:56 pm

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

#7

Post 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
ขอบคุณมากครับ
Top
Post Reply

Return to “Excel”