Question

VBA 关于在Worksheet_SelectionChange事件记录上一个单元格行号？

比如我在一个单元格中输入一些数字，然后按了回车或者点击了其他单元格之后，怎么获取到那个离开前的单元格的行号呢？(简单点说就是把上次单元格的行和列保存起来)，请大家看看有什么方法实现啊 ？ 谢谢 ！

Answer 1

搞了一天，终于自己搞出来，我的思路是这样的，主要通过静态变量来实现
代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static a1 As Integer
Static a2 As Integer
Static a3 As Integer
If a3 = 0 Then
a1 = ActiveCell.row
a2 = ActiveCell.Column
End If
a3 = 1
MsgBox a1
MsgBox a2
a1 = ActiveCell.row
a2 = ActiveCell.Column
End Sub
同时谢谢所有回答问题的人！

Answer 2

with target
.value=123
myRow=.row
myCol=.column
end with

目标单元格的值为123，行号值赋值给myRow，列号值赋值给myCol

追问

您好，我是记录msgbox上个单元格的行号和列就可以了，请写详细点，谢谢！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
with target
.value=123
myRow=.row ‘我只需要知道上个单元格的行号和列就OK
myCol=.column
end with

End Sub
谢谢！

追答

Private Sub Worksheet_SelectionChange该事件只能记录当前操作，END SUB时会将所有值清空。

追问

我知道啊，所以我的问题就在这啊，你有什么办法吗 ？

追答

Public myRow, myCol
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "上次操作的单元格是第" & myRow & "行，第" & myCol & "列"
With Target
myRow = .Row
myCol = .Column
End With
End Sub

追问

不行啊 大哥！

追答

没问题啊。除第一次外，下一次点击单元格都会提示上一次操作是哪个啊。你用是什么情况？
有实际操作应该用Worksheet_Change()
Public myRow, myCol
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "上次操作的单元格是第" & myRow & "行，第" & myCol & "列"
With Target
myRow = .Row
myCol = .Column
End With
End Sub

Answer 3

建议借用不需要的单元格来记录上一个单元格行号。
比如：RAGNE（“A1”）=TARGET.ROW
或者定义一个public变量

追问

不好意思，我不能这样做，你可以给我别的方法吗 ？