ขอ code VBE ค้นหาsheetที่ต้องการครับ

[sdmania]

มาขอcode VBE ที่ใช้ค้นหา Sheet ที่เราตั้งชื่อไปน่ะครับ

ขอแบบสำหรับสอนมือใหม่นะครับอาจารย์

[sdmania]

ต้องการให้ผลลัพธ์เป็นประมาณว่า ผมจะเก็บข้อมูลลูกค้า โดยตั้งชื่อSheet เป็นรหัสลูกค้า น่ะครับ แล้วเราก็เปิดโปรแกรม VBE
เพื่อที่ว่า เมื่อเรา ค้นหาข้อมูลลูกค้าโดยรหัส ก็จะเปิดข้อมูลในSheetนั้นเลยครับ

[snasui]

การค้นหา Sheet ด้วย VBA ทำไม่ยากครับ แต่การที่จะให้ชื่อลูกค้าเป็นชื่อชีทนั้นน่าจะปรับใหม่ครับ

เราควรทำข้อมูลให้เป็นฐานข้อมูลการค้นหาจะได้ง่าย ๆ หากต้องการ โดยมีชีทสำหรับแสดงผลการค้นหาไว้ต่างหากก็ได้

สำหรับตัวอย่าง Code เพื่อค้นหา Sheet ตามด้านล่างจะเป็นการหาชีทที่ชื่อ Menu หากพบก็จะแสดงขึ้นมาให้ครับ

Code: Select all

Sub FindSheet()
Dim i As Integer
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = "Menu" Then
                Worksheets(i).Select
        End If
    Next
End Sub