excel VBA返回選中單元格區域的行數、列數，以及活動單元格的行號和列號

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '可以直接sub(),不然選擇就會觸發vba
    Dim rows_count As Integer
    Dim rows_id As Integer
    Dim column_count As Integer
    Dim column_id As Integer
    column_count = Selection.Columns.Count '返回選擇區域列數
    rows_id = ActiveCell.Row  '返回活動單元格的行號
    rows_count = Selection.Rows.Count  '返回選擇區域的行數

    column_id = ActiveCell.Column  '返回活動單元格的列號
    MsgBox rows_count
    MsgBox column_count
    MsgBox column_id
    MsgBox rows_id
End Sub