VBA如何获取单元格焦点移动前的单元格的行号和列号

在模块中定义2个全局变量iRow,iCol

然后在thisworkbook中的Workbook_Open()事件中，取得工作薄一开始时的初始单元格行号和列号，作为初始行号和列号：

Private Sub Workbook_Open()

iRow = ActiveCellRow

iCol = ActiveCellColumn

End Sub

再然后在sheet1的Worksheet_SelectionChange(ByVal Target As Range)事件中，加下如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim reRow As Integer, reCol As Integer

reRow = TargetRow

reCol = TargetColumn

TargetValue = "移动前单元格行号是：" & iRow & vbCrLf & "移动前单元格列号是：" & iCol

Cells(iRow, iCol) = ""

iRow = reRow

iCol = reCol

End Sub

Option Explicit Sub 显示区域内最大行号() Dim rgInput As Range '输入一个range，代表一个区域 Dim rg As Range Dim l As Long '最大行号 Set rgInput = ApplicationInputBox("请选择一个单元格区域", "提示", , , , , , 8) If Not rgInput Is Nothing Then For Each rg In rgInput If rgRow > l Then l = rgRow End If Next rg End If MsgBox "你选择的区域的最大行号为：" & l End Sub 很笨的方法，遍历区域内每个单元格。

以上就是关于VBA如何获取单元格焦点移动前的单元格的行号和列号全部的内容，包括:VBA如何获取单元格焦点移动前的单元格的行号和列号、如何取得已用区域的最大行号(vba代码)、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！