Добрый день, постепенно начинаю изучение VBA (пока еще в этом совсем зеленый), слышал, что можно при двойном нажатии на ячейку вставить текущую дату (та что на компьютере). Подскажите, пожалуйста, как это сделать?
Добрый день, постепенно начинаю изучение VBA (пока еще в этом совсем зеленый), слышал, что можно при двойном нажатии на ячейку вставить текущую дату (та что на компьютере). Подскажите, пожалуйста, как это сделать? Bigimoot27
Manyasha, спасибо)) И еще вопрос: а как сделать так, что бы в конкретной ячейки выполнялась эта задача (например только в ячейке B7)? ну и в каком то диапазоне (например только в столбце В)?
Manyasha, спасибо)) И еще вопрос: а как сделать так, что бы в конкретной ячейки выполнялась эта задача (например только в ячейке B7)? ну и в каком то диапазоне (например только в столбце В)?Bigimoot27
Сообщение отредактировал Bigimoot27 - Понедельник, 23.02.2015, 13:33
Добавить первым оператором каждой процедуры проверку на принадлежность кликаемой ячейки заданному диапазону: [vba]
Код
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
[/vba] P.S. И если кроме простановки даты с ячейкой более ничего не предполагается делать, то следует отменить переход в режим редактирования этой ячейки, который стандартно выполняется по дабл-клику. Для этого в конец процедуры следует включить оператор: [vba]
Код
Cancel = True
[/vba] Итого, например, для всей книги имеем: [vba]
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub Target.Value = Date Cancel = True End Sub
Добавить первым оператором каждой процедуры проверку на принадлежность кликаемой ячейки заданному диапазону: [vba]
Код
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
[/vba] P.S. И если кроме простановки даты с ячейкой более ничего не предполагается делать, то следует отменить переход в режим редактирования этой ячейки, который стандартно выполняется по дабл-клику. Для этого в конец процедуры следует включить оператор: [vba]
Код
Cancel = True
[/vba] Итого, например, для всей книги имеем: [vba]
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub Target.Value = Date Cancel = True End Sub