วิธี find data โดยไม่ใช้ macro ค่ะ

[jilux]

อยากทราบวิธีหา ข้อมูลโดยไม่ต้อง กด macro ค่ะ
คือต้องการให้กรอกข้อมูล แล้วเมื่อกด enter ก็ให้ไป active ณ cell ที่ match ค่ะ
ต้องทำอย่างไรคะ

[puriwutpokin]

เท่าที่ทราบสูตรไม่สามารถทำได้นะครับ เปลี่ยนคำสั้ง VB ใหม่ โดยนำคำสั้งไปไว้ที่ ชีทนั้นๆ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Set CodeRange = Range("B:B")
Set FillCodeRange = Range("C4")
With Application.WorksheetFunction
i = .Match(FillCodeRange, CodeRange, 0)
End With
Range("B" & i).Select
End Sub

หรือรอท่านอื่นตอบครับ

[snasui]

อีกตัวอย่าง นำ Code ด้านล่างไปวางใน Sheet1 ใน VBE ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C4" Then
        Call Module1.Find
    End If
End Sub

[jilux]

ขอบคุณมากนะคะ
ลองทำตามแล้ว ใช้ได้ทั้ง 2 แบบเลยค่ะ