: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

ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

ฟอรัมถาม-ตอบปัญหาการใช้งาน 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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#1

Post by Benmore »

Code: Select all

Private Sub BTsearch_Click()
On Error Resume Next
'Err.Clear
Dim nRow As String
nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
If Err.Number = 91 Then

    TextBox2.Value = " "
        MsgBox "ไม่มีข้อมูล"
    End If
    TextBox2.Value = Cells(nRow, 2)
End Sub
ทำยังไงให้ค้นหาข้อมูลแล้วข้อมูลขึ้นโชว์ใน Textbox ค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#2

Post by snasui »

:D แนบตัวอย่างไฟล์ Excel ตัดมาเฉพาะที่เป็นปัญหา อธิบายสิ่งที่ต้องการจะได้สะดวกในการตอบครับ
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#3

Post by Benmore »

คือต้องการให้ข้อมูลใน sheet "EGAS_Data" ที่ใช้ Userform1 ค้นหาข้อมูล โดยให้ข้อมูลที่ค้นหาผ่าน search มาแสดงที่ Textbox1
***ตามรูปตัวอย่างที่แนบมาก่อนหน้าค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
logic
Gold
Gold
Posts: 1506
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#4

Post by logic »

รูปที่แนบมาไม่เห็นว่าเอาข้อมูลอะไรมาแสดง ช่วยเขียนแจ้งด้วยว่าต้องการข้อมูลอะไรบ้างครับ
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#5

Post by Benmore »

logic wrote:รูปที่แนบมาไม่เห็นว่าเอาข้อมูลอะไรมาแสดง ช่วยเขียนแจ้งด้วยว่าต้องการข้อมูลอะไรบ้างครับ
- ต้องการข้อมูลที่อยู่ใน ชีท EGAS_Data มาแสดงใน Textbox1 เมื่อกรอกข้อมูลแล้วคลิ๊กที่ปุ่ม search เพื่อให้แสดงข้อมูลที่ค้นหา
- ต้องการให้เมื่อเลือกค่าใน combobox กับ checkbox แล้วข้อมูลที่เลือกไปแสดงในTextbox2
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#6

Post by snasui »

Benmore wrote:
logic wrote:รูปที่แนบมาไม่เห็นว่าเอาข้อมูลอะไรมาแสดง ช่วยเขียนแจ้งด้วยว่าต้องการข้อมูลอะไรบ้างครับ
- ต้องการข้อมูลที่อยู่ใน ชีท EGAS_Data มาแสดงใน Textbox1 เมื่อกรอกข้อมูลแล้วคลิ๊กที่ปุ่ม search เพื่อให้แสดงข้อมูลที่ค้นหา
- ต้องการให้เมื่อเลือกค่าใน combobox กับ checkbox แล้วข้อมูลที่เลือกไปแสดงในTextbox2
:D ทราบแล้วว่าต้องการเอาข้อมูลในชีต EGAS_Data มาแสดง ข้อมูลอะไรบ้างช่วยเขียนมาให้ละเอียด ในชีตดังกล่าวมีข้อมูลหลายคอลัมน์ครับ
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#7

Post by Benmore »

ข้อมูล Name_TH , Section , Uniform_No ค่ะ
แล้วจะทำยังไงให้ข้อมูลที่เลือกใน combobox,checkbox แสดงใน texbox เดียวกันแต่เรียงลำดับลงมาเรื่อยๆค่ะ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#8

Post by snasui »

:D ตัวอย่าง Code ครับ

Code: Select all

Private Sub BTsearch_Click()
    Dim txt As String
    On Error Resume Next
    'Err.Clear
    Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If Err.Number = 91 Then
        TextBox1.RowSource = "txtsearch.Text"
          MsgBox "ไม่มีข้อมูล"
    End If
    txt = Cells(nRow, 1) & vbCrLf & Cells(nRow, 3) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    TextBox1.Value = txt
