Урок 10. Организации. Excel+VBA. Система учета Интернет-магазина
ฝัง
- เผยแพร่เมื่อ 5 ต.ค. 2024
- ПОЛНАЯ ВЕРСИЯ ПРОГРАММЫ УЧЕТА - 1excel.ru/maga...
Создание приложения системы учета интернет-магазина на базе Excel+VBA
В этом уроке работаем с добавлением информации в таблицу Организации.
Предыдущие уроки:
Урок 1. Постановка задачи - goo.gl/JvMQAm
Урок 2. Дизайн и оформление - goo.gl/nJGzdw
Урок 3. Модуль Продажи (создаем UserForm) - goo.gl/3XN6H6
Урок 4. Пишем код (Теория+работа с формой) - • Урок 4. Пишем код (Тео...
Урок 5. Заполнение списков ComboBox - goo.gl/6bPDw6
Урок 6. Поиск артикула - goo.gl/Z23v37
Урок 7. Подсчеты, обработка ошибок - goo.gl/PRP3BG
Урок 8. Логистика и проверка - goo.gl/MW9S84
Урок 9. Функции Function, доработки - goo.gl/tBbe7R
Easy Excel - ПОЛНОЕ и ПОДРОБНОЕ обучение программы Excel для новичков и практиков! Уроки по макросам и VBA
Подписка на канал Easy Excel: / easyexcellesson
Форма заказа реализована методически неверно. У документа должны быть две части: "Шапка" и "Таблица". В "Шапку" заносятся реквизиты заказа: номер, дата, поставщик, покупатель, статус заказа, стоимость доставки, адрес доставки и т.п. А состав заказа, т.е номенклатура, должна быть помещена в "Таблицу" внизу формы. Там помещаются: артикул, наименование, количество, цена , сумма. Должна быть кнопка "Добавить строку", тогда заказ может содержать сколько угодно позиций. И должно быть поле на видном месте "Общая стоимость заказа".
Спасибо за урок. Как обычно ждём продолжение))))
Круть!!! Жду не дождусь подвязку к платёжной системе...
Павел вы так и небыло видео про смс оповещение) Крутые уроки спасибо вам
Брат здарово продолжение когда будет?
Вы отлично объясняете спасибо
Вы в видео говорили про следующее занятие 18:15... пожалуйста доснимите и выложите видео... спасибо вам за ваш огромный труд... очень крутой канал... я подписался...
Есть идея по форме Label,которая внизу. После того как будет запись добавлена можно запускать другой макрос . Который отложен по времени и запускается через 3 сек. Он будет присваивать label caption значение пусто
Вы молодец, продолжайте пожалуйста, очень интересно, делайте больше уроков по вба это познавательно...Подскажите плиз, я на форму добавил фрейм, он у меня закрыл все мои обьекты, как мне его в самый низ убрать, чтобы все обьекты были на фрейме а не под ним, заранее спасибо!
Снова слова благодарности! Доступно, понятно, функционально!
Павел, все-таки для меня очень острый вопрос открытым остается - это возможность корректировки комплексного заказа (или заказа отдельной позиции). Когда можно ожидать этот урок, если он конечно будет)?
совсем скоро будет, корректировку заказов начнем с 12 урока
Благодарю! Буду ждать с нетерпением.
Спасибо
спасибо.
а прикрепите файлик эксель в следующем уроке, буду признателен!
ссылка на файлик - yadi.sk/d/8ple1khr3T4Dp2
Невероятно крутые уроки, спасибо огромное. Можно вопрос,как написать процедуру чтобы по клику 1 из двух option batton в комбобокс попадал выпадающий список из таблицы. Нажимаешь на 1опб выходит список в кмб из первой таблицы , нажимаешь на второй опб выходит выпадающий список из 2 таблицы..приход расход это я решил усовершенствовать программу бюджета, которую сделал по вышим урркам
Сделайте обычную проверку, если выбран первый optbutton, то загоняйте данные в cbox из одной таблицы, другой выбран из другой таблицы
Easy Excel спасибо, получилось, даже удивлен что сделал это без помощи, еще вопрос, у меня 2 чекбокса как сделать чтобы при включении 1го второй отключался и наоборот, искал в ваших уроках ненашел, видимо пропустил я их
ставьте в false при включении одного чекбокса и наоборот
Подскажите пожалуйста как список организаций отфильтровать по алфавиту???
Я задумал обойтись только ComboBox, в нем и поиск и добавление, вот мой код по заполнению поля:
Sub FillBiborUL() 'Заполнение списка "Выбор ЮЛ"
Dim dict As Variant
Dim KeysArr As Variant
Dim i As Variant
Dim Key As Variant
Dim Result As Variant
Set Sh_Organizacija = ThisWorkbook.Worksheets("Организации")
Set Organizacija_tbListObj = Sh_Organizacija.ListObjects("Organizacija_tb")
Set dict = CreateObject("Scripting.Dictionary") ' создание словаря
' через цикл загоняем значения без повторений в словарь
For Each Organizacija_tbListRow In Organizacija_tbListObj.ListRows
Key = Organizacija_tbListRow.Range(1)
If Not dict.Exists(Key) Then ' Exists - Возвращает true, если указанный ключ существует в словаре, либо false - в противном случае.
dict.Add Key, 1 ' добавляем новый элемент в коллекцию
End If
Next Organizacija_tbListRow
KeysArr = dict.Keys ' записываем в массив все ключи, которые имеются в словаре
' циклом вытаскиваем все значения из массива
For i = 0 To dict.Count - 1
Result = KeysArr(i)
UsF_Prodagi.CoBo_ViborUL.AddItem Result
Next i
End Sub
В итоге я получаю:
ООО "Кедр"
ООО "Искра"
ООО "Агроника"
а я хочу сделать по феншую... это удобнее для поиска если организаций больше десятка:
ООО "Агроника"
ООО "Искра"
ООО "Кедр"
Ех, а как реализовать списание со склада?
Здравствуйте. А где ваш 11 -ое занятия? Не видно в списке . Это обычная программа?типа 1С Бухгалтерия. Да ?
11 урок и все последующие теперь доступны в полной платной версии. Это программа общего мало имеет с 1С.Бухгалтерия.
Павел, а ТЗ подразумевает, что заказ ВСЕГДА состоит из одного наименования? Просто очень хотелось бы увидеть, как решается вопрос в случае, когда заказ состоит из более чем одного товара...
Товаров может быть сколько угодно. Наименования с товарами в одном заказе вводятся последовательно. Набираем новый артикул, товар добавляется в таблицу и т.д.
Здравствуйте, мне тяжеловато учиться по видео. Если ли у Вас какая-нибудь конкретная литература для самообучения (хотя бы посоветуйте), а то ее такое множество, что боюсь выбрать не самую подходящую. Поделитесь пожалуйста архивом уроков, а то не всегда есть возможность сидеть на ютубе. Спасибо большое.
могу посоветовать - книги Уокенбаха и интернет. При чем второе по объему и кол-ву информации не уступает никаким книгам. Совет - ищите под конкретную задачу в интернете. Основы можно изучать по книгам и статьям (более кратко и понятно для новичков)
Здравствуйте. Вы можете создать программу для фулфилмента?
Здравствуйте. Могу помочь, пишите сюда - info@1excel.ru
Здраствуйте, подскажи с кем можно пообщаться по поводу создания программы учота ?
Здравствуйте, пишите сюда - info@1excel.ru
Спасибо большое! Не могли бы, пожалуйста, подсказать как сделать, чтобы когда у тебя запущена форма, оставалась бы возможность взаимодействовать с листом excel?
у формы есть свойство showmodal. выберите false (вроде так)
@@POMAH41K спасибо большое, действительно всё работает, как и хотелось! Долго не мог найти информацию и разобраться с этим.
Извените что "яйцо курицу учит" но есть предложение... если в таблицу организации добавить колонку скажем "название (для служ.пользования)"
Предположим у нас пять организаций:
ООО "Рога"
ОАО "Копыта"
ЗАО "Дрова"
ПАО "Фонарь"
ООО "Дворик"
Это правильные названия организаций так как их зарегистрировали-бы в ЕГРЮЛ... но если сортировать данный список получим:
ЗАО "Дрова"
ОАО "Копыта"
ООО "Рога"
ООО "Дворик"
ПАО "Фонарь"
Если организаций не пять а много, а ты помнишь только название ее (без формы собственности) то поиск становится проблемой, но если организации забиты еще в колонку "название (для служ.пользования)" вот таким макаром (пишу уже с сортировкой)
"название (для служ.пользования)" "Название"
Дворик ООО ООО "Дворик"
Дрова ЗАО ЗАО "Дрова"
Копыта ОАО ОАО "Копыта"
Рога ООО ООО "Рога"
Фонарь ПАО ПАО "Фонарь"
поиск становится куда легче... т.е. столбец "название (для служ.пользования)" - для базы и сортировки а столбец "Название" для заполнений в договорах и т.д.
Андрей Викторович Сухорутченко я думаю лучше правовую форму вводить вообще в отдельную колонку. Это поможет при создании каких нибудь документов и вводить в отдельные ячейки. Поиск лучше организовать по всем найденым значениям, сперва по первым буквам и тд.
vintarra И это тоже хорошая идея
Можно сделать следующее. На основной форме в поле "Плательщик (юр.лицо)" вводится название организации, как она полностью и есть. Далее функцией, в которой будет метод замены и подстановки (пойдет думаю Replace) мы вытаскиваем только название организации без начальных форм ИП, ООО и т.д. Это все записываем в другую колонку таблицы организаций. Там уже сортируем и по ней делаем поиск организации, подставляя название полной формы организации и прочие необходимые данные
@@easyexcellesson Здравствуйте, куда-то исчез 30 урок , где можно посмотреть?
Иванов попал)))
Как с вами связаться?
Пишите - info@1excel.ru