excel vba nhận hàng, giá trị ô từ vùng chọn.address

Question

For i = 1 To 20 

    '' select the cell in question 
    Cells.Find(...).Select 

    '' get the cell address 

    CellAddr = Selection.Address(False, False, xlR1C1) 



Next 

Ở trên là mã của tôi để tìm kiếm bảng tính để tìm chuỗi cụ thể rồi chọn nó. Tôi muốn lấy địa chỉ của ô sử dụng Selection.Address, trong trường hợp này, trả về một cái gì đó dọc theo các dòng R[100]C. Có cách nào tôi có thể chia kết quả đó thành các giá trị hàng và cột để tôi có thể thao tác chúng trong mã không? Ví dụ: tôi muốn thêm 14 hàng vào giá trị hàng của ô được chọn. Tôi tin rằng CellAddr sẽ là một đối tượng Phạm vi để nó có thể hoạt động tôi chỉ mờ về việc triển khai.

Cảm ơn!

Answer 1

Dim f as Range 

Set f=ActiveSheet.Cells.Find(...) 

If Not f Is Nothing then 
    msgbox "Row=" & f.Row & vbcrlf & "Column=" & f.Column 
Else 
    msgbox "value not found!" 
End If 

Answer 2

Đây có phải là những gì bạn đang tìm kiếm không?

Sub getRowCol() 

    Range("A1").Select ' example 

    Dim col, row 
    col = Split(Selection.Address, "$")(1) 
    row = Split(Selection.Address, "$")(2) 

    MsgBox "Column is : " & col 
    MsgBox "Row is : " & row 

End Sub