엑셀 VBA : ActiveCell 커서 위치 가져오기

엑셀 커서가 놓여진 위치값을 가져옵니다.

 

Dim pos_Value as Variant

Dim pos_Row as Integer

Dim pos_Column  as Integer

 

'--- ActiveCell : 커서가 놓여진 위치 값을 가져옴

   pos_Value = ActiveCell.Value 

 

'--- ActiveCell.Row: row의 위치값

   pos_Row = ActiveCell.Row

 

'--- ActiveCell.Column : 컬럼의 위치 값 (A는 1, B는 2, ...)

   pos_Column  = ActiveCell.Column 

 

'--- 커서가 있는 라인의 첫번째 컬럼의 값

   pos_Value = Worksheets('Sheet1').Cells(ActiveCell.Row, 1)

 

'--- 커서가 있는 위치에 값을 할당하려면

   ActiveCell.Value = "여기가 커서위치"