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 |
|