Excel Forum

ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/

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

https://snasui.com/viewtopic.php?t=3848

Page 1 of 1

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

Posted: Tue Dec 04, 2012 11:20 am
by 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 และตอบคำถามให้ด้วยน่ะครับ
เพื่อเป็นแนวทางในการ พัฒณาองค์ความรู้ และเพื่ออนาคตที่ดี
ถ้าผิดพลาดประการใด ก็ต้องขออภัยไว้ ณ ที่นี้ด้วย
ขอบคุณครับ

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

Posted: Tue Dec 04, 2012 1:23 pm
by snasui
:D ลองดูตัวอย่างการ Search จากกระทู้นี้และลองปรับมาดูครับ :arrow: http://www.snasui.com/viewtopic.php?f=9 ... &view=next และที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3 ... &view=next

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

Posted: Tue Dec 04, 2012 3:11 pm
by Supfile2529
snasui wrote::D ลองดูตัวอย่างการ Search จากกระทู้นี้และลองปรับมาดูครับ :arrow: 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 ไหนน่ะครับ
ช่วยแนะนำหน่อยครับ ลองดูแล้วไม่ได้งงหลายครับ

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

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

Posted: Tue Dec 04, 2012 3:19 pm
by snasui
:D จาก Link ที่แนบมาเรากำหนดค่าตัวแปร c ใช้แทนค่าทีเราต้องการค้นหา การหาว่าค่าตัวแปรอยู่แถวใดคอลัมน์ใดสามารถใช้ .Row, .Column เข้ามาตรวจสอบได้ครับ

Code: Select all

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

Code: Select all

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

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

Posted: Tue Dec 04, 2012 3:29 pm
by Supfile2529
snasui wrote::D จาก Link ที่แนบมาเรากำหนดค่าตัวแปร c ใช้แทนค่าทีเราต้องการค้นหา การหาว่าค่าตัวแปรอยู่แถวใดคอลัมน์ใดสามารถใช้ .Row, .Column เข้ามาตรวจสอบได้ครับ

Code: Select all

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

Code: Select all

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

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

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

Posted: Tue Dec 04, 2012 3:33 pm
by Supfile2529
:thup: เดียวเข้ามารายงานผล อีกทีครับ ขอบคุณครับ. :thup:

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

Posted: Tue Dec 04, 2012 3:50 pm
by 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 น่ะครับ
ขอบคุณครับ.

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

Posted: Tue Dec 04, 2012 3:58 pm
by snasui
:D เรื่องถูกหรือไม่ถูกสามารถทดสอบได้เองครับ ให้ถามเฉพาะที่ติดปัญหาครับ :mrgreen:

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

Posted: Tue Dec 04, 2012 4:07 pm
by Supfile2529
snasui wrote::D เรื่องถูกหรือไม่ถูกสามารถทดสอบได้เองครับ ให้ถามเฉพาะที่ติดปัญหาครับ :mrgreen:
ขอโทษครับ ทดสอบแล้วครับ
ไม่สามารถ ทำได้ เนื่องจากว่า กดแล้วไม่ยอมขึ้น
ถ้า 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
แนะนำหน่อยน่ะครับ จะได้เป็นแนวทาง ต่อไป
ขอบคุณครับ.

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

Posted: Tue Dec 04, 2012 4:09 pm
by snasui
:D แนบไฟล์ พร้อม Code มาด้วยเพื่อน ๆ จะได้ช่วยทดสอบได้ครับ

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

Posted: Tue Dec 04, 2012 4:17 pm
by Supfile2529
snasui wrote::D แนบไฟล์ พร้อม Code มาด้วยเพื่อน ๆ จะได้ช่วยทดสอบได้ครับ
ติดที่การใช้งาน ComboBox ครับ ช่วยแนะนำด้วยน่ะครับ

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

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

Posted: Tue Dec 04, 2012 4:30 pm
by snasui
:D ลองใช้ 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 ไม่พบว่าเกิดจากสาเหตุใดถึงไม่ทำงานครับ

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

Posted: Thu Dec 06, 2012 7:52 am
by Supfile2529
snasui wrote::D ลองใช้ 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 น่ะครับ มีวิธีแก้ไขไหมครับ
ขอบคุณมาก ๆ ครับ

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

Posted: Thu Dec 06, 2012 8:32 am
by Supfile2529
Supfile2529 wrote:
snasui wrote::D ลองใช้ 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 แล้วครับ
ขอบคุณมาก ๆ ครับ
All times are UTC+07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited