: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 สำหรับการค้นหาข้อมูล

ฟอรัมสำหรับแจกจ่ายแบ่งปันไฟล์ รวมทั้งแหล่งความรู้ต่าง ๆ เกี่ยวกับ Excel
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:

ตัวอย่าง Code สำหรับการค้นหาข้อมูล

#1

Post by snasui »

:D Code ตัวอย่างสำหรับการค้นหาค่าใด ๆ ที่ต้องการ ซึ่งจะแสดงผลลัพธ์เป็น MsgBox เพื่อแจ้งว่าค่าที่ต้องการค้นหานั้นอยู่ในเซลล์ใด

Code: Select all

Sub Searching()
    Dim c As Range
    Dim msg As String
    msg = ""
    With ActiveSheet.UsedRange
        Set c = .Find(InputBox("Please enter your word that you want to find."), LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                msg = msg & c.Address & vbCrLf
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
            MsgBox msg
        End If
    End With
End Sub
User avatar
bank9597
Guru
Guru
Posts: 3868
Joined: Wed Aug 17, 2011 11:49 am

Re: ตัวอย่าง Code สำหรับการค้นหาข้อมูล

#2

Post by bank9597 »

:D ขอบคุณมากครับ
Forum Rules
  1. อย่าใช้ภาษาแชทในการตอบ-ถาม
  2. ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
  3. ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
  4. ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
  5. หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
  6. แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
Jiradet
Member
Member
Posts: 7
Joined: Fri Feb 17, 2012 5:29 pm

Re: ตัวอย่าง Code สำหรับการค้นหาข้อมูล

#3

Post by Jiradet »

ถ้าจะนำไปใช้งานจริงต้องดัดแปลง โค๊ดตรงส่วนไหนบ้างครับอาจารย์
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: ตัวอย่าง Code สำหรับการค้นหาข้อมูล

#4

Post by snasui »

:D การใช้จริงแล้วแต่จะปรับปรุง Code ตามที่เหมาะกับงาน กรณีปรับปรุงแล้วมีปัญหาสามารถสอบถามได้ที่หมวด Excel ครับ
Post Reply