Acest instrument va fi foarte util pentru gestionarea inventarului. Dacă sunteți în căutarea unui instrument de gestionare a stocurilor sau dacă plătiți câțiva dolari pentru un instrument de gestionare a inventarului, opriți-l și citiți acest articol pentru a vă construi propriul sistem de gestionare a stocurilor în Excel.
Descarcă acum
Dacă vrei să starPentru a utiliza software-ul cât mai curând posibil, atunci puteți:
În rest, dacă vrei să faci DIY, poți citi conținutul de mai jos.
Să pregătim GUI
Avem nevoie de 3 foi pentru a ne pregăti propriul instrument de gestionare a stocurilor folosind Excel. Redenumiți Foaia 1 ca „GUI”, Foaia 2 ca „Bază de date” și Foaia 3 ca „Lista”. Pe foaia „GUI”, pregătiți câmpuri pentru a afișa numele produselor ca drop-down și un alt câmp pentru a permite utilizatorului să introducă cantitatea așa cum se arată în imagine. Meniul drop-down va ajuta utilizatorul să aleagă cu ușurință un Produs, mai degrabă decât să tasteze numele.
Să pregătim baza de date
Pe foaia „Bază de date”, adăugați anteturile „Data”, „Nume produs”, „Cantitate” și „Tip”, așa cum se arată în imagine. Pe foaia „Lista” adăugați aceste anteturi „SKU”, „Nume produs”, „Descriere” și „Preț pe articol”.
Să-l facem funcțional
Copiați macro-ul într-un modul nou și atașați macro-ul „StockIN” la butonul „StockIn” și macro-ul „StockOut” la butonul „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"). Validare .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" ."="ErrorTitle .MessageErrorMessage .Message = "" .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” și lr).Value = Now() db.Range(„B” și lr).Value = gui.Range(„C6”).Text db.Range(„C” și 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).Rând + 1 db.Range(„A” și lr).Value = Now() db.Range(„B” și lr).Value = gui.Range(„C6”).Text db.Range( „C” și lr).Value = gui.Range(„C9”).Text db.Range(„D” și lr).Value = „OUT” End Sub
Cum functioneaza?
Sub „p_prod_dropdown” citește ultimul rând folosit din foaia „List”. Apoi pregătește lista de nume de produse ca meniu vertical și o salvează pe foaia „GUI”. Acum utilizatorul poate folosi acest meniu derulant și poate selecta un produs. Ei pot introduce o cantitate și pot alege „Stock In” sau „Stock Out”. Celelalte două macrocomandări verifică ultimul rând disponibil din foaia „Bază de date” și salvează intrarea din foaia „GUI”. Când aveți de-a face cu o bază de date uriașă, este obișnuit să vedeți ca Excel să se prăbușească și să fie corupt. O bază de date curată și mică vă va ajuta și evita să aveți un a corupt Excel fișier.
Ajustați-l
Graficele afișate în imagine nu sunt create de script. Cu toate acestea, puteți modifica scriptul pentru a crea rapoarte de bord folosind datele din foaia „Bază de date”.
Introducerea autorului:
Nick Vipond este un expert în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv fix cuvânt și produse software de recuperare Outlook. Pentru mai multe informații vizitați www.datanumen.com.
Marca