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

声明:该文章系转载,转载该文章的目的在于更广泛的传递信息,并不代表本网站赞同其观点,文章内容仅供参考。

本站是一个个人学习和交流平台,网站上部分文章为网站管理员和网友从相关媒体转载而来,并不用于任何商业目的,内容为作者个人观点, 并不代表本网站赞同其观点和对其真实性负责。

我们已经尽可能的对作者和来源进行了通告,但是可能由于能力有限或疏忽,导致作者和来源有误,亦可能您并不期望您的作品在我们的网站上发布。我们为这些问题向您致歉,如果您在我站上发现此类问题,请及时联系我们,我们将根据您的要求,立即更正或者删除有关内容。本站拥有对此声明的最终解释权。