Увеличение значения ячейки по Enter

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Увеличение значения ячейки по Enter - Мир MS Excel

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

Увеличение значения ячейки по Enter (Формулы/Formulas)

Увеличение значения ячейки по Enter

hunn

Дата: Среда, 21.10.2015, 12:49 | Сообщение № 1

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

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

Сообщений: 7

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

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

Excel 2003

Добрый день!
Подскажите, пожалуйста решение. Надо увеличивать значение текущей ячейки при нажатии на клавишу Enter.
Спасибо.

Ответить

Manyasha

Дата: Среда, 21.10.2015, 13:06 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

hunn, макросом:
[vba]

Код

Private Sub Worksheet_Activate()
Application.OnKey "{ENTER}"
Application.OnKey "{ENTER}", "nextVal"
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "{ENTER}"
End Sub

[/vba]
[vba]

Код

Sub nextVal()
On Error Resume Next
ActiveCell.Value = ActiveCell.Value + 1
End Sub

[/vba]
Реагирует на правый Enter (тот, что справа, с циферками).
Если заменить {ENTER}" на "~", будет реагировать на обычный Enter

К сообщению приложен файл: plus1.xls (31.0 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

hunn

Дата: Среда, 21.10.2015, 13:24 | Сообщение № 3

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

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

Сообщений: 7

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

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

Excel 2003

Спасибо!
Все работает.

Ответить

Увеличение значения ячейки по Enter (Формулы/Formulas)

Страница 1 из 1
1