End Sub
อย่าลืมไปปรับ Property ของ TextBox1 ในหน้าต่าง Propery ให้เป็น Multiline ในส่วนของการเลือก ComboBox และ CheckBox ให้เขียนมาเองก่อน ติดตรงไหนแล้วถามกันต่อครับ
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#9

Post by Benmore »

snasui wrote::D ตัวอย่าง Code ครับ

Code: Select all

Private Sub BTsearch_Click()
    Dim txt As String
    On Error Resume Next
    'Err.Clear
    Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If Err.Number = 91 Then
        TextBox1.RowSource = "txtsearch.Text"
          MsgBox "ไม่มีข้อมูล"
    End If
    txt = Cells(nRow, 1) & vbCrLf & Cells(nRow, 3) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    TextBox1.Value = txt
End Sub
อย่าลืมไปปรับ Property ของ TextBox1 ในหน้าต่าง Propery ให้เป็น Multiline ในส่วนของการเลือก ComboBox และ CheckBox ให้เขียนมาเองก่อน ติดตรงไหนแล้วถามกันต่อครับ
ทำได้แล้วค่ะ ขอบคุณค่ะ
แต่พอดีอยากให้ข้างหน้าคำที่ค้นหามีหัวข้อตลอดค่ะ ต้องเพิ่มโค้ดตัวไหนลงไปค่ะ
ชื่อ1.png
แล้วพอเวลาเราคลิ๊คเลือกที่ Checkbox ข้อมูลที่ค้นหาก็หายไป อยากทราบว่าต้องแก้ไขตรงไหนบ้างค่ะ
ชื่อ2.png

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        TextBox1.Value = "ชุดหดและเก่าตามสภาพ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        TextBox1.Value = "ชุดเปื่อยขาดเนื่องจากการซัก"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox3_Click()
    If CheckBox3.Value = True Then
        TextBox1.Value = "ชุดขาดตารอยตะเข็บ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox4_Click()
    If CheckBox4.Value = True Then
        TextBox1.Value = "เดินทางไปทำงานต่างจังหวัด/ต่างประเทศ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox5_Click()
    If CheckBox5.Value = True Then
        TextBox1.Value = "อื่นๆ"
    Else
        TextBox1.Value = ""
    End If
End Sub
You do not have the required permissions to view the files attached to this post.
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

ทำให้ข้อมูลที่เลือกขึ้นเรียงกันตามลำดับไม่แทนที่กัน

#10

Post by Benmore »

พอดีอยากให้ข้างหน้าคำที่ค้นหามีหัวข้อตลอดค่ะ ต้องเพิ่มโค้ดตัวไหนลงไปค่ะชื่อ
แล้วพอเวลาเราคลิ๊คเลือกที่ Checkbox ข้อมูลที่ค้นหาก็หายไป อยากทราบว่าต้องแก้ไขตรงไหนบ้างค่ะชื่อ2.png

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        TextBox1.Value = "ชุดหดและเก่าตามสภาพ"
    Else[attachment=2]ชื่อ1.png[/attachment][attachment=1]ชื่อ2.png[/attachment]
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        TextBox1.Value = "ชุดเปื่อยขาดเนื่องจากการซัก"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox3_Click()
    If CheckBox3.Value = True Then
        TextBox1.Value = "ชุดขาดตารอยตะเข็บ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox4_Click()
    If CheckBox4.Value = True Then
        TextBox1.Value = "เดินทางไปทำงานต่างจังหวัด/ต่างประเทศ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox5_Click()
    If CheckBox5.Value = True Then
        TextBox1.Value = "อื่นๆ"
    Else
        TextBox1.Value = ""
    End If
End Sub
[/quote]
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#11

Post by snasui »

:D ไฟล์ Excel ที่แนบมาไม่มี UserForm ตรงกับภาพในโพสต์ก่อนหน้า ควรแนบไฟล์ที่มี Code ล่าสุดพร้อมกับ UserForm ตามภาพครับ

กรณีมีหลาย UserForm ให้แจ้งชื่อ UserForm มาด้วยเสมอจะได้เข้าถึงปัญหาโดยไวครับ
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#12

Post by Benmore »

