Tìm dữ liệu Ctr + F với Macro (1 người xem)

[ZzKimNganzZ]

Dear anh chị!

Em muốn hỏi anh chị cách thu macro với Ctr + F như sau:

Sub Macro1()

Application.ScreenUpdating = False
    Columns("A:A").Select
    Selection.Find(What:="747", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate


End Sub

Bây giờ em muốn thay số 747 thành giá trị tại ô A2 thì viết code như thế nào ạ?

Em cám ơn

 

[vu_tuan_manh_linh]

Thế này thôi bạn: What:=Range("A2").Value
Hoặc: What:=Cells(2,1).Value

 

[ZzKimNganzZ]

Thế này thôi bạn: What:=Range("A2").Value
Hoặc: What:=Cells(2,1).Value

Hi anh!

Em cũng đã làm thử rồi nhưng sau khi macro chạy thì con trỏ không select tại ô cần tìm mà chọn cột A thôi anh.

 

[vu_tuan_manh_linh]

Hi anh!

Em cũng đã làm thử rồi nhưng sau khi macro chạy thì con trỏ không select tại ô cần tìm mà chọn cột A thôi anh.

Code của bạn thế này: Columns("A:A").Select thì đương nhiên sẽ chọn cả cột A rồi.

 

[ZzKimNganzZ]

Code của bạn thế này: Columns("A:A").Select thì đương nhiên sẽ chọn cả cột A rồi.

vậy làm sao mình tìm dữ liệu trong cột A sau đó chạy đến đúng dữ liệu cần tìm anh?
Dòng code cuối mình viết như thế nào ạ?
???.select

Cám ơn anh!

 

[vu_tuan_manh_linh]

Ghi macro thì bạn ghi cho hết thao tác đi! bạn ghi nửa chừng rồi lại mất công hỏi!
Cells.FindNext(After:=ActiveCell).Activate

 

[ndu96081631]

vậy làm sao mình tìm dữ liệu trong cột A sau đó chạy đến đúng dữ liệu cần tìm anh?
Dòng code cuối mình viết như thế nào ạ?
???.select

Cám ơn anh!

Số cần tìm bạn phải gõ vào cột B chứ sao lại là A2 nhỉ?

 

[ZzKimNganzZ]

Số cần tìm bạn phải gõ vào cột B chứ sao lại là A2 nhỉ?

Hi anh!

Em gửi anh file đính kèm nhờ anh xem giúp em ạ.
Em muốn tìm mã VIP Card, thay vì nhấn Ctr+F để tìm thì gõ số vào ô A2 rồi nhấn nút tìm. Con trỏ sẽ chạy xuống ô cần tìm. (Nếu tô màu dòng cần tìm lên thì càng tốt ạ)

Thanks anh!

 

[Let'GâuGâu]

Hi anh!

Em gửi anh file đính kèm nhờ anh xem giúp em ạ.
Em muốn tìm mã VIP Card, thay vì nhấn Ctr+F để tìm thì gõ số vào ô A2 rồi nhấn nút tìm. Con trỏ sẽ chạy xuống ô cần tìm. (Nếu tô màu dòng cần tìm lên thì càng tốt ạ)

Thanks anh!

co như vậy có xài được hong

Sub tim()

Dim tim As Range
Set tim = [A5:A60000].Find("VIP 000 " & [a2])
If Not tim Is Nothing Then
MsgBox "no ne " & tim.Address
tim.Select
End If

End Sub

 

[vu_tuan_manh_linh]

co như vậy có xài được hong

Sub tim()

Dim tim As Range
Set tim = [A5:A60000].Find("VIP 000 " & [a2])
If Not tim Is Nothing Then
MsgBox "no ne " & tim.Address
tim.Select
End If

End Sub

Sẽ xảy ra trường hợp tìm giá trị 12 sẽ trả về kết quả của giá trị 120. Tôi có giải pháp tương tự:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Set tim = Range("A6:A65536").Find("VIP 000 " & Format(Target.Value, "000"))
    If Not tim Is Nothing Then tim.Select
End If
End Sub

 

[Let'GâuGâu]

Sẽ xảy ra trường hợp tìm giá trị 12 sẽ trả về kết quả của giá trị 120. Tôi có giải pháp tương tự:
[/php]

cái đó chắc là do mình tick option trong Find là Matchcase
nếu sợ nó tìm ko đúng thì thêm vào find
Set tim = [A5:A60000].Find("VIP 000 " & [a2],,,,,0)-->tức là set match case = false

 

[ndu96081631]

cái đó chắc là do mình tick option trong Find là Matchcase
nếu sợ nó tìm ko đúng thì thêm vào find
Set tim = [A5:A60000].Find("VIP 000 " & [a2],,,,,0)-->tức là set match case = false

Hình như hổng phải vấn đề này mà là "Match entire cell contents" (tìm chính xác) thì phải (tức đang nói đến hằng số xlWhole ấy)