Этот инструмент будет очень удобен для управления вашим инвентарем. Если вы ищете инструмент управления запасами или платите несколько долларов за инструмент управления запасами, остановите его и прочитайте эту статью, чтобы создать собственную систему управления запасами в Excel.
Скачать сейчас
Если вы хотите сtart использовать программное обеспечение как можно скорее, то вы можете:
Загрузите программное обеспечение сейчас
В противном случае, если вы хотите сделать своими руками, вы можете прочитать содержимое ниже.
Давайте подготовим графический интерфейс
Нам нужно 3 листа, чтобы подготовить собственный инструмент управления запасами с помощью Excel. Переименуйте Лист 1 в «GUI», Лист 2 в «Базу данных» и Лист 3 в «Список». На листе «GUI» подготовьте поля для отображения названий продуктов в виде раскрывающегося списка и еще одно поле, чтобы пользователь мог ввести количество, как показано на изображении. Раскрывающийся список поможет пользователю легко выбрать продукт, а не вводить его название.
Подготовим базу
На лист «База данных» добавьте заголовки «Дата», «Наименование товара», «Количество» и «Тип», как показано на изображении. На листе «Список» добавьте заголовки «Артикул», «Название товара», «Описание» и «Цена за товар».
Давайте сделаем его функциональным
Скопируйте макрос в новый модуль и прикрепите макрос StockIN к кнопке StockIn и макрос StockOut к кнопке Stock Out.
Sub p_prod_dropdown() Dim lr As Long Dim r As Long lr = lst.Range("B" & Rows.Count).End(xlUp).Row Dim prodlist As String For r = 2 To lr If prodlist = "" Then prodlist = lst.Range("B" & r).Value Else prodlist = prodlist & "," & lst.Range("B" & r).Value End If Next r With gui.Range("C6:H6"). Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub Sub StockIN() Dim lr As Long lr = db.Range("A" & Rows.Count).End(xlUp).Row + 1 db.Range( "A" & lr).Value = Now() db.Range("B" & lr).Value = gui.Range("C6").Text db.Range("C" & lr).Value = gui. Range("C9").Text db.Range("D" & lr).Value = "IN" End Sub Sub StockOUT() Dim lr As Long lr = db.Range("A" & Rows.Count).End (xlUp).Row + 1 db.Range("A" & lr).Value = Now() db.Range("B" & lr).Value = gui.Range("C6").Text db.Range( "C" и lr).Value = gui.Range("C9").Text db.Range("D" & lr).Value = "OUT" End Sub
Как это работает?
Подпрограмма «p_prod_dropdown» считывает последнюю использованную строку из листа «Список». Затем он подготавливает список названий продуктов в виде раскрывающегося списка и сохраняет его на листе «GUI». Теперь пользователь может использовать этот раскрывающийся список и выбрать продукт. Они могут ввести количество и выбрать «На складе» или «На складе нет». Два других макроса проверяют последнюю доступную строку на листе «База данных» и сохраняют запись с листа «GUI». При работе с огромной базой данных часто случаются сбои и повреждения Excel. Чистая и небольшая база данных поможет вам избежать испорченный Excel .
Настройте это
Графики, показанные на изображении, не созданы скриптом. Однако вы можете модифицировать скрипт для создания сводных отчетов, используя данные с листа «База данных».
Об авторе:
Ник Випонд — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить слово и программные продукты для восстановления Outlook. Для получения дополнительной информации посетите www.datanumen.com.
Бренд