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

Вход

Регистрация

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

 

= Мир MS Excel/Ввод данных через форму - Мир MS Excel

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

Excel 2016
Всем привет. Прошу помощи. Делаю табличку. На листе Приходы сделал кнопку чтоб выходила форма. Форму сделал. Теперь надо чтоб при вводе значений в форме при нажатии кнопки "Записать позицию" данные вбивались в таблицу "Пришло" по порядку.
Вроде все сделал но вот осталось эту форму прописать, не могу разобраться. Или скажите где более подробно можно изучить эту тему.
Спасибо заранее.


Сообщение отредактировал АндрейАА - Воскресенье, 01.03.2020, 00:45
 
Ответить
СообщениеВсем привет. Прошу помощи. Делаю табличку. На листе Приходы сделал кнопку чтоб выходила форма. Форму сделал. Теперь надо чтоб при вводе значений в форме при нажатии кнопки "Записать позицию" данные вбивались в таблицу "Пришло" по порядку.
Вроде все сделал но вот осталось эту форму прописать, не могу разобраться. Или скажите где более подробно можно изучить эту тему.
Спасибо заранее.
Автор - АндрейАА
Дата добавления - 29.02.2020 в 21:58
doober Дата: Суббота, 29.02.2020, 23:10 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Код кнопки формы[vba]
Код
Private Sub Plus_Click()
Dim vStr As Long
    nextRow = Приход.Cells(Приход.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With Приход
        If .Range("A2").Value = "" And .Range("B2").Value = "" Then
            nextRow = nextRow - 1
        End If
    .Cells(nextRow, 1) = Наименование.Value
    .Cells(nextRow, 2).Value = Количество.Value
    End With
End Sub
[/vba]

 
Ответить
СообщениеКод кнопки формы[vba]
Код
Private Sub Plus_Click()
Dim vStr As Long
    nextRow = Приход.Cells(Приход.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With Приход
        If .Range("A2").Value = "" And .Range("B2").Value = "" Then
            nextRow = nextRow - 1
        End If
    .Cells(nextRow, 1) = Наименование.Value
    .Cells(nextRow, 2).Value = Количество.Value
    End With
End Sub
[/vba]
Автор - doober
Дата добавления - 29.02.2020 в 23:10
АндрейАА Дата: Воскресенье, 01.03.2020, 00:44 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата doober, 29.02.2020 в 23:10, в сообщении № 2 ()
Код кнопки формы

Спаситель!!!!
 
Ответить
Сообщение
Цитата doober, 29.02.2020 в 23:10, в сообщении № 2 ()
Код кнопки формы

Спаситель!!!!
Автор - АндрейАА
Дата добавления - 01.03.2020 в 00:44
gge29 Дата: Воскресенье, 01.03.2020, 22:54 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 3 ±
Замечаний: 0% ±

Пример бы хоть приложили,вдруг кому пригодится


Сообщение отредактировал gge29 - Воскресенье, 01.03.2020, 22:55
 
Ответить
СообщениеПример бы хоть приложили,вдруг кому пригодится
Автор - gge29
Дата добавления - 01.03.2020 в 22:54
АндрейАА Дата: Суббота, 07.03.2020, 20:09 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата gge29, 01.03.2020 в 22:54, в сообщении № 4 ()
Пример бы хоть приложили,вдруг кому пригодится

Прошу прощения. Прилагаю готовы вариант, то что сделал
Цитата gge29, 01.03.2020 в 22:54, в сообщении № 4 ()
doober
К сообщению приложен файл: 6448485.xlsm (39.7 Kb)
 
Ответить
Сообщение
Цитата gge29, 01.03.2020 в 22:54, в сообщении № 4 ()
Пример бы хоть приложили,вдруг кому пригодится

Прошу прощения. Прилагаю готовы вариант, то что сделал
Цитата gge29, 01.03.2020 в 22:54, в сообщении № 4 ()
doober
Автор - АндрейАА
Дата добавления - 07.03.2020 в 20:09
АндрейАА Дата: Суббота, 07.03.2020, 20:10 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
doober,
По вашему примеру сдала еще одну форму. Но она не хочет работать. Можете подсказать почему? Пример прилагаю.
К сообщению приложен файл: 7155529.xlsm (34.2 Kb)
 
Ответить
Сообщениеdoober,
По вашему примеру сдала еще одну форму. Но она не хочет работать. Можете подсказать почему? Пример прилагаю.
Автор - АндрейАА
Дата добавления - 07.03.2020 в 20:10
Pelena Дата: Суббота, 07.03.2020, 22:14 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
В Вашем файле нет ни форм, ни макросов

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВ Вашем файле нет ни форм, ни макросов
Автор - Pelena
Дата добавления - 07.03.2020 в 22:14
АндрейАА Дата: Воскресенье, 08.03.2020, 00:39 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Прошу прощения. вот файл полностью. Форма на странице проекты.
К сообщению приложен файл: _ver.5.xlsm (453.1 Kb)
 
Ответить
СообщениеPelena, Прошу прощения. вот файл полностью. Форма на странице проекты.
Автор - АндрейАА
Дата добавления - 08.03.2020 в 00:39
АндрейАА Дата: Понедельник, 09.03.2020, 16:36 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Все разобрался. Надо быть внимательнее.
 
Ответить
СообщениеВсе разобрался. Надо быть внимательнее.
Автор - АндрейАА
Дата добавления - 09.03.2020 в 16:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод данных через форму (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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