snasui wrote::D ไฟล์ Excel ที่แนบมาไม่มี UserForm ตรงกับภาพในโพสต์ก่อนหน้า ควรแนบไฟล์ที่มี Code ล่าสุดพร้อมกับ UserForm ตามภาพครับ

กรณีมีหลาย UserForm ให้แจ้งชื่อ UserForm มาด้วยเสมอจะได้เข้าถึงปัญหาโดยไวครับ
ไฟล์แนบค่ะ
Uniform_EGAS1.xlsm
คือมีปันหาที่userform1 ตามรูปค่ะ ทำยังไงให้ข้อมูลที่เลือกใน checkbox ขึ้นตามลำดับ ตอจากข้อมูลที่ค้นหาจากปุ่ม search
ชื่อ2.png
แล้วเมื่อเลือก OK ให้ข้อมูลทั้งหมดไปแสดงใน Userform 2
You do not have the required permissions to view the files attached to this post.
User avatar
logic
Gold
Gold
Posts: 1506
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#13

Post by logic »

ผมลองเขียนมาเป็นตัวอย่าง ลองปรับใช้ดูครับ :)

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "ชุดหดและเก่าตามสภาพ"
'    Else
'        TextBox1.Value = ""
    End If
End Sub
ที่บอกว่าคลิก OK แล้วให้ข้อความไปแสดงใน UserForm2 ก่อนอื่นต้องสร้างตัวแปรให้เก็บค่าใน TextBox1 เสียก่อน เป็นตัวแปรแบบ public และควรประกาศตัวแปรไว้บรรทัดบนสุดที่ modult1 ไม่ใช่ใน UserForm

ยกตัวอย่างประกาศเป็น public strTb1 as string

ตอนคลิก OK

Code: Select all

Private Sub btok_Click()
    strTb1 = Me.TextBox1.Value
    Unload Me
    UserForm2.Show
End Sub
ส่วนที่ UserForm2 เพิ่มโค้ดตามด้านล่าง

Code: Select all

Private Sub UserForm_Initialize()
    Me.TextBox2.Value = strTb1
    Sheet6.Activate
End Sub
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#14

Post by Benmore »

1. ลองแก้ไขโค้ดตามที่บอกแล้ว แต่ติดปัญหาตรงที่ เมื่อติ๊กทุกอันมันก็จะขึ้นทุกอันแต่เมื่อติ๊กยกเลิกอันใดอันนึงข้อมูลมันก็จะหายไปหมดเลยค่ะ ต้องปรับส่วนไหนอีกค่ะ แล้วจะทำอย่างไงให้ข้อมูลที่แสดงตอนกดปุ่มค้นหาขึ้นเป็นแนวนอนค่ะ พร้อมกับมีหัวข้อเสมอค่ะ ที่ Userform1
Uniform_EGAS1.xlsm

Code: Select all

Private Sub CheckBox1_Click()
Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If CheckBox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "ชุดหดและเก่าตามสภาพ"
Else
     If CheckBox1.Value = False Then
      TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
      Else
    
      End If
    End If
End Sub
2.) ทำยังไงให้เลือข้อมูลใน combobox แล้วข้อมูลแสดงใน textbox ค่ะ

Code: Select all

Private Sub combobox1_Change()
 Dim nRow As String
  nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
 If Combobox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "combobox1.Value"
    Else
        If TextBox1.Value = False Then
        TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    End If
    End If
End Sub
You do not have the required permissions to view the files attached to this post.
User avatar
logic
Gold
Gold
Posts: 1506
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#15

Post by logic »

ลองปรับเป็นแบบนี้ครับ

Code: Select all

Private Sub CheckBox1_Click()
    Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If CheckBox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "ชุดหดและเก่าตามสภาพ"
    Else
        TextBox1.Value = Replace(TextBox1.Value, vbCrLf & "ชุดหดและเก่าตามสภาพ", "")
    End If
