Page 1 of 1
วิธี find data โดยไม่ใช้ macro ค่ะ
Posted: Fri Oct 10, 2014 11:46 am
by jilux
อยากทราบวิธีหา ข้อมูลโดยไม่ต้อง กด macro ค่ะ
คือต้องการให้กรอกข้อมูล แล้วเมื่อกด enter ก็ให้ไป active ณ cell ที่ match ค่ะ
ต้องทำอย่างไรคะ
Re: วิธี find data โดยไม่ใช้ macro ค่ะ
Posted: Fri Oct 10, 2014 11:58 am
by 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
หรือรอท่านอื่นตอบครับ
Re: วิธี find data โดยไม่ใช้ macro ค่ะ
Posted: Fri Oct 10, 2014 12:00 pm
by 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
Re: วิธี find data โดยไม่ใช้ macro ค่ะ
Posted: Fri Oct 10, 2014 12:13 pm
by jilux
ขอบคุณมากนะคะ
ลองทำตามแล้ว ใช้ได้ทั้ง 2 แบบเลยค่ะ