Как раз в мою тему ! Занимаюсь арендой авто .Фирма маленькая еще поэтому пока все записи на бумаге . Но тут недавно увидел в интернете видео на английском система бронирования для отелей в эксель .Меня очень заинтересовало и после этого начал вникать в эксель . По английский понимаю и говорю но не на столько .к тому же он рассказывает очень быстро и без подробностей . Интернет мне в помощь - Начал рыться на русских сайтах и форумах не чего похожего нет . На одном из форумов направили можно так сказать на путь и показали несколько возможностей эксель по моей теме и мол "а дальше сам "но и на этом спасибо ! Начал искать как видео по Usreform нашел вас. Стал смотреть весь плэйлист ,но вы превзошли все мои ожидания ! я же говорю на русских ресурсах не чего похожего нет НИ по отелям НИ по аренде авто . Еще бы создали видео "как данный с формы заказа внести в диаграмму " Было бы СУПЕР ! Респект ! подписываюсь

Билял, очень красиво и элегантно! Возьму на вооружение. Спасибо!!!

Супер! Билял, мастерское исполнение и объяснение! Осваиваю VBA благодаря Вам.

Спасибо за труд!

Спасибо, Вам, Билял, за все Ваши ролики! Все круто - быстро, где можно "прокрутить"; помедленней, где нужно повнимательней посмотреть; плюс в отличие от подавляющего большинства авторов обучающих роликов у Вас еще и с английским проблем нет, а то слушаешь некоторых, аж выключить хочется )) ...Хотя слово "wrap" все-таки произносится как "рэп", а не "роп" (в каком-то предыдущем ролике) :)... Так держать!

Спасибо за урок. Круто объясняешь

Спасибо Билял!

Интересно, но добавления данных надо упростить. Конечно хорошо сделать динамический, но сложно для новичков, а также для визуального восприятия. Думаю это обоснованно когда на форме очень много элементов (поля для ввода). Также знаю, что много элементов на форме не рекомендуется. Желательно при проверке подсказывать через MsgBox какие поля необходимо обязательно заполнять и передать фокус. С другой стороны один раз написал код и забыл, возьму на заметку. Буду усовершенствовать с учётом выше сказанного, но только при проверке. Добавления данных предпочитаю без заморочками по примеру ниже. Огромное спасибо за труд! Пример: 'Добавить в конец Public Sub AddListRowEnd(strNameListObj As String, strRowData1 As String, strRowData2 As String, strRowData3 As String) Dim ListObj As ListObject Dim ListRow As ListRow Set ListObj = wsSettings.ListObjects(strNameListObj) Set ListRow = ListObj.ListRows.Add(AlwaysInsert:=True) With ListRow .Range(1) = strRowData1 .Range(2) = strRowData2 .Range(3) = strRowData3 End With End Sub Место strRowData можно передать одноуровнненый массив данных ...

Спасибо!

Доброго времени суток! Очень полезные и обучающие видео по VBA у вас! Спасибо большое) Скажите пожалуйста у вас можно взять несколько платных уроков, не могу закончить свой проект по VBA. Очень нужна помощь в написании кода VBA. Заранее Благодарю!

Привет! Билял очень позновательные видео я почти все пересмотрел. У меня вопрос в пользовательской форме комбобокс не вставляет значение в ячейку проверял несколько раз на ошибки все отлично. может ли проблема в экселе или в области ячеек 🤔

Билял, подскажи пожалуйста, как сделать событие следующего характера. При вводе в текст бокс значения ( В моем случае цифры) , эта цифра в он лайн отображается в заданной ячейке на листе. То есть ввел я 1, тут же в ячейке а1 появилась 1, продолжаю вводить, 2, (12 число уже получилось) в ячейке отобразилось 12 итд. Без кнопки запись или провести.

Билял, здравствуйте! Подскажите, как можно доработать предложенный Вами код проверки заполненных TextBox только на одной странице MultiPage в UserForm?

Билял, приветствую. Про подписи автоматически исчезающие в текст боксах ты не рассказывал в итоге в других видео или я что то пропустил ?

Спасибо! Очень доходчиво! Вопрос: как в TextBox на форме вставить текущую дату по умолчанию? Спасибо

Как вариант, способ присвоения созданной строки, переменной, в одной строке: Dim lo As ListObject Set lo = ActiveSheet.ListObjects("Таблица1") Dim row As ListRow

Сто раз пересмотрела ролик, ошибки не вижу, но почему то из моей польз формы заполняются всего 2 столбца, в чем дело не знаю.

м-да... не для новичков. есть моменты совсем не понятные...запускаю просмотр 4 раз))

Здравствуйте! В чём может быть ошибка Код повторил как у вас в уроке, но при добавлении записи ошибку показывает в строке (специально сравнил код с фала из следующего урока) Intersect(rgNewOrderLine, listobjOrderList.ListColumns(strTagArray(0)).DataBodyRange) = objControlChecked.Value Пишет subscript out of range. и строка подчёркивается жёлтым

Доброго времени суток, Билял. Помогите разрешить мой ступор. Я только начинаю заниматься VBA. Не получается передать значение глобальной переменной в форму. В VBAProject в папке Forms созданы две формы UserForm1 и UserForm2. В них пользователь вводит некоторые данные, которые затем будут помещены в таблицу по определенным столбцам в заданной ранее строке N. Переменная N объявлена как глобальная и помещена в начало программы. Значение ей присваивается в вызываемой подпрограмме Cell пример: Public N As Integer ___________________________________ ___________________________________ ______________ Public Sub First() 'модуль2 Call Cell 'модуль4, в нем N получает значение из Input UserForm1.Show 'форма в которой используется переменная N но приходит сюда как равная ноль , хотя значение её из Input не ноль UserForm2.Show 'cюда N также входит как 0 End Sub Что надо прописать еще , чтобы формы увидели значение N

сначала была ошибка в строке set, поменял listobjects с orderlist на 1 после ошибка в строке intersect, вот с ней не знаю что делать

Спасибо за такие видео! Вопрос только возник: как сделать или что изменить, чтобы данные вписывались в таблицу на другом листе в этой же книге. В основную таблицу все вписывает и все работает, а во вспомогательной таблицы на другом листе создаются только строки, а данные не вписываются(если таблицу перенести на этот же лист, то через махинации будет тоже записываться, но не хочет записывать данные именно на другом листе книги) П.с. значение переменной, относящиеся к данной книге и листу менял, все работает, просто значения не вписываются Очень жду продолжения!

Доброго дня ! напишите пож ... будет продолжение.... форму мы не доделали... 13 урок прошёл

У меня вопрос. Я делаю игру крестики нолики, и чтобы для каждой кнопки не писать в каждом Private sub CommandButton1_Click1() CommandButton1.Text="X" или "O"(через if..else) я хотел уменьшить код/сделать отдельную программу, которая работала бы для всех 9 кнопок сразу, т.е. нажимая на любую кнопку выполнялась команда выбора "X" или "O" Нашёл как это работает в C#там (не знаю ли поможет это объяснить проблему) Private void CommandButton1_Click1( object sender, EventArgs e) И потом каждый клик на кнопку заполняли таким образом Button senderB= (Button) sender а потом уже просто определяли Х или О ставить , но в vba никак не могу нагуглить как сделать нечто подобное, ничего толкового не выдает, можете подсказать как это сделать ?Буду премного благодарен

К первому моему сообщению. И в обратном направлении. В конкретной ячейке появилось значение, оно отображается на листбокс 2 уже. В двух словах зачем мне это. В лист бокс1 ввод В значение, оно автоматом записывается в ячейку, в соседнюю ячейку по критерию из а1 подтягиваются значение из таблицы и возвращается в листбокс 2. Почему так, потому что мне проще работать с листами, чем с формами. Заранее спасибо. Ты и так очень сильно помог.

Не добавляется строка((( "method add of object listrows failed"

Я конечно скорее всего ошибаюсь. Но такое ощущение, что функционал такой таблицы такой же как и в случае, если делать это самым простым способом, как было показано в начале видео.

Всем привет. А у меня выдает ошибку на строчке (Set listobjOrderList = ThisWorkbook.Worksheets("Исполнительная по электрике").ListObjects("OrderList"))

Ох не получается ... уперся!!! не пойму что день потерял!!

очень очень замороченно, в начале же начал просто писать, подскажи пожалуйста как просто добавлять в последнюю строку значение из формы без этих всех тегов и циклов

А с вами можно както связатсья ?

2021

Вылетает ошибка, что проверяемый объект не может иметь свойство value. Интересно, где ошибка на самом деле :) Upd: Акела промахнулся и подписал тэги к labelам а не к textboxам :) а код абсолютно верный!

я случайно наткнулся на это видео и уже 2 день пытаюсь повторить код, он идентичный с тем что даеться в уроке, но по итогу выдет ошибку 9 (out of range) в чем причина пока не разобрался. Вердикт код не работет спустя 3 года я думаю что причина такова. Intersect(rgNewOrderLine, listobjOrderList.ListColumns(strTagArray(0)).DataBodyRange) = objControlChecked.Value когда начинаешь проверять через дебаг эта страка дется ошибку 9 решил скачать сам файл разработчика и такая же ошибка.

Очень подробно, но сложно для восприятия. Если бы мы изучали алфавит: А, Б, В, Г, Д и т.д., то выглядело бы это примерно так: Вот буква «А» с нее начинаются такие слова как: Арбуз, Автобус, Антресоль. Но может она стоять еще и на втором и третьем месте: Аарон, Анатолий. Также их может быть и по нескольку в слове. Например Ананас, Анатомия. В принципе, буква А не обязательно должна быть на первом месте, хотя является наиболее употребимой буквой в русском алфавите. Если рассматривать использование буквы а в частях речи, то ее значение….. ну и так далее. Пока дойдешь хотя бы до буквы Д, уже и забудешь с чего начинал. Подробности важны, но они должны быть к месту, а не лишней информацией в контексте изучаемой темы. У меня стояла простая задача: создать с помощью vba диалоговое окно с единственным текстовым полем, в которое вписывалось бы значение, добавляемое в таблицу. Убил уже 3 дня, но так еще и не смог реализовать свою задачу. Зато узнал про циклы.

3 РАЗА НАБИРАЛ...НЕ РАБОТАЕТ...простите

Спасибо!