Урок 10. Организации. Excel+VBA. Система учета Интернет-магазина

ПОЛНАЯ ВЕРСИЯ ПРОГРАММЫ УЧЕТА - 1excel.ru/magazin-vba-excel
Создание приложения системы учета интернет-магазина на базе 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

Пікірлер: 41

  • @vintarra
    @vintarra6 жыл бұрын

    Спасибо за урок. Как обычно ждём продолжение))))

  • @ppr8117
    @ppr81176 жыл бұрын

    Круть!!! Жду не дождусь подвязку к платёжной системе...

  • @fasciabeautyhealth3623
    @fasciabeautyhealth36232 жыл бұрын

    Павел вы так и небыло видео про смс оповещение) Крутые уроки спасибо вам

  • @dmitryzenin7574
    @dmitryzenin75746 жыл бұрын

    Форма заказа реализована методически неверно. У документа должны быть две части: "Шапка" и "Таблица". В "Шапку" заносятся реквизиты заказа: номер, дата, поставщик, покупатель, статус заказа, стоимость доставки, адрес доставки и т.п. А состав заказа, т.е номенклатура, должна быть помещена в "Таблицу" внизу формы. Там помещаются: артикул, наименование, количество, цена , сумма. Должна быть кнопка "Добавить строку", тогда заказ может содержать сколько угодно позиций. И должно быть поле на видном месте "Общая стоимость заказа".

  • @DiA-gp7jk
    @DiA-gp7jk4 жыл бұрын

    Спасибо

  • @javlonnosirov7
    @javlonnosirov73 жыл бұрын

    Брат здарово продолжение когда будет? Вы отлично объясняете спасибо

  • @user-jo2ux1tm9y
    @user-jo2ux1tm9y3 жыл бұрын

    Вы в видео говорили про следующее занятие 18:15... пожалуйста доснимите и выложите видео... спасибо вам за ваш огромный труд... очень крутой канал... я подписался...

  • @Mihail_Pershenkov
    @Mihail_Pershenkov6 жыл бұрын

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

  • @gladalex3824
    @gladalex38245 жыл бұрын

    Есть идея по форме Label,которая внизу. После того как будет запись добавлена можно запускать другой макрос . Который отложен по времени и запускается через 3 сек. Он будет присваивать label caption значение пусто

  • @user-bm8yq2hh6h
    @user-bm8yq2hh6h6 жыл бұрын

    Снова слова благодарности! Доступно, понятно, функционально! Павел, все-таки для меня очень острый вопрос открытым остается - это возможность корректировки комплексного заказа (или заказа отдельной позиции). Когда можно ожидать этот урок, если он конечно будет)?

  • @easyexcellesson

    @easyexcellesson

    6 жыл бұрын

    совсем скоро будет, корректировку заказов начнем с 12 урока

  • @user-bm8yq2hh6h

    @user-bm8yq2hh6h

    6 жыл бұрын

    Благодарю! Буду ждать с нетерпением.

  • @yfarus
    @yfarus6 жыл бұрын

    спасибо. а прикрепите файлик эксель в следующем уроке, буду признателен!

  • @easyexcellesson

    @easyexcellesson

    6 жыл бұрын

    ссылка на файлик - yadi.sk/d/8ple1khr3T4Dp2

  • @steela.m.5697
    @steela.m.56976 жыл бұрын

    Иванов попал)))

  • @user-jg9yd4hb7j
    @user-jg9yd4hb7j6 жыл бұрын

    Подскажите пожалуйста как список организаций отфильтровать по алфавиту??? Я задумал обойтись только 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 В итоге я получаю: ООО "Кедр" ООО "Искра" ООО "Агроника" а я хочу сделать по феншую... это удобнее для поиска если организаций больше десятка: ООО "Агроника" ООО "Искра" ООО "Кедр"

  • @DV_25rus_ART
    @DV_25rus_ART4 жыл бұрын

    Спасибо большое! Не могли бы, пожалуйста, подсказать как сделать, чтобы когда у тебя запущена форма, оставалась бы возможность взаимодействовать с листом excel?

  • @POMAH41K

    @POMAH41K

    4 жыл бұрын

    у формы есть свойство showmodal. выберите false (вроде так)

  • @DV_25rus_ART

    @DV_25rus_ART

    4 жыл бұрын

    @@POMAH41K спасибо большое, действительно всё работает, как и хотелось! Долго не мог найти информацию и разобраться с этим.

  • @mihailpershencov9055
    @mihailpershencov90556 жыл бұрын

    Невероятно крутые уроки, спасибо огромное. Можно вопрос,как написать процедуру чтобы по клику 1 из двух option batton в комбобокс попадал выпадающий список из таблицы. Нажимаешь на 1опб выходит список в кмб из первой таблицы , нажимаешь на второй опб выходит выпадающий список из 2 таблицы..приход расход это я решил усовершенствовать программу бюджета, которую сделал по вышим урркам

  • @easyexcellesson

    @easyexcellesson

    6 жыл бұрын

    Сделайте обычную проверку, если выбран первый optbutton, то загоняйте данные в cbox из одной таблицы, другой выбран из другой таблицы

  • @mihailpershencov9055

    @mihailpershencov9055

    6 жыл бұрын

    Easy Excel спасибо, получилось, даже удивлен что сделал это без помощи, еще вопрос, у меня 2 чекбокса как сделать чтобы при включении 1го второй отключался и наоборот, искал в ваших уроках ненашел, видимо пропустил я их

  • @easyexcellesson

    @easyexcellesson

    6 жыл бұрын

    ставьте в false при включении одного чекбокса и наоборот

  • @vldmrncorporation3633
    @vldmrncorporation36333 жыл бұрын

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

  • @user-rt2uc8lk7e
    @user-rt2uc8lk7e3 жыл бұрын

    Здраствуйте, подскажи с кем можно пообщаться по поводу создания программы учота ?

  • @easyexcellesson

    @easyexcellesson

    3 жыл бұрын

    Здравствуйте, пишите сюда - info@1excel.ru

  • @rahibcabbarli7926
    @rahibcabbarli79264 жыл бұрын

    Здравствуйте. А где ваш 11 -ое занятия? Не видно в списке . Это обычная программа?типа 1С Бухгалтерия. Да ?

  • @easyexcellesson

    @easyexcellesson

    4 жыл бұрын

    11 урок и все последующие теперь доступны в полной платной версии. Это программа общего мало имеет с 1С.Бухгалтерия.

  • @petiforov
    @petiforov6 жыл бұрын

    Павел, а ТЗ подразумевает, что заказ ВСЕГДА состоит из одного наименования? Просто очень хотелось бы увидеть, как решается вопрос в случае, когда заказ состоит из более чем одного товара...

  • @easyexcellesson

    @easyexcellesson

    6 жыл бұрын

    Товаров может быть сколько угодно. Наименования с товарами в одном заказе вводятся последовательно. Набираем новый артикул, товар добавляется в таблицу и т.д.

  • @user-yv3xy3rv8l
    @user-yv3xy3rv8l Жыл бұрын

    Здравствуйте. Вы можете создать программу для фулфилмента?

  • @easyexcellesson

    @easyexcellesson

    Жыл бұрын

    Здравствуйте. Могу помочь, пишите сюда - info@1excel.ru

  • @user-dn9jw2hf2m
    @user-dn9jw2hf2m6 жыл бұрын

    Здравствуйте, мне тяжеловато учиться по видео. Если ли у Вас какая-нибудь конкретная литература для самообучения (хотя бы посоветуйте), а то ее такое множество, что боюсь выбрать не самую подходящую. Поделитесь пожалуйста архивом уроков, а то не всегда есть возможность сидеть на ютубе. Спасибо большое.

  • @easyexcellesson

    @easyexcellesson

    6 жыл бұрын

    могу посоветовать - книги Уокенбаха и интернет. При чем второе по объему и кол-ву информации не уступает никаким книгам. Совет - ищите под конкретную задачу в интернете. Основы можно изучать по книгам и статьям (более кратко и понятно для новичков)

  • @user-jg9yd4hb7j
    @user-jg9yd4hb7j6 жыл бұрын

    Извените что "яйцо курицу учит" но есть предложение... если в таблицу организации добавить колонку скажем "название (для служ.пользования)" Предположим у нас пять организаций: ООО "Рога" ОАО "Копыта" ЗАО "Дрова" ПАО "Фонарь" ООО "Дворик" Это правильные названия организаций так как их зарегистрировали-бы в ЕГРЮЛ... но если сортировать данный список получим: ЗАО "Дрова" ОАО "Копыта" ООО "Рога" ООО "Дворик" ПАО "Фонарь" Если организаций не пять а много, а ты помнишь только название ее (без формы собственности) то поиск становится проблемой, но если организации забиты еще в колонку "название (для служ.пользования)" вот таким макаром (пишу уже с сортировкой) "название (для служ.пользования)" "Название" Дворик ООО ООО "Дворик" Дрова ЗАО ЗАО "Дрова" Копыта ОАО ОАО "Копыта" Рога ООО ООО "Рога" Фонарь ПАО ПАО "Фонарь" поиск становится куда легче... т.е. столбец "название (для служ.пользования)" - для базы и сортировки а столбец "Название" для заполнений в договорах и т.д.

  • @vintarra

    @vintarra

    6 жыл бұрын

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

  • @user-jg9yd4hb7j

    @user-jg9yd4hb7j

    6 жыл бұрын

    vintarra И это тоже хорошая идея

  • @easyexcellesson

    @easyexcellesson

    6 жыл бұрын

    Можно сделать следующее. На основной форме в поле "Плательщик (юр.лицо)" вводится название организации, как она полностью и есть. Далее функцией, в которой будет метод замены и подстановки (пойдет думаю Replace) мы вытаскиваем только название организации без начальных форм ИП, ООО и т.д. Это все записываем в другую колонку таблицы организаций. Там уже сортируем и по ней делаем поиск организации, подставляя название полной формы организации и прочие необходимые данные

  • @fguzkp23

    @fguzkp23

    4 жыл бұрын

    @@easyexcellesson Здравствуйте, куда-то исчез 30 урок , где можно посмотреть?

  • @user-zi5hb6be9q
    @user-zi5hb6be9q3 жыл бұрын

    Как с вами связаться?

  • @easyexcellesson

    @easyexcellesson

    3 жыл бұрын

    Пишите - info@1excel.ru

Келесі