VBA - Tìm tọa độ cột theo điều kiện tìm kiếm

[Phương Phương mito]

Em có câu hỏi VBA mong anh chị và mọi người giúp đỡ ạ.
Tại dòng 6, em muốn tìm ô nào chứa chữ "Hoa sung". Sau đó xác định ô đó là cột thứ mấy. Ví dụ theo file thì kết quả là 8. Em cảm ơn ạ/

 

[befaint]

Tại dòng 6, em muốn tìm ô nào chứa chữ "Hoa sung". Sau đó xác định ô đó là cột thứ mấy. Ví dụ theo file thì kết quả là 8

Mình nêu bài toán thật đi.

 

[snow25]

Em có câu hỏi VBA mong anh chị và mọi người giúp đỡ ạ.
Tại dòng 6, em muốn tìm ô nào chứa chữ "Hoa sung". Sau đó xác định ô đó là cột thứ mấy. Ví dụ theo file thì kết quả là 8. Em cảm ơn ạ/

Cái này dùng hàm Find bạn tìm hiểu nhé.

 

[befaint]

. . .

 

[Hai Lúa Miền Tây]

. . .

View attachment 254579

Anh ghi lại cái Macro và thêm 1 dòng code nữa thì nó như sau:

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Find(What:="hoa sung", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        MsgBox "Cells(" & ActiveCell.Row & "," & ActiveCell.Column & ")"
        
End Sub

 

[befaint]

Anh ghi lại cái Macro và thêm 1 dòng code nữa thì nó như sau:

Viết vui vui vậy thôi anh. Đợi tẹo nữa bạn ấy nêu bài toán thật thôi.

 

[Hai Lúa Miền Tây]

Viết vui vui vậy thôi anh. Đợi tẹo nữa bạn ấy nêu bài toán thật thôi.

Thì anh cũng viết vui thôi mà em, dùng find còn phải xử lý lại nhiều. Ví dụ vùng tìm, tìm tiếp tục khi thỏa giá trị hay không...

 

[Phương Phương mito]

Anh ghi lại cái Macro và thêm 1 dòng code nữa thì nó như sau:

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Find(What:="hoa sung", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        MsgBox "Cells(" & ActiveCell.Row & "," & ActiveCell.Column & ")"
       
End Sub

dạ, em cảm ơn các Anh ạ.

 

[be_09]

Em có câu hỏi VBA mong anh chị và mọi người giúp đỡ ạ.
Tại dòng 6, em muốn tìm ô nào chứa chữ "Hoa sung". Sau đó xác định ô đó là cột thứ mấy. Ví dụ theo file thì kết quả là 8. Em cảm ơn ạ/

1/ Chọn A1 rồi nhấn tổ hợp ctrl + shift + 8 (số 8 bên phần chữ).
2/ Tiếp theo ctrl + F, hộp thoại xuất hiện chọn thẻ Find, trong khung Find what gõ chữ "Hoa sung" nhấn nút Find All, nó sẽ chọn dòng đầu tiên.
3/ Để tìm và chọn tất cả những chữ "Hoa sung" bạn nhấn phím shift rồi click chọn dòng cuối cùng sau đó đóng hộp thoại thì nó vẫn chọn trên tất cả các Cells có chữ "Hoa sung" (xem hình).

 

[Phương Phương mito]

Anh ghi lại cái Macro và thêm 1 dòng code nữa thì nó như sau:

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Find(What:="hoa sung", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        MsgBox "Cells(" & ActiveCell.Row & "," & ActiveCell.Column & ")"
       
End Sub

Dạ, cho em hỏi làm sao để lấy ra Sheet2.Range("A1") giá trị của cột ạ. Ví dụ, tại A1 giá trị là 8

 

[Hai Lúa Miền Tây]

Dạ, cho em hỏi làm sao để lấy ra Sheet2.Range("A1") giá trị của cột ạ. Ví dụ, tại A1 giá trị là 8

Ý bạn là sao, bạn cho ví dụ cụ thể nhé.

msgbox "Sheet2.Cells(1,1) " & Sheet2.Cells(1,1) & " - Sheet2.range('A1')" & sheet2.range("A1")

 

[Phương Phương mito]

Ý bạn là sao, bạn cho ví dụ cụ thể nhé.

msgbox "Sheet2.Cells(1,1) " & Sheet2.Cells(1,1) & " - Sheet2.range('A1')" & sheet2.range("A1")

Dạ, ý em là vầy ạ:

Đoạn này của anh MsgBox "Cells(" & ActiveCell.Row & "," & ActiveCell.Column & ")" nó sẽ có kết quả là (6,8)

Bây giờ e không muốn tạo cải Msgbox này mà chỉ lấy cái chữ "Hoa sung" tìm được nó ở cột thứ mấy ạ và cho kết quả ra Cell A1 trên sheet2 ạ

Kiểu như Sheet2.Range("A1") = Cells(" ActiveCell.Column")
Kết quả ra thì tại ô A1 của sheet2 là 8

 

[Hai Lúa Miền Tây]

Dạ, ý em là vầy ạ:

Đoạn này của anh MsgBox "Cells(" & ActiveCell.Row & "," & ActiveCell.Column & ")" nó sẽ có kết quả là (6,8)

Bây giờ e không muốn tạo cải Msgbox này mà chỉ lấy cái chữ "Hoa sung" tìm được nó ở cột thứ mấy ạ và cho kết quả ra Cell A1 trên sheet2 ạ

Kiểu như Sheet2.Range("A1") = Cells(" ActiveCell.Column")
Kết quả ra thì tại ô A1 của sheet2 là 8

Bạn thử như sau:

Sheet2.Range("A1") = ActiveCell.Column

 

[Phương Phương mito]

Bạn thử như sau:

Sheet2.Range("A1") = ActiveCell.Column

Được rồi ạ. Em cảm ơn anh ạ.