選択されたセル位置を取得(Row,Column)

Sub pus_ActiveCell_Ret()

   '列及び行格納用変数の定義
   Dim lnglRow As Long
   Dim lnglCol As Long

   '列及び行の取得    
   lnglRow = ActiveCell.Row
   lnglCol = ActiveCell.Column

   MsgBox ("選択された列＝" & lnglRow & ",行＝" & lnglCol)

End Sub

'ダブルクリックにて選択された行のセルカラーを設定します。
'選択済みの場合は、逆にカラーをクリアします。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   Dim lnglRow As Long
   Dim lnglCol As Long

   '画面固定
   Application.ScreenUpdating = False
   '選択位置を取得
   lnglRow = ActiveCell.Row
   lnglCol = ActiveCell.Column
   '行を選択（256を変更すると対象に列数を変える事が出来ます。）
   Cells(lnglRow, 1).Resize(1, 256).Select
   '選択された行の判定
   If Selection.Interior.ColorIndex = 19 Then
      '選択済　→　セルのカラーをクリア
      Selection.Interior.ColorIndex = xlNone
   Else
      '選択未　→　セルのカラーを設定
      '全セルのカラーをクリア
      Cells.Select
      Selection.Interior.ColorIndex = xlNone
      '選択された行を再選択
      Cells(lnglRow, 1).Resize(1, 256).Select
      'セルのカラーを設定
      With Selection.Interior
         .ColorIndex = 8
         .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
      End With
   End If
   '最初に選択していたセルを再選択
   Cells(lnglRow, lnglCol).Select
   '入力モードをキャンセル（設定しない場合はセルが入力状態となります。）
   Cancel = True

   '画面更新
   Application.ScreenUpdating = True

End Sub