Previously active cell

后端 未结 4 1875
闹比i
闹比i 2020-12-19 22:04

For the code I am writing I monitor the changes in certain cell ranges to run functions and private subs. For this I use the Intersect function in the worksheet_change

4条回答
  •  陌清茗
    陌清茗 (楼主)
    2020-12-19 22:24

    It might be easier to "remember" the Range rather than the address of the range:

    Dim Oldcell As Range
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Oldcell Is Nothing Then
            Set Oldcell = Target
            Exit Sub
        End If
        MsgBox "New cell is " & Target.Address & vbCrLf & "Old cell was " & Oldcell.Address
        Set Oldcell = Target
    End Sub
    

提交回复
热议问题