Здравствуйте, уважаемые форумчане. Подскажите с решением.
У меня есть макрос в виде счетчика, который считает количество открытий книги. Сейчас он работает так - в столбец F при открытии, вводится дата открытия книги. Текущая дата вводится в ближайшую нижнюю незаполненную ячейку, что неудобно, поскольку текущая дата выезжает за пределы экрана и приходится прокручивать лист вниз.
Как заставить текущую дату записываться не в нижнюю ячейку столбца F, а в верхнюю ячейку (F4) - смещая предыдущие даты - вниз ?
Здравствуйте, уважаемые форумчане. Подскажите с решением.
У меня есть макрос в виде счетчика, который считает количество открытий книги. Сейчас он работает так - в столбец F при открытии, вводится дата открытия книги. Текущая дата вводится в ближайшую нижнюю незаполненную ячейку, что неудобно, поскольку текущая дата выезжает за пределы экрана и приходится прокручивать лист вниз.
Как заставить текущую дату записываться не в нижнюю ячейку столбца F, а в верхнюю ячейку (F4) - смещая предыдущие даты - вниз ?Grell
Private Sub Workbook_Open() Dim s& s = Cells(Rows.Count, 5).End(xlUp).Row + 1 If s < 4 Then s = 4 Range("E4:F" & s).Copy Range("E5") Cells(4, 5) = Cells(5, 5) + 1 Cells(4, 6).NumberFormat = "dd/mm/yy h:mm" Cells(4, 6) = Now End Sub
[/vba]Хотя, правильно было бы применить[vba]
Код
Insert Shift:=xlDown
[/vba]только рамку и цвет, если надо, восстанавливать. [vba]
Код
Private Sub Workbook_Open() Range("E4:F4").Insert Shift:=xlDown Cells(4, 5) = Cells(5, 5) + 1 Cells(4, 6).NumberFormat = "dd/mm/yy h:mm" Cells(4, 6) = Now End Sub
[/vba]
Может так пойдет. [vba]
Код
Private Sub Workbook_Open() Dim s& s = Cells(Rows.Count, 5).End(xlUp).Row + 1 If s < 4 Then s = 4 Range("E4:F" & s).Copy Range("E5") Cells(4, 5) = Cells(5, 5) + 1 Cells(4, 6).NumberFormat = "dd/mm/yy h:mm" Cells(4, 6) = Now End Sub
[/vba]Хотя, правильно было бы применить[vba]
Код
Insert Shift:=xlDown
[/vba]только рамку и цвет, если надо, восстанавливать. [vba]
Код
Private Sub Workbook_Open() Range("E4:F4").Insert Shift:=xlDown Cells(4, 5) = Cells(5, 5) + 1 Cells(4, 6).NumberFormat = "dd/mm/yy h:mm" Cells(4, 6) = Now End Sub