End Sub
ถ้าจะให้ต่อกันในแนวนอนไม่ขึ้นบรรทัดใหม่ให้ลบ vbCrLf ที่เกี่ยวข้องทั้งหมดออกไปครับ (bCrLf หมายถึงให้ขึ้นบรรทัดใหม่)
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#16

Post by Benmore »

logic wrote:ลองปรับเป็นแบบนี้ครับ

Code: Select all

Private Sub CheckBox1_Click()
    Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If CheckBox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "ชุดหดและเก่าตามสภาพ"
    Else
        TextBox1.Value = Replace(TextBox1.Value, vbCrLf & "ชุดหดและเก่าตามสภาพ", "")
    End If
End Sub
ถ้าจะให้ต่อกันในแนวนอนไม่ขึ้นบรรทัดใหม่ให้ลบ vbCrLf ที่เกี่ยวข้องทั้งหมดออกไปครับ (bCrLf หมายถึงให้ขึ้นบรรทัดใหม่)
ทำได้แล้วขอบคุณมากค่ะ แต่ตอนนี้ติดปัญหาตรง Comboboxค่ะ จะทำอย่างไรให้เลือกข้อมูลใน combobox แล้วแสดงค่าใน textbox ค่ะ
แล้วจะทำให้มีหัวข้อด้านหน้าของมูลที่แสดงใน Textbox ต้องใส่โค้ดอะไรเพิ่มค่ะ

Code: Select all

Dim nRow As String
  nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
 If Combobox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "combobox1.Value"
    Else
        If TextBox1.Value = False Then
        TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    End If
    End If
End Sub
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#17

Post by snasui »

:D แนบไฟล์ล่าสุดมาดูกัน จะได้ตอบต่อไปจากนั้นครับ
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#18

Post by Benmore »

]
snasui wrote::D แนบไฟล์ล่าสุดมาดูกัน จะได้ตอบต่อไปจากนั้นครับ
ไฟล์แนบค่ะ :D
Uniform_EGAS1.xlsm
- ติดปัญหาตรง Comboboxค่ะ จะทำอย่างไรให้เลือกข้อมูลใน combobox แล้วแสดงค่าใน textbox ค่ะ
แล้วจะทำให้มีหัวข้อด้านหน้าของมูลที่แสดงใน Textbox ต้องใส่โค้ดอะไรเพิ่มค่ะ

Code: Select all

Private Sub combobox1_Change()
 Dim nRow As String
  nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
 If Combobox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "combobox1.Value"
    Else
        If TextBox1.Value = False Then
        TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    End If
    End If
End Sub
- แล้วก็ติดปัญหาตรงที่ค้นหาข้อมูลเจอแค่คนเดียวแต่พอจะค้นหาคนที่สองก็ไม่เจอข้อมูล เพราะอะไรค่ะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#19

Post by snasui »

:D ตัวอย่าง Code เมื่อเลือก ComboBox แล้วให้แสดงรายการใน Textbox ครับ

Code: Select all

Dim nRow As Integer
nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
If Combobox1.Value <> "" Then
        TextBox1.Value = TextBox1.Value & vbCrLf & Combobox1.Value
Else
    If TextBox1.Value = False Then
        TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    End If
End If
สังเกตการประกาศตัวแปร ค่าบรรทัดเป็นตัวเลข จะไม่ประกาศเป็น String แต่ให้ประกาศเป็น Integer หรือ Long หรือ Single อย่างใดอย่างหนึ่งแล้วแต่ความเหมาะสม

ตัวเลขหัวข้อที่กล่าวถึงนำมาจากไหน อธิบายมาให้ละเอียดครับ
Benmore
Bronze
Bronze
Posts: 254
Joined: Tue Sep 05, 2017 9:51 am

Re: ค้นหาข้อมูลแล้วให้ข้อมูลโชว์ใน Textbox

#20

Post by Benmore »

ทำได้แล้วค่ะ แต่อยากทราบว่าต้องเพิ่มโค้ดตรงไหนลงไปถึงให้ข้อมูลมีหัวข้อแสดงด้านหน้าค่ะ
11111.png
You do not have the required permissions to view the files attached to this post.
Post Reply