: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 VBA Search คำที่เราต้องการหน่อยครับ

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 a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

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

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

#14

by Supfile2529 » Thu Dec 06, 2012 8:32 am

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 แล้วครับ
ขอบคุณมาก ๆ ครับ

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

#13

by Supfile2529 » Thu Dec 06, 2012 7:52 am

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 คำที่เราต้องการหน่อยครั

#12

by snasui » Tue Dec 04, 2012 4:30 pm

: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 คำที่เราต้องการหน่อยครั

#11

by Supfile2529 » Tue Dec 04, 2012 4:17 pm

snasui wrote::D แนบไฟล์ พร้อม Code มาด้วยเพื่อน ๆ จะได้ช่วยทดสอบได้ครับ
ติดที่การใช้งาน ComboBox ครับ ช่วยแนะนำด้วยน่ะครับ

ขอบคุณมาก ๆ ครับ
Attachments
Inspection Asset All Annual.xlsm
(198.58 KiB) Downloaded 74 times

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

#10

by snasui » Tue Dec 04, 2012 4:09 pm

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

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

#9

by Supfile2529 » Tue Dec 04, 2012 4:07 pm

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 คำที่เราต้องการหน่อยครั

#8

by snasui » Tue Dec 04, 2012 3:58 pm

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

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

#7

by Supfile2529 » Tue Dec 04, 2012 3:50 pm

การใช้ 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 คำที่เราต้องการหน่อยครั

#6

by Supfile2529 » Tue Dec 04, 2012 3:33 pm

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

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

#5

by Supfile2529 » Tue Dec 04, 2012 3:29 pm

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

Code: Select all

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

Code: Select all

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

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

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

#4

by snasui » Tue Dec 04, 2012 3:19 pm

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

Code: Select all

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

Code: Select all

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

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

#3

by Supfile2529 » Tue Dec 04, 2012 3:11 pm

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 คำที่เราต้องการหน่อยครั

#2

by snasui » Tue Dec 04, 2012 1:23 pm

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

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

#1

by Supfile2529 » Tue Dec 04, 2012 11:20 am

คือผมอยากจะทราบวิธี 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 และตอบคำถามให้ด้วยน่ะครับ
เพื่อเป็นแนวทางในการ พัฒณาองค์ความรู้ และเพื่ออนาคตที่ดี
ถ้าผิดพลาดประการใด ก็ต้องขออภัยไว้ ณ ที่นี้ด้วย
ขอบคุณครับ
Attachments
Inspection Asset All Annual Test.xlsm
(46.65 KiB) Downloaded 46 times

Top