При даблклик по ячейке автовставка даты

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

При даблклик по ячейке автовставка даты (Формулы/Formulas)

dimakaz5194

Дата: Вторник, 29.11.2016, 12:39 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте! Как сделать автовствку даты при даблклике по ячейке? конкретно по ячейкам первого столбца.

Ответить

Nic70y

Дата: Вторник, 29.11.2016, 12:50 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9130

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Target = Date
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

K-SerJC

Дата: Вторник, 29.11.2016, 13:19 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

а если так:
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Target = Date
Cancel = True
End Sub

[/vba]
в режим редактирования ячейки входить не будет, просто вставит дату.

Благими намерениями выстелена дорога в АД.

Ответить

dimakaz5194

Дата: Вторник, 29.11.2016, 15:43 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Nic70y, Тогда не входит в режим редактирования других ячеек.

Ответить

dimakaz5194

Дата: Вторник, 29.11.2016, 15:45 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

А как изменить код, чтобы это делалось для любой отдельно взятой ячейки? Допустим вставить в код ячейку, и чтобы только она работала.

Ответить

Nic70y

Дата: Вторник, 29.11.2016, 20:27 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 9130

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

Цитата dimakaz5194, 29.11.2016 в 15:43, в сообщении № 4

Тогда не входит в режим редактирования других ячеек

не понял.

Цитата dimakaz5194, 29.11.2016 в 15:45, в сообщении № 5

чтобы только она работала

[vba]

Код

If Target.Address = "$A$1" Then Target = Date

[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 29.11.2016, 20:29

Ответить

dimakaz5194

Дата: Четверг, 01.12.2016, 11:23 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата Nic70y, 29.11.2016 в 20:27, в сообщении № 6

не понял.

Когда жмешь на нужные ячейки где вставить дату два раза, она сразу вставляется без режима редактирования. Когда два раза жмешь на другие ячейки ничего не происходит, то есть курсор в ячейке не появляется и редактировать ее можно только выделив и вводить данные только в строке сверху.