Ввод данных в таблицу Excel с помощью Windows Form часть 2 из 2

Пример формы: www.dropbox.co...

[@АртемИшутин-ф7ж]

HEEELLP!!! Нужна помощь! Все делал по инструкции но в результате пишет ошибку Object variable or With block veriable not set. Что делать????

[@temniknn1377]

Прекрасно, только лучше больше разжевывать, пояснять.

[@anna_kadu]

Здравствуйте! Спасибо большое за такое развернутое учебное видео! А вы не могли бы подсказать: 1. как проверить, чтобы не ввести по ошибке одинаковые данные? 2. чтобы в начале ввода данных, выпадали возможные варианты из уже имеющихся в таблице названий ? Спасибо! )

[@koff444]

Спасибо за урок. Очень пригодился. Я делал не копию представленного, приспосабливал для своей таблицы. А в VBA я полный ноль и мне сложно было разобраться после того как вы поменяли стандартные названия ячеек формы ввода данных. В остальном все доступно!!! Спасибо!

[@МаксимДешко-ш4ш]

Спасибо! Полезный материал грамотно подан. Большая редкость!

[@captain_swan]

Как сделать, что бы таблица располагать в любом месте листа и в неё корректно добавлялись новые строки (как записать туда данные понятно)

[@vitaliykovalchuk7140]

Спасибо, не всё так просто как для меня. Вопрос: поля ввода формы можно можна сделать таковыми, чтобы вибырать текст из выпадающего списка?

[@ДмитрийКостылев-г2ъ]

Private Sub cmdButtonAddEntry_Click() Dim iRow As Integer 'Записываем значения из формы в глобальные переменные itemName = txtName.Value itemDetails = txtAdres.Value interPrice = txtId.Value interNonber = txtNomber.Value With Клиент 'Ряд в который будут записываться новые значения iRow = .ListObjects("MyTable").DataBodyRange.Rows.Count + 2 'Запишем значение в таблицу .Cells(iRow, "A").Value = itemName .Cells(iRow, "B").Value = itemDetails .Cells(iRow, "C").Value = interPrice .Cells(iRow, "D").Value = interNonber End With End Sub пишет, что ошибка, в чем может заключаться ошибка?

[@АнасасияГалкина]

А можно при использовании горячих клавиш, чтоб их сочетание и использование показывалось внизу. Я только учусь и некоторое остается за кадром.

[@AzerruSSRT88]

ААА на самом интересном месте. Попытался повторить, на тебе object variable or With block variable not set. Не глянете, что не так, а то сам чё-то никак. Private Sub cmdBottomAddEntry_Click() Dim iRow As Integer itemDate = DateItem.Value itemName = txtItemModel.Value itemKolich = txtItemKolvo.Value itemKoment = TxtItemDetails.Value With MyList iRow = .ListObjects("DaliTable").DataBodyRange.Rows.Count + 2 End With End Sub

[@s4lut]

Выскакивает ошибка: "run time error 9" в ряду iRow = .ListObjects("Sbor").DataBodyRange.Rows.Count + 2 Не подскажете, как что поправить? Вот код Private Sub cmdButtonAddEntry_Click() Dim iRow As Integer itemName = txtItemName.Value itemMemo = txtItemMemo.Value itemDetails = txtItemDeteils.Value bIsSold = OptionButton1.Value With MyList iRow = .ListObjects("Sbor").DataBodyRange.Rows.Count + 2 .Cells(iRow, "B").Value = itemName .Cells(iRow, "F").Value = itemMemo .Cells(iRow, "D").Value = itemDetails End With End Sub

[@nullifiedcat1198]

узнал что делать ?

[@Михаил-м6ц4и]

Здравствуй!Спасибо за урок!Я попробовал прикрутить твой урок к уже готовой таблице,но значения вводятся в новые строки в конце моей таблицы.То есть создается новая таблица.Подскажи,пожалуйста,как это можно поправить?Спасибо.

[@АлександрН-э8с]

хотелось бы еще узнать как в такую форму всплывающий календарь вставить чтоб дату вносить

[@kzs64]

А если введены значения которые уже имеются в таблице, тут как быть? Чтобы не заполнялись строки, а к примеру вылетел msgbox, что такие данные уже имеются в таблице

[@Polyariz]

Проверить, есть в таблице значения или нет. Например: If MyTable.Range("C1").Value = Not Empty Then MsgBox "Значение уже установлено!" Exit Sub End If

[@kingarmande]

Очень благодарен.

[@fostw1994]

Почему делая урок повторяя 1в1 выпадает ошибка "Object variable or With block veriable not set", ПРИЧЕМ КТО БЫ ВАМ НЕ ЗАДАВАЛ ДАННЫЙ ВОПРОС ВЫ ИГНОРИРУЕТЕ!!!

[@Polyariz]

Дмитрий Гуляев ответ есть в комментариях , см. ниже

[@ЭйвазСулейманов-у2с]

еще как понравился, спасибо тебе мастер.

[@ВикаДМ-н6ж]

Помогите исправить ошибку "object variable or With block variable not set ". Не понимаю откуда она берется

[@Polyariz]

Visual Basic, не может найти блок With, в котором делаются перечисления относящиеся к листу. Проверьте открытие и закрытие данного блока в коде: With MyList 'Начало блока With для MyList. MyList - название вашего листа '.............. '....код.... '.............. End With 'Закрыть блок

[@ЭйвазСулейманов-у2с]

я тоже повторил, но у меня не так работает. новая строка не появляется. :(

[@СергейТравкин-ь1щ]

Строка iRow = .ListObjects("Òàáëèöà5").DataBodyRange.Rows.Count + 3 Проверьте не написано ли у Вас "Columns" вместо "Count " Так же ошибка возникает если у Вас динамическая таблица начинается с 3 (либо иное), а в условиях iRow = .ListObjects("Òàáëèöà5").DataBodyRange.Rows.Count указано иное

[@mikhaillis2783]

как решить ошибку в iRow = .ListObjects("MyTable").DataBodyRange.Rows.Count + 2 и ошибка run time error 9

[@Polyariz]

Проверьте правильность набора для фрагмента кода: With MyList 'MyList-название листа + открытие блока With On Error Resume Next 'Проверьте заданное название для таблицы (напр. здесь MyDataTable) iRow = .ListObjects("MyDataTable").DataBodyRange.Rows.Count + 2 If Err.Number 0 Then Err.Clear iRow = 2 Else On Error GoTo 0 'code when there's no error End If .Cells(iRow, "A").Value = productName .Cells(iRow, "B").Value = price .Range("C" & iRow).Value = productDetails .Cells(iRow, 4).Value = txtAction .Cells(iRow, 5).Value = txtSold End With 'Блок With должен быть закрыт

[@charon1700]

+

[@СергейТравкин-ь1щ]

Форма после ввода значений не очищается =(

[@evgen4436]

Очень полезный видеоурок! Сделал под себя форму. Единственный вопрос: Можно ли как-то после создания базы данных подсчитать, сколько всего товаров "по акции"? У меня в форме, например, выпадающее меню, в нем три варианта ответа: Голосовал ЗА, Голосовал ПРОТИВ, ВОЗДЕРЖАЛСЯ. Можно как-то вывести, сколько всего проголосовало ЗА, сколько - против, и сколько воздержалось?

[@evgen4436]

Разобрался, если кому интересно, это делает команда =СЧЁТЕСЛИ(Диапазон;"Условие")

[@Polyariz]

Вносите записи голосов в одну колонку.За = 1, воздержался = 0. Подсчитайте в колонке все ячейки с 1. Пример: =СЧЁТЕСЛИ(B2:B29;"0"). Как реализовать см.: www.quora.com/How-do-you-use-the-COUNTIF-function-in-VBA

[@KirillShiryaev-l6q]

При создание доп ряда пишет ошибку object variable or With block variable not set . Как исправить?

[@KirillShiryaev-l6q]

И строки не прибавляет пишет iRows = 0((

[@ВикаДМ-н6ж]

Кирил, вы нашли решение вашего вопроса? у меня та же ошибка. помогите, если можете.

[@elenakorobkova4179]

что за свойство Листобджект ? как вы определили заполненные ячейки?

[@Polyariz]

ListObjects - коллекция, содержащая все объекты таблицы. по адресу ячейки.

[@kaynerailos7003]

Дружище! Спасибо за урок. Но вот вопрос. Как поправить в коде чтобы он писал сверху, а не с конца таблицы?

[@Polyariz]

Нужно сначала вставить новую строку, а затем вставить в неё значение.

[@kaynerailos7003]

@@Polyariz Уже понял это самостоятельно. Спасибо большое за примеры. Очень помогло разработать формы для работы. Единственное, что хотелось бы видеть еще - это создание форм отчета и упаковка в файлы. Было бы круто

[@vladislavtulaev4862]

Добрый день, очень полезное видео, подскажите 🙏 , как сделать такую же таблицу, без отметок «аукционный», «в наличии», «продан», что бы я просто вводил данные и они автоматически заполнялись в таблицу ?

[@Polyariz]

Добрый день. Посмотрите видео и скачайте пример кода, ссылка в описании под видео. По аналогии сделайте как Вам нужно.

[@vladislavtulaev4862]

@@Polyariz у вас ещё будут подобные видео ?

[@Polyariz]

@@vladislavtulaev4862 по vba не планирую

[@СергейТравкин-ь1щ]

а исправление данных или их поиск как сделать?

[@ИИванов-ь6с]

Было круто, интересно!

[@Rikokknd]

Привет, большое спасибо за обучалку. Вот допустим одну страницу я сделал, и все получилось. А как мне добавить отдельные листы к книге Excel, чтобы они работали независимо друг от друга? Ну то есть, в одной книге несколько листов-месяцев. Если я просто клонирую готовый, то форма добавляет вбитые данные на 1й лист. Понятно, что это потому что мы работаем With именно с первым листом. Как это изящно провернуть? Или банально размножить формы/макросы, для каждого листа свой? То есть надо чтобы форма вбивала данные именно на тот лист, который открыт в данный момент. Листы идентичны друг другу (разве что количество строк разное будет).

[@Polyariz]

Здравствуйте! Создайте новые листы (кнопка "+" возле названия листа), после чего определите для них название в VB, как мы сделали MyTable в видеоуроке. Дальше вставляйте данные во все необходимые листы с помощью ссылки, например: MyTable1.Range("C1").Value = "10" MyTable2.Range("C1").Value = "10" MyTable3.Range("C1").Value = "10" (MyTable1 - таблица на листе 1 и т.д.) Или так With MyTable1 .Range("A1").Value = "10" .Range("B1").Value = "10" .Range("C1").Value = "10" End With ............... With MyTableN .Range("A1").Value = "X" .Range("B1").Value = "X" .Range("C1").Value = "X" End With Если нужно вбивать данные с помощью одной формы во все листы, сделайте 3 вкладки в конструкторе Visual Basic, на каждой вкладке разместите поля с кнопкой добавить. Т.е. получиться 3 вкладки и на каждой вкладке будет кнопка добавить, для каждой кнопки нужно определить макрос который будет заполнять в лист 1 или N.

[@Rikokknd]

Спасибо, но я все равно тупой. В общем я клонировал готовый лист несколько раз. После этого мне надо на кнопку открытия формы повесить отдельный макрос для каждого листа. А вот что писать в макросе, чтобы после его нажатия форма поняла, что мы работаем именно с этим листом - я не знаю. А делать отдельную форму для каждого листа - можно конечно, но "индусский код" не хочется плодить. Что именно нужно написать в макросе? Или в форме, чтобы она поняла, с какого макроса ее вызвали?

[@Polyariz]

В данном случае название листа соответствует названию таблицы, указываете страницу и диапазон ячейки: MyPage1.Range("C1").Value = "10"

[@Mitkav360]

Можешь выложить в общий доступ данный файл?

[@Polyariz]

В описании ссылка

[@РусланДигай-щ5ш]

Автор молодец!!!!

[@Quas98]

Приватные занятия проводишь?

[@Polyariz]

Здравствуйте, не провожу. Вы можете поискать обучающий курс по VBA и Excel. Много курсов можно найти здесь: www.udemy.com/courses/search/?q=excel&src=sac&kw=excel&p=1&lang=ru

[@Quas98]

Жаль, хорошо объясняешь. Готов по 15-20 уе за урок давать