Dette verktøyet vil være veldig nyttig for å administrere beholdningen din. Hvis du søker etter et lagerstyringsverktøy eller hvis du betaler flere dollar for et lagerstyringsverktøy, stopp det og les denne artikkelen for å bygge ditt eget lagerstyringssystem i Excel.
Last ned nå
Hvis du ønsker å starFor å bruke programvaren så snart som mulig, kan du:
Ellers, hvis du vil gjøre DIY, kan du lese innholdet nedenfor.
La oss forberede GUI
Vi trenger 3 ark for å forberede vårt eget lagerstyringsverktøy ved hjelp av Excel. Gi nytt navn til ark 1 til "GUI", ark 2 til "Database" og ark 3 til "Liste". På arket "GUI", klargjør felter for å vise produktnavn som rullegardin og et annet felt for å la brukeren legge inn antallet som vist på bildet. Nedtrekkslisten vil hjelpe brukeren til å enkelt velge et produkt i stedet for å skrive navnet.
La oss forberede databasen
På arket "Database", legg til overskrifter "Dato", "Produktnavn", "Antall" og "Type" som vist på bildet. På arket "Liste" legger du til disse overskriftene "SKU", "Produktnavn", "Beskrivelse" og "Pris pr. vare".
La oss gjøre det funksjonelt
Kopier makroen til en ny modul og fest makroen "StockIN" til knappen "StockIn" og makroen "StockOut" til knappen "StockOut".
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 = "" Så prodlist = lst.Range("B" & r).Verdi Else prodlist = prodlist & "," & lst.Range("B" & r).Value End If Next r With gui.Range("C6:H6"). Validering .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .s"Error.Meter = "" .ShowInput = True .ShowError = True End With End 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).Verdi = gui.Range("C6").Tekst db.Range("C" & lr).Verdi = 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
Hvordan virker det?
Sub "p_prod_dropdown" leser den sist brukte raden fra arket "List". Den forbereder deretter listen over produktnavn som rullegardin og lagrer den på arket "GUI". Nå kan brukeren bruke denne rullegardinmenyen og velge et produkt. De kan legge inn et antall og velge "Stock In" eller "Stock Out". De to andre makroene ser etter den siste tilgjengelige raden i arket "Database" og lagrer oppføringen fra arket "GUI". Når du har å gjøre med en enorm database, er det vanlig å se at Excel krasjer og blir ødelagt. En ren og liten database vil hjelpe deg og unngå å ha en ødelagt Excel filen.
Juster det
Grafer vist i bildet er ikke laget av skriptet. Du kan imidlertid endre skriptet for å lage dashbordrapporter ved å bruke dataene fra arket "Database".
Forfatterintroduksjon:
Nick Vipond er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse ord og Outlook-programvareprodukter. For mer informasjon besøk www.datanumen. Med.
Merke