oshizelly
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Private Sub Workbook_Open()
Set rPenultimate = ActiveCell
Set rPrevious = rPenultimate
Set rCurrent = rPenultimate
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
UpdatePenultimate
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
UpdatePenultimate
End Sub
Regular code module:
Public rCurrent As Range
Public rPenultimate As Range
Public rPrevious As Range
Public Sub UpdatePenultimate()
Set rPenultimate = rPrevious
Set rPrevious = rCurrent
Set rCurrent = ActiveCell
End Sub
Public Sub GoToPenultimate()
If Not rPenultimate Is Nothing Then Application.GoTo rPenultimate
End Sub |
Всего записей: 6524 | Зарегистр. 18-09-2004 | Отправлено: 11:15 04-07-2010 | Исправлено: oshizelly, 11:19 04-07-2010 |
|
