Excel. Урок 65. Создаем форму на VBA. Добавляем данные из формы в конец таблицы
Вставка
- Опубліковано 29 вер 2024
- Excel. Урок 65. Создаем форму на VBA. Добавляем данные из формы в конец таблицы
Начинаем знакомство с языком программирования в Excel - Visual Basic.
В этом уроке мы научимся делать форму ввода данных. Эта форма позволяет ввести данные в конец таблицы. Кроме этого мы познакомимся с основами работы с формами и элементами формы.
Написав эту небольшую программу Вы сможете начать программировать на Visual Basic в Microsoft Excel
Спасибо за просмотр!
Подписывайтесь на мой канал, ставьте лайки и оставляйте комментарии.
Посетите наш сайт: e-sdelano.ru
Наш канал в Яндекс Дзен: zen.yandex.ru/...
Этот канал есть и на RUTUBE: rutube.ru/chan...
Подписывайтесь на Телеграм (@esdelano): t.me/esdelano
Буду рад любым пожертвованиям на поддержку канала yoomoney.ru/to...
Станьте спонсором канала, и вы получите доступ к эксклюзивным бонусам, в том числе сможете просматривать ролики, которые ещё не доступны остальным подписчикам.
Подробнее:
/ @esdelano
У кого ошибка выдаёт, Я нашел у себя ошибку, L Я спутал с 1 именно в тексте xldown Я написал x1down.
Привет, а как Юзер Форму заполнить которая при выполнении макроса будет заполняться от 0 % до 100%
Дичайший ужас. Диапазон это одна ячейка, 5 балов
нужно изменить на
s = Cells(Rows.Count, 2).End(xlUp).Row
и будет роаботать
А как сделать, чтобы форма очищалась после добавления данных? во избежание дублирования
А как же на видео всё работает???
Драствуйте Я всё зделал но у меня не работает
Private Sub CommandButton2_Click()
Dim ss, l, ros
l = Range("A1").End(xlDown).Row
ss = TextBox1.Value
l = l + 1
ros = "C" & l
Range(ros).Value = ss
Текс идёт толкьо на ячейке C2
End Sub
лайк, комент, подписка агонь коротко и все понятно для нулевого студента.
Спасибо автору, ведь даже такой чайник как я разобрался.
Отдельный респект Володимиру Ладиненко- все заработало после его коррекции.
Спасибо большое!!! Все расжевано до мелочей. Код работает!!!
у меня не получилось: форма выводится на экран, а при вводе пишет ошибку 104. что это может значить? ввела полностью весь макрос с сайта
После ввода переменной "l" выдало ошибку:
run-time error 1004 method range of object global failed
Здравствуйте!
Спасибо за хороший пример. А можно ещё сделать так чтобы кнопка добавить сработала как сброс данных в TextBox-ах?
Спасибо. Всё разложено по полочкам, все понятно.
Не подскажите макрос на ввод через форму данных в заданную область найденную опять же через форму ( ну например есть таблица с ценами, нужно найти цену и напротив добавлять накладные, наименования и т.д. с последующем добавлением строк вниз соответственно
Здраасьте!
А куда делось автоматическое добавление borders?
Драсвуте
Private Sub CommandButton2_Click()
Dim ss, l, ros
l = Range("A1").End(xlDown).Row
ss = TextBox1.Value
l = l + 1
ros = "C" & l
Range(ros).Value = ss
Надпис идёт толко на ячейка с2
End Sub
Супер давно об этом думал но много работы не до этого было. СПАСИБО!!!❤❤❤❤
Не могли бы Вы уточнить макрос с учетом новых изменений!
Здавствуйте а можете дать примеры работ по данному видео
Первая часть работает а вот вторая нет
Почему не в 4К???
Лайк однозначно!!!!! Самое внятное и понятное объяснение данной темы и написание скриптов.
Спасибо!
лайк
Спасибо. НО в новых версиях нахождения последней использованной строки не работает, используйте это
With Sheets("Sheet2")
.Range("A" & .Rows.Count).End(xlUp).Row
End With
Спасибо за отзыв
не работает
@@Володимир-ж3й9в Странно. У меня работал в Офис 365
@@bakytbekasankulov2077 у меня офис 2016
Полностью можете написать пример