excel的VBA怎么实现把表中鼠标选中的1个格子的纵横值赋给2个变量?

来源：百度知道 编辑：UC知道 时间：2024/09/21 17:44:46
我要实现的功能是一打开那个EXCEL表,我每次选中1个格子,在VBA中就能把这个格子的纵横坐标取出来,分别赋给2个变量.比如我选到的是B5这个格子,那么VBA中就能把这个选中格子的地址取出来,把B和5分别赋给事先设的2个string变量.然后我就可以用这2个变量来做其它很多事情了.
我只知道Auto_Open 过程可以支持开excel表就运行过程中的语句
activecell.address 可以得到当前选中格子的地址,但它得到的是"$B$5"这样的格式,不好分开.请教简单方法

$B$5返回的是绝对引用地址
返回B5(也叫相对引用地址)格式单元格的地址用法是这样的：ActiveCell.Address(False, False)
只返回行号的是：ActiveCell.Row
只返回列号的是：ActiveCell.Column
返回列号的字母的是：Chr(ActiveCell.Column+Asc("A")-1)或Chr(ActiveCell.Column+64)
引用单个格子用Cells(行号,列号),
或Range(列字母 & 行号)
引用成片格子用Range(Cells(行号,列号),Cells(行号,列号))
或Range(Range(列字母 & 行号),Range(列字母 & 行号))

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
StrRow = Target.Row
StrCol = Target.Column
End Sub