excel vba selection.address에서 행, 셀 값 가져오기

excel vba selection.address에서 행, 셀 값 가져오기

For i = 1 To 20

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

  '' get the cell address

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



Next

위의 코드는 스프레드시트를 검색하여 특정 문자열을 찾은 후 선택하기 위한 나의 코드입니다.저는 다음을 사용하여 셀의 주소를 알고 싶습니다.Selection.Address이 경우에, 그것은, 무엇인가를 반환합니다.R[100]C그 결과를 행 값과 열 값으로 분할하여 코드로 조작할 수 있는 방법이 있습니까?예를 들어 선택한 셀 행 값에 14개의 행을 추가하려고 합니다.믿어요CellAddrRange 객체가 될 것이기 때문에 작동할 수 있습니다. 구현이 모호합니다.

감사합니다!

이것이 당신이 찾고 있던 것이에요?

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

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

언급URL : https://stackoverflow.com/questions/19102847/excel-vba-getting-the-row-cell-value-from-selection-address