Page 1 of 1
ผมเขียน Code ให้แสดงข้อมูลตามที่ต้องการ แต่ดันไม่ออกมาให้ ต้องรบกวนพี่ๆ อาจารย์ในบอร์ดนี้ บ่อยหน่อยครับ ขออภัยด้วยครับ
Posted: Mon Feb 05, 2018 11:11 am
by jullathep
Code: Select all
Private Sub CommandButton1_Click()
If Sheet1.TextBox1.Text = Sheet1.TextBox1.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 = Sheet1.TextBox2.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง & " - " & ธาตุอาหารรอง")
End If
End Sub
ต้องรบกวนพี่ๆ อาจารย์ บ่อยหน่อยนะครับ พอดีมันไม่เป็นตามต้องการ กรอกข้อมูลใน Textbox1 ให้ข้อมูลไป แสดงใน Label Sheet2 ว่า ธาตุอาหารรอง กรอกใน Textbox2 ให้แสดงข้อมูลว่า ธาตุอาหารเสริม ถ้า กรอกทั้ง 2 ช่อง ให้แสดง ธาตุอาหารรอง-ธาตุอาหารรอง ผมกรอกข้อมูลลงไปก็ออกแต่ธาตุอาหารรอง รบกวนช่วยดู ด้วยครับผม
Re: ผมเขียน Code ให้แสดงข้อมูลตามที่ต้องการ แต่ดันไม่ออกมาให้ ต้องรบกวนพี่ๆ อาจารย์ในบอร์ดนี้ บ่อยหน่อยครับ ขออภัยด้วยคร
Posted: Mon Feb 05, 2018 11:39 am
by puriwutpokin
jullathep wrote: Mon Feb 05, 2018 11:11 am
Code: Select all
Private Sub CommandButton1_Click()
If Sheet1.TextBox1.Text = Sheet1.TextBox1.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 = Sheet1.TextBox2.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง & " - " & ธาตุอาหารรอง")
End If
End Sub
ต้องรบกวนพี่ๆ อาจารย์ บ่อยหน่อยนะครับ พอดีมันไม่เป็นตามต้องการ กรอกข้อมูลใน Textbox1 ให้ข้อมูลไป แสดงใน Label Sheet2 ว่า ธาตุอาหารรอง กรอกใน Textbox2 ให้แสดงข้อมูลว่า ธาตุอาหารเสริม ถ้า กรอกทั้ง 2 ช่อง ให้แสดง ธาตุอาหารรอง-ธาตุอาหารรอง ผมกรอกข้อมูลลงไปก็ออกแต่ธาตุอาหารรอง รบกวนช่วยดู ด้วยครับผม
ปรับเป็น
Code: Select all
Private Sub CommandButton1_Click()
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.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 = ("ธาตุอาหารรอง") And Sheet1.TextBox2.Text = ("ธาตุอาหารเสริม") Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง" & " - " & "ธาตุอาหารเสริม")
End If
End Sub
Re: ผมเขียน Code ให้แสดงข้อมูลตามที่ต้องการ แต่ดันไม่ออกมาให้ ต้องรบกวนพี่ๆ อาจารย์ในบอร์ดนี้ บ่อยหน่อยครับ ขออภัยด้วยคร
Posted: Mon Feb 05, 2018 12:54 pm
by jullathep
puriwutpokin wrote: Mon Feb 05, 2018 11:39 am
jullathep wrote: Mon Feb 05, 2018 11:11 am
Code: Select all
Private Sub CommandButton1_Click()
If Sheet1.TextBox1.Text = Sheet1.TextBox1.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง")
ElseIf Sheet1.TextBox2.Text = Sheet1.TextBox2.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 = Sheet1.TextBox2.Text Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง & " - " & ธาตุอาหารรอง")
End If
End Sub
ต้องรบกวนพี่ๆ อาจารย์ บ่อยหน่อยนะครับ พอดีมันไม่เป็นตามต้องการ กรอกข้อมูลใน Textbox1 ให้ข้อมูลไป แสดงใน Label Sheet2 ว่า ธาตุอาหารรอง กรอกใน Textbox2 ให้แสดงข้อมูลว่า ธาตุอาหารเสริม ถ้า กรอกทั้ง 2 ช่อง ให้แสดง ธาตุอาหารรอง-ธาตุอาหารรอง ผมกรอกข้อมูลลงไปก็ออกแต่ธาตุอาหารรอง รบกวนช่วยดู ด้วยครับผม
ปรับเป็น
Code: Select all
Private Sub CommandButton1_Click()
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.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 = ("ธาตุอาหารรอง") And Sheet1.TextBox2.Text = ("ธาตุอาหารเสริม") Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง" & " - " & "ธาตุอาหารเสริม")
End If
End Sub
ลองประบแล้วครับพี่ เวลากรอกข้อมูลทั้ง 2 ช่องมัน ไม่ขึ้นเป็น ธาตุอาหารรอง-ธาตุอาหารเสริม
Re: ผมเขียน Code ให้แสดงข้อมูลตามที่ต้องการ แต่ดันไม่ออกมาให้ ต้องรบกวนพี่ๆ อาจารย์ในบอร์ดนี้ บ่อยหน่อยครับ ขออภัยด้วยคร
Posted: Mon Feb 05, 2018 1:02 pm
by puriwutpokin
ผมTest แล้วขึ้นนะครับ ลองดูตามไฟล์แนบครับ
Re: ผมเขียน Code ให้แสดงข้อมูลตามที่ต้องการ แต่ดันไม่ออกมาให้ ต้องรบกวนพี่ๆ อาจารย์ในบอร์ดนี้ บ่อยหน่อยครับ ขออภัยด้วยคร
Posted: Mon Feb 05, 2018 1:08 pm
by jullathep
puriwutpokin wrote: Mon Feb 05, 2018 1:02 pm
ผมTest แล้วขึ้นนะครับ ลองดูตามไฟล์แนบครับ
อ๋อ ผมอาจจะอธิบายไม่เข้าใจเอง คือแบบนี้ครับพี่ ใน Textbox1 และ Textbox2 ต้องการให้มันรับค่าใด เช่น ผมใส่ ข้อความอะไรก็ได้ ทั้ง 2 ช่อง แล้วกดตกลงแล้วให้ label มัน แสดง ค่าว่า ธาตุอาหารรอง - ธาตุอาหารเสริม ประมาณนี้อ่าครับพี่
Re: ผมเขียน Code ให้แสดงข้อมูลตามที่ต้องการ แต่ดันไม่ออกมาให้ ต้องรบกวนพี่ๆ อาจารย์ในบอร์ดนี้ บ่อยหน่อยครับ ขออภัยด้วยคร
Posted: Mon Feb 05, 2018 1:15 pm
by puriwutpokin
jullathep wrote: Mon Feb 05, 2018 1:08 pm
puriwutpokin wrote: Mon Feb 05, 2018 1:02 pm
ผมTest แล้วขึ้นนะครับ ลองดูตามไฟล์แนบครับ
อ๋อ ผมอาจจะอธิบายไม่เข้าใจเอง คือแบบนี้ครับพี่ ใน Textbox1 และ Textbox2 ต้องการให้มันรับค่าใด เช่น ผมใส่ ข้อความอะไรก็ได้ ทั้ง 2 ช่อง แล้วกดตกลงแล้วให้ label มัน แสดง ค่าว่า ธาตุอาหารรอง - ธาตุอาหารเสริม ประมาณนี้อ่าครับพี่
ปรับเป็น
Code: Select all
Private Sub CommandButton1_Click()
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.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง" & " - " & "ธาตุอาหารเสริม")
End If
End Sub
Re: ผมเขียน Code ให้แสดงข้อมูลตามที่ต้องการ แต่ดันไม่ออกมาให้ ต้องรบกวนพี่ๆ อาจารย์ในบอร์ดนี้ บ่อยหน่อยครับ ขออภัยด้วยคร
Posted: Mon Feb 05, 2018 1:20 pm
by jullathep
puriwutpokin wrote: Mon Feb 05, 2018 1:15 pm
jullathep wrote: Mon Feb 05, 2018 1:08 pm
puriwutpokin wrote: Mon Feb 05, 2018 1:02 pm
ผมTest แล้วขึ้นนะครับ ลองดูตามไฟล์แนบครับ
อ๋อ ผมอาจจะอธิบายไม่เข้าใจเอง คือแบบนี้ครับพี่ ใน Textbox1 และ Textbox2 ต้องการให้มันรับค่าใด เช่น ผมใส่ ข้อความอะไรก็ได้ ทั้ง 2 ช่อง แล้วกดตกลงแล้วให้ label มัน แสดง ค่าว่า ธาตุอาหารรอง - ธาตุอาหารเสริม ประมาณนี้อ่าครับพี่
ปรับเป็น
Code: Select all
Private Sub CommandButton1_Click()
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.Label1.Caption = ("ธาตุอาหารเสริม")
ElseIf Sheet1.TextBox1 <> "" And Sheet1.TextBox2.Text <> "" Then
Sheet2.Label1.Caption = ("ธาตุอาหารรอง" & " - " & "ธาตุอาหารเสริม")
End If
End Sub
สุดยอดครับ พี่ขอบคุณครับ ได้แล้วครับผม