Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/окно ввода данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » окно ввода данных (Макросы/Sub)
окно ввода данных
Влроап Дата: Понедельник, 14.12.2020, 14:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - Влроап
Дата добавления - 14.12.2020 в 14:37
Nic70y Дата: Понедельник, 14.12.2020, 16:28 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6751
Репутация: 1543 ±
Замечаний: 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
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 14.12.2020 в 16:28
_Igor_61 Дата: Понедельник, 14.12.2020, 16:38 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 376
Репутация: 76 ±
Замечаний: 0% ±

Excel 2007
Ответил и увидел, что Nic опередил :)
К сообщению приложен файл: 0059936.xlsm(83.3 Kb)


Сообщение отредактировал _Igor_61 - Понедельник, 14.12.2020, 16:42
 
Ответить
СообщениеОтветил и увидел, что Nic опередил :)

Автор - _Igor_61
Дата добавления - 14.12.2020 в 16:38
Влроап Дата: Понедельник, 14.12.2020, 16:41 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

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

ТО ЧТО НАДО
 
Ответить
СообщениеОгромнейшее СПАСИБО КРАСАВЧИК

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

ТО ЧТО НАДО

Автор - Влроап
Дата добавления - 14.12.2020 в 16:41
Влроап Дата: Понедельник, 14.12.2020, 17:03 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

Спасибо

Автор - Влроап
Дата добавления - 14.12.2020 в 17:03
_Igor_61 Дата: Понедельник, 14.12.2020, 17:16 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 376
Репутация: 76 ±
Замечаний: 0% ±

Excel 2007
В конце кода в модуле кнопки
Код
Me.MyDate.SetFocus
Если нужно очистить поле: [vba]
Код
Me.MyDate.Value = ""
[/vba]
 
Ответить
СообщениеВ конце кода в модуле кнопки
Код
Me.MyDate.SetFocus
Если нужно очистить поле: [vba]
Код
Me.MyDate.Value = ""
[/vba]

Автор - _Igor_61
Дата добавления - 14.12.2020 в 17:16
Влроап Дата: Вторник, 15.12.2020, 08:11 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Влроап
Дата добавления - 15.12.2020 в 08:11
Влроап Дата: Вторник, 15.12.2020, 09:05 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

Спасибо

Автор - Влроап
Дата добавления - 15.12.2020 в 09:05
_Igor_61 Дата: Вторник, 15.12.2020, 11:20 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 376
Репутация: 76 ±
Замечаний: 0% ±

Excel 2007
Добавьте туда же:[vba]
Код
ActiveWindow.SmallScroll Down:=1
[/vba]
 
Ответить
СообщениеДобавьте туда же:[vba]
Код
ActiveWindow.SmallScroll Down:=1
[/vba]

Автор - _Igor_61
Дата добавления - 15.12.2020 в 11:20
Влроап Дата: Вторник, 15.12.2020, 13:54 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
hands
Классно
Спасибо Отлично
Я тоже хочу быть таким умным (когда выросту)
 
Ответить
Сообщениеhands
Классно
Спасибо Отлично
Я тоже хочу быть таким умным (когда выросту)

Автор - Влроап
Дата добавления - 15.12.2020 в 13:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » окно ввода данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!