Hỏi về hàm find (1 người xem)

[khongtu19bk]

Mình có một file excel, trong đó có chỉ có một cell duy nhất có chứa nội dung chứa cụm từ :
20122015abc

Mình muốn dùng hàm find để tìm kiếm cell chứa cụm từ này và cho kết quả là cell này nằm ở hàng thứ bao nhiêu.
Ai biết xin mách dùm.

 

[ndu96081631]

Mình có một file excel, trong đó có chỉ có một cell duy nhất có chứa nội dung chứa cụm từ :
20122015abc

Mình muốn dùng hàm find để tìm kiếm cell chứa cụm từ này và cho kết quả là cell này nằm ở hàng thứ bao nhiêu.
Ai biết xin mách dùm.

Thử record macro xem nó viết cái gì nhé!

 

[khongtu19bk]

re

Thử record macro xem nó viết cái gì nhé!

em thử rồi, ghi lại thao tác ctr+F nhưng ko ra code gì cả

 

[Hong.Van]

em thử rồi, ghi lại thao tác ctr+F nhưng ko ra code gì cả

Nó đây nè!

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 28/07/2012 by HV
'
' Keyboard Shortcut: Ctrl+Shift+S
'
    Cells.Find(What:="20122015abc", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub

Tuy nhiên em muốn hiện hộp thông báo để mình nhập số liệu cần tìm & hộp thông báo kết quả ở những Cell tìm được. Ý em hỏi ở đây để học code!
Em cảm ơn.

 

[khongtu19bk]

lấy kết quả là cell này nằm ở hàng thứ bao nhiêu thì cần phải làm gì ạ

 

[Quang_Hải]

lấy kết quả là cell này nằm ở hàng thứ bao nhiêu thì cần phải làm gì ạ

Thử cái này xem sao

Sub test()
Dim found
Set found = UsedRange.Find("20122015abc")
If Not found Is Nothing Then
MsgBox "Du lieu can tim nam tai cell " & found.Address
End If
End Sub

 

[ndu96081631]

Nó đây nè!

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 28/07/2012 by HV
'
' Keyboard Shortcut: Ctrl+Shift+S
'
    Cells.Find(What:="20122015abc", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub

Tuy nhiên em muốn hiện hộp thông báo để mình nhập số liệu cần tìm & hộp thông báo kết quả ở những Cell tìm được. Ý em hỏi ở đây để học code!
Em cảm ơn.

Hộp nhập liệu là InputBox (Application.InputBox)
Ráp vào code của bạn sẽ vầy:

Sub Test()
  Dim sFind, fRng As Range
  sFind = Application.InputBox("Nhap tu can tim")
  If Len(Trim(sFind)) Then
    Set fRng = Cells.Find(sFind, , xlValues, xlWhole)
    If Not fRng Is Nothing Then
      MsgBox fRng.Address
    Else
      MsgBox "Khong tim thay"
    End If
  End If
End Sub

Code viết ở mức đơn giản nhất. Đương nhiên nếu muốn ngon lành thì còn phải tính đến nhiều vấn đề khác (chẳng hạn người ta bấm nút Cancell hộp InputBox)
Ngoài ra, code này chỉ tìm có 1 cell. Nếu muốn tìm tất cả, ta phải dùng vòng lập kết hợp với FindNext mới xong