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

[snasui]

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

[bank9597]

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

[Jiradet]

ถ้าจะนำไปใช้งานจริงต้องดัดแปลง โค๊ดตรงส่วนไหนบ้างครับอาจารย์

[snasui]

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