Tento nástroj bude veľmi užitočný na správu inventára. Ak hľadáte nástroj na správu zásob alebo ak za nástroj na správu zásob platíte niekoľko dolárov, zastavte ho a v tomto článku si prečítajte tento článok, kde si môžete vytvoriť svoj vlastný systém riadenia zásob v programe Excel.
stiahnuť
Ak chcete start softvér používať čo najskôr, potom môžete:
V opačnom prípade si môžete prečítať obsah uvedený nižšie.
Poďme pripraviť GUI
Na prípravu vlastného nástroja na správu zásob pomocou programu Excel potrebujeme 3 listy. Premenujte hárok 1 na „GUI“, hárok 2 na „databázu“ a hárok 3 na „zoznam“. Na hárku „GUI“ pripravte polia na zobrazenie názvov produktov ako rozbaľovaciu ponuku a ďalšie pole, ktoré používateľovi umožní zadať množstvo, ako je znázornené na obrázku. Rozbaľovacia ponuka pomôže používateľovi ľahko zvoliť produkt namiesto zadania názvu.
Pripravme si databázu
Na hárok „Databáza“ pridajte hlavičky „Dátum“, „Názov produktu“, „Množstvo“ a „Typ“, ako je to znázornené na obrázku. Na hárok „Zoznam“ pridajte tieto hlavičky „SKU“, „Názov produktu“, „Popis“ a „Cena za položku“.
Nech je to funkčné
Skopírujte makro do nového modulu a pripojte makro „StockIN“ k tlačidlu „StockIn“ a makro „StockOut“ k tlačidlu „Stock Out“.
Sub p_prod_dropdown () Dim lr As Long Dim r As Long lr = lst.Range ("B" & Rows.Count) .End (xlUp). Zoradiť Dim prodlist ako reťazec pre r = 2 To lr If prodlist = "" Potom 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: = _ xlB Between, Formula1: = prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "". = "" .ShowInput = True .ShowError = True End s 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. Rozsah („C9“). Textdb.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
Ako to funguje?
Sub „p_prod_dropdown“ prečíta posledný použitý riadok z hárka „Zoznam“. Potom pripraví zoznam názvov produktov v rozbaľovacej ponuke a uloží ho na hárok „GUI“. Teraz môže používateľ použiť túto rozbaľovaciu ponuku a vybrať produkt. Môžu zadať množstvo a zvoliť „Skladom na sklade“ alebo „Skladom na sklade“. Ďalšie dve makrá skontrolujú posledný dostupný riadok v hárku „Databáza“ a uložia záznam z hárku „GUI“. Keď pracujete s obrovskou databázou, je bežné, že sa program Excel rúti a poškodzuje. Čistá a malá databáza vám pomôže a vyhnite sa tomu, aby ste mali poškodený Excel súbor.
Dolaďte to
Grafy zobrazené na obrázku nie sú vytvárané skriptom. Skript však môžete upraviť tak, aby vytvoril prehľady informačných panelov, a to pomocou údajov z hárku „Databáza“.
Úvod autora:
Nick Vipond je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť slovo a výhľadové softvérové produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S.
Značka