окно ввода данных

Старая форма входа

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

окно ввода данных (Макросы/Sub)

окно ввода данных

Влроап

Дата: Понедельник, 14.12.2020, 14:37 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2013

Всем привет.
помогите пожалуйста сделать так, чтобы окно ввода данных появлялось и при двойном клике мышкой, и при нажатии клавиши на клавиатуре (допустим КЛАВИША стрелка "вправо") ИЛИ вообще хорошо бы если бы окно ввода данных не закрывалось вообще, а активная ячейка переходила на одну строку ниже в столбце ВЫРАБОТКА СРАЗУ ПОСЛЕ ввода данных в таблицу

Выкладываю таблицу полностью

К сообщению приложен файл: ____2020__55665.xlsm (88.1 Kb)

Ответить

Nic70y

Дата: Понедельник, 14.12.2020, 16:28 | Сообщение № 2

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

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

Сообщений: 9005

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

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

Excel 2010

[vba]

Код

Private Sub Add_Click()
    Cells(myRow, 1) = MyDate.Value
    Cells(myRow, 3) = Cat1.Value
    Cells(myRow, 4) = Cat2.Value
    Cells(myRow, 6) = Sum.Value
    myRow = myRow + 1
    'Myform.Hide
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

_Igor_61

Дата: Понедельник, 14.12.2020, 16:38 | Сообщение № 3

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

Ранг: Ветеран

Сообщений: 504

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

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

Excel 2007

Ответил и увидел, что Nic опередил

К сообщению приложен файл: 0059936.xlsm (83.3 Kb)

Сообщение отредактировал _Igor_61 - Понедельник, 14.12.2020, 16:42

Ответить

Влроап

Дата: Понедельник, 14.12.2020, 16:41 | Сообщение № 4

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

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

Сообщений: 6

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

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

Excel 2013

Огромнейшее СПАСИБО КРАСАВЧИК

СПАСИБО БЛАГОДАРЮ МОЛОДЕЦ

ТО ЧТО НАДО

Ответить

Влроап

Дата: Понедельник, 14.12.2020, 17:03 | Сообщение № 5

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

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

Сообщений: 6

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

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

Excel 2013

Можно попросить
еще немного помочь умом своим

хотелось бы чтобы после ввода данных и нажатия на энтер , курсор автоматически перешел на верхнее окошко (где дата) в окне ввода данных
чтобы небыло необходимости лишний раз нажимать ТАБ для перехода и ввода нового значения

Спасибо

Ответить

_Igor_61

Дата: Понедельник, 14.12.2020, 17:16 | Сообщение № 6

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

Ранг: Ветеран

Сообщений: 504

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

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

Excel 2007

В конце кода в модуле кнопки

Код

Me.MyDate.SetFocus

Если нужно очистить поле: [vba]

Код

Me.MyDate.Value = ""

[/vba]

Ответить

Влроап

Дата: Вторник, 15.12.2020, 08:11 | Сообщение № 7

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

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

Сообщений: 6

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

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

Excel 2013

Отлично всё
Благодарю всех за помощь .
Дай Аллах (Бог) Вам всем здоровья и благополучия

Ответить

Влроап

Дата: Вторник, 15.12.2020, 09:05 | Сообщение № 8

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

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

Сообщений: 6

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

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

Excel 2013

Парни, ввод данных ускорился в разыы, но нарисовалась ещё одна проблемка
После заполнения видимых на экране строк активная ячейка со строкой "уходят" вниз и визуально сразу не видно заполненную строку.

Как бы сделать , чтобы активная ячейка со строкой были видны на экране сразу после её заполнения

Спасибо