ขอความรู้ เรื่อง Code VBA Search คำที่เราต้องการหน่อยครับ

[Supfile2529]

คือผมอยากจะทราบวิธี Search เป็นคำ ที่อยู่ใน Cell
วิธีและขั้นตอนการทำงาน
1. key Data ลง TextBox2 เช่น คำว่า "เก้าอี้" หรือจะเป็นคำอื่น ก็ได้ ที่เราต้องการหา
2. แล้วกดปุ่ม Search เพื่อให้ code ทำตามคำสั่งที่กำหนดไว้ เบื้อต้น

ผมต้องการ code Search น่ะครับ
เบื้อต้น ผมได้ลอง Record Macro แล้วน่ะครับ แต่ยังไม่ตรงตามที่ต้องการ (อยู่ที่หน้า Module1 น่ะครับ)

Code: Select all

Sub Macro1(StrCHData As String)
     Worksheets("Other").Select
    Cells.Find(What:=StrCHData, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    'Cells.FindNext(After:=ActiveCell).Activate
    'Cells.FindNext(After:=ActiveCell).Activate
End Sub

StrCHData เป็นตัวแปลที่ส่งมา ค่าเท่ากับ "เก้าอี้"

อยากให้ทุก ๆ ท่านช่วย comment และตอบคำถามให้ด้วยน่ะครับ
เพื่อเป็นแนวทางในการ พัฒณาองค์ความรู้ และเพื่ออนาคตที่ดี
ถ้าผิดพลาดประการใด ก็ต้องขออภัยไว้ ณ ที่นี้ด้วย
ขอบคุณครับ

[snasui]

ลองดูตัวอย่างการ Search จากกระทู้นี้และลองปรับมาดูครับ http://www.snasui.com/viewtopic.php?f=9 ... &view=next และที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3 ... &view=next

[Supfile2529]

ลองดูตัวอย่างการ Search จากกระทู้นี้และลองปรับมาดูครับ http://www.snasui.com/viewtopic.php?f=9 ... &view=next และที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3 ... &view=next

ขอบคุณครับอาจารย์
ได้จากกระทู้นี้ครับ http://www.snasui.com/viewtopic.php?f=3 ... &view=next
ตอนนี้ ขั้นตอนการ Search ได้แล้วครับ
ขอถามต่อหน่อยครับ แล้วจะรู้ได้ไงว่าข้อมูลนั้นอยู่ที่ Row , Col ไหนน่ะครับ
ช่วยแนะนำหน่อยครับ ลองดูแล้วไม่ได้งงหลายครับ

ขอบคุณมาก ๆ ครับ อาจารย์

[snasui]

จาก Link ที่แนบมาเรากำหนดค่าตัวแปร c ใช้แทนค่าทีเราต้องการค้นหา การหาว่าค่าตัวแปรอยู่แถวใดคอลัมน์ใดสามารถใช้ .Row, .Column เข้ามาตรวจสอบได้ครับ

Code: Select all

c.Row

คือบรรทัดของตัวแปร

Code: Select all

c.Column

คือคอลัมน์ของตัวแปร

[Supfile2529]

จาก Link ที่แนบมาเรากำหนดค่าตัวแปร c ใช้แทนค่าทีเราต้องการค้นหา การหาว่าค่าตัวแปรอยู่แถวใดคอลัมน์ใดสามารถใช้ .Row, .Column เข้ามาตรวจสอบได้ครับ

Code: Select all

c.Row

คือบรรทัดของตัวแปร

Code: Select all

c.Column

คือคอลัมน์ของตัวแปร

ขอบคุณมาก ๆ ครับ อาจารย์
อย่างนี้ต้องลองใช้แล้วครับ ขอบคุณมาก ๆ ครับ

[Supfile2529]

เดียวเข้ามารายงานผล อีกทีครับ ขอบคุณครับ.

[Supfile2529]

การใช้ ComboBox ผมใช้อย่างนี้ถูกต้องให้ครับ ช่วยแนะนำด้วยครับ

Code: Select all

Private Sub ComboBox1_Change()
    With Me.ComboBox1
        .Clear
        .AddItem "Other"
        .AddItem "Case+Note book"
        .AddItem "Monitor"
        .AddItem "Software"
    End With
End Sub

คือต้องการที่จะ Select Sheet น่ะครับ
ขอบคุณครับ.

[snasui]

เรื่องถูกหรือไม่ถูกสามารถทดสอบได้เองครับ ให้ถามเฉพาะที่ติดปัญหาครับ

[Supfile2529]

เรื่องถูกหรือไม่ถูกสามารถทดสอบได้เองครับ ให้ถามเฉพาะที่ติดปัญหาครับ

ขอโทษครับ ทดสอบแล้วครับ
ไม่สามารถ ทำได้ เนื่องจากว่า กดแล้วไม่ยอมขึ้น
ถ้า Object Dblclick จะขึ้น Data มาให้เลือกนะครับ

Code: Select all

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.ComboBox1
       .Clear
        .AddItem "Other"
        .AddItem "Case+Note book"
        .AddItem "Monitor"
        .AddItem "Software"
    End With
End Sub

แต่ถ้าเป็น Click ธรรมดา ไม่ขึ้นน่ะครับ

Code: Select all

Private Sub ComboBox1_Click()
    With Me.ComboBox1
       .Clear
        .AddItem "Other"
        .AddItem "Case+Note book"
        .AddItem "Monitor"
        .AddItem "Software"
    End With
End Sub

แนะนำหน่อยน่ะครับ จะได้เป็นแนวทาง ต่อไป
ขอบคุณครับ.

[snasui]

แนบไฟล์ พร้อม Code มาด้วยเพื่อน ๆ จะได้ช่วยทดสอบได้ครับ

[Supfile2529]

แนบไฟล์ พร้อม Code มาด้วยเพื่อน ๆ จะได้ช่วยทดสอบได้ครับ

ติดที่การใช้งาน ComboBox ครับ ช่วยแนะนำด้วยน่ะครับ

ขอบคุณมาก ๆ ครับ

[snasui]

ลองใช้ DropButtonClick แทนดูว่าใช้งานได้หรือไม่ การใช้งานให้คลิกที่ Drop-down Button ครับ

Code: Select all

Private Sub ComboBox1_DropButtonClick()
    With Me.ComboBox1
       .Clear
        .AddItem "Other"
        .AddItem "Case+Note book"
        .AddItem "Monitor"
        .AddItem "Software"
    End With
End Sub

สำหรับ Event Click ไม่พบว่าเกิดจากสาเหตุใดถึงไม่ทำงานครับ

[Supfile2529]

ลองใช้ DropButtonClick แทนดูว่าใช้งานได้หรือไม่ การใช้งานให้คลิกที่ Drop-down Button ครับ

Code: Select all

Private Sub ComboBox1_DropButtonClick()
    With Me.ComboBox1
       .Clear
        .AddItem "Other"
        .AddItem "Case+Note book"
        .AddItem "Monitor"
        .AddItem "Software"
    End With
End Sub

สำหรับ Event Click ไม่พบว่าเกิดจากสาเหตุใดถึงไม่ทำงานครับ

แต่ว่าใช้งานได้แต่ไม่ยอมเก็บ ข้อมูล Show น่ะครับ มีวิธีแก้ไขไหมครับ
ขอบคุณมาก ๆ ครับ

[Supfile2529]

ลองใช้ DropButtonClick แทนดูว่าใช้งานได้หรือไม่ การใช้งานให้คลิกที่ Drop-down Button ครับ

Code: Select all

Private Sub ComboBox1_DropButtonClick()
    With Me.ComboBox1
       .Clear
        .AddItem "Other"
        .AddItem "Case+Note book"
        .AddItem "Monitor"
        .AddItem "Software"
    End With
End Sub

สำหรับ Event Click ไม่พบว่าเกิดจากสาเหตุใดถึงไม่ทำงานครับ

แต่ว่าใช้งานได้แต่ไม่ยอมเก็บ ข้อมูล Show น่ะครับ มีวิธีแก้ไขไหมครับ
ไม่เป็นไรครับ เปลี่ยนไปใช้ CheckBox แล้วครับ
ขอบคุณมาก ๆ ครับ