Hàm trả về giá trị cột/dòng của ô tìm thấy ...

[Davidsy]

Tôi muốn tạo một hàm, tìm kiếm một giá trị trong một sheet không phải activesheet, và trả về số cột hoặc số dòng của ô tìm thấy.

VD : trong Sheet1 có ô Cells(3,5) chứa giá trị là DavidSy
Y/c hàm có 2 đối số : sodong(Gia-tri-can-tim, tim-o-sheet-nao)
Khi gọi hàm sodong("davidsy","sheet1") mà cho giá trị là 3 thì ok!

Bác nào bít cho em xin cái ...
Tks!

 

[SA_DQ]

/)/(ình xin gỏi cái Sub, bạn tạm tham khảo:

[b]Sub DiaChiTimThay()[/b]
 On Error GoTo Loi_DCTTh
  Dim AllRng As Range, Rng As Range
  Dim lValue As Long, iHang As Long:                Dim iCot As Integer
  Dim TimThay As Boolean
  Dim xValue, AcSht As String, Sht As String
  
1  xValue = InputBox("HAY NHAP GIA TRI CAN TIM")
  If IsNumeric(xValue) Then lValue = xlNumbers Else lValue = xlTextValues
  Sht = InputBox("HAY NHAP TEN TRANG TINH:")
  Sheets(Sht).Select
  
2  Set AllRng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, lValue)
   For Each Rng In AllRng
        With Rng
            If .Value = xValue Then
                TimThay = Not TimThay:                                                  Exit For
            End If
        End With
   Next Rng
   
    If TimThay Then AcSht = Rng.Address Else AcSht = "/(hông tìm thấy!"
    MsgBox AcSht
Err_DCTTh: Exit Sub
Loi_DCTTh:
    Select Case Err
    Case 13
    Case Else
        MsgBox Str(Err) & Str(Erl):                 Resume Err_DCTTh
    End Select
[b]End Sub [/b]