Giúp mình tạo Macro tìm dữ liệu trong Sheet và trả về giá trị là cột chứa dữ liệu đó (1 người xem)

[NHG]

Mình cần tìm trong sheet giá trị của một ô và trả về số thứ tự cột, dòng của ô đấy các bạn giúp mình nhé

 

[nhapmon]

bạn thử đạon code này xem có đúng với ý bạn không?

 

[NHG]

Mình thử chạy rồi nhưng ko đc bạn ạ

 

[nhapmon]

chạy không đúng kết quả, hay macro chạy ko được?
ok, sorry bạn vào sub Find-First()
dò xuống tới dòng
' Application.Goto Rng, True 'neu ban muon di den cell do thi chon lenh nay
bỏ dấu ' ở đầu dòng đi
hồi nãy mình test mà quên gởi bỏ

 

[ChanhTQ@]

Thử với cái ni.

Option Explicit
Sub TimChuoi()
 Dim sRng As Range, StrC As String
 
 StrC = InputBox("Ban Càn Tìm Chuoi:", "GPE.COM Xin Chào", "ABAB")
 Set sRng = Cells.Find(StrC, , xlFormulas, xlWhole)
 If sRng Is Nothing Then
    [A1].Value = "Nothing:":    [A2].Value = StrC
 Else
    [A1].Value = sRng.Column:   [A2].Value = sRng.Row
 End If
End Sub

 

[hungpecc1]

Theo cách mình hiểu , mình viết đoạn code như sau :

chắc bạn cũng biết về VBA , nên mình ko gủi file cel, bạn copy dzo rồi chạy nhé !

Sub tim_gia_tri()
Dim gtri
Dim mycell As Range
     gtri = Application.InputBox(Prompt:="HungPecc1", Title:="GP.Excel", Type:=10)
     Range("A1:A3").ClearContents
     For Each mycell In ActiveSheet.UsedRange
        If mycell.Value = gtri Then
            Range("A1") = mycell.Column
            Range("A2") = mycell.Row
            Range("A3") = mycell.Address
        End If
      Next
End Sub

 

[NHG]

Theo cách mình hiểu , mình viết đoạn code như sau :

chắc bạn cũng biết về VBA , nên mình ko gủi file cel, bạn copy dzo rồi chạy nhé !

Sub tim_gia_tri()
Dim gtri
Dim mycell As Range
     gtri = Application.InputBox(Prompt:="HungPecc1", Title:="GP.Excel", Type:=10)
     Range("A1:A3").ClearContents
     For Each mycell In ActiveSheet.UsedRange
        If mycell.Value = gtri Then
            Range("A1") = mycell.Column
            Range("A2") = mycell.Row
            Range("A3") = mycell.Address
        End If
      Next
End Sub

Thế thêm code gì để nó trả về tên của shêet chứa giá trị đó bạn nhở

 

[Quang_Hải]

Thế thêm code gì để nó trả về tên của shêet chứa giá trị đó bạn nhở

Thêm 1 dòng nữa vào

Range("A4") = mycell.Parent.name