Jak vytvořit vlastní správce výdajů pomocí aplikace Excel VBA

Tento článek vám pomůže vytvořit jednoduchý a snadno použitelný správce výdajů. Nyní můžete zaznamenávat a sledovat všechny své příjmy, výdaje a sledovat své zůstatky.

Stáhnout nyní

Pokud chcete start používat software co nejdříve, pak můžete:

Stáhněte si software hned

Jinak si můžete přečíst obsah níže, pokud si chcete udělat kutilství.

Připravíme GUI

Otevřete nový sešit a uložte jej jako soubor Excel s podporou maker. V sešitu potřebujeme jen dva listy. Takže smažte další listy. Přejmenujte Sheet1 jako „Entry“ a přejmenujte Sheet2 jako „Database“. List „Vstup“ bude front-endem našeho nástroje. List „Databáze“ bude fungovat jako back-end, tj. Databáze našeho nástroje.

Na listu „Vstup“ vytvořte samostatná pole pro vstup „Příjem“ a vstup „Výdaj“. Vytvořte také část „Shrnutí“, která zobrazuje celkový příjem, celkové náklady a částku zůstatku.

Potřebujeme tři tlačítka. Jeden je pro přidání příjmu, druhý pro přidání výdajů a jeden pro vymazání databáze.

Přidejte vzorec

V části Souhrn přidejte tento vzorec do pole „Celkový příjem“

= SUMIF (databáze! B2: B18, "příjem", databáze! C2: C18)

Přidejte následující vzorec do pole „Celkové výdaje“

= SUMIF (Databáze! B2: B18, "Výdaje", Databáze! C2: C18)

A nakonec přidejte tento vzorec do sekce „Zůstatek“, aby se zobrazila částka Zůstatek

= N9-N13

Protože je naše databáze prázdná, všechna pole budou prázdná. Jakmile přidáte výdaj nebo příjem, uvidíte všechna pole s příslušnými hodnotami.

Připravme databázi

Databáze tohoto nástroje bude mít 4 sloupce. První sloupec je „Datum“, druhý je „Typ“, třetí je „Částka“ a poslední sloupec je „Poznámky“.

Udělejme to funkční

Zkopírujte skript do nového modulu. Přidejte pod „Clear_Database“ tlačítko „Vymazat databázi“ na listu „Záznam“. Přidejte Sub „Add_Income“ k tlačítku „Add Income“ a Sub „Add_Expense“ by mělo být připojeno k tlačítku „Add Expense“.

Zkusme to

Zadejte příjem a klikněte na tlačítko „Přidat příjem“. Nyní se v části Souhrn zobrazí „Celkový příjem“. Zkuste také přidat Výdaje.

Jakmile kliknete na tlačítko „Přidat příjem“ nebo „Přidat výdaj“, všimnete si, že hodnoty, které jste zadali na listu „Vstup“, se uloží jako nový řádek na list „Databáze“. Pole na listu „Záznam“ budou pro nový záznam automaticky vymazána.

Jak to funguje?

Pokaždé, když přidáte příjem nebo výdaj, skript vyhledá poslední prázdný řádek v listu „Databáze“ a přidá k němu položku. Vzorec, který jsme zadali, načte všechna data v reálném čase a zobrazí zůstatek.

Upravte to

Makro můžete snadno upravit tak, aby čtelo konkrétní klíčová slova v poli „Poznámky“ a přiřadit ho ke konkrétním tagům nebo kategoriím, jako je jídlo nebo cestování.

Scénář

Sub Clear_Database () Sheets ("Database"). Range ("A2: D100"). ClearContents End Sub Sub Add_Income () Dim v_lr As Long v_lr = Sheets ("Database"). Range ("A" & Rows.Count) .End (xlUp) .Row + 1 Sheets ("Database"). Range ("A" & v_lr) .Value = Sheets ("Entry"). Range ("B13"). Value Sheets ("Database"). Range ("B" & v_lr) .Value = "Příjem" Sheets ("Database"). Range ("C" & v_lr) .Value = Sheets ("Entry"). Range ("B9"). Value Sheets ("Database" ") .Range (" D "& v_lr) .Value = Sheets (" Entry "). Range (" B17 "). Value Sheets (" Entry "). Range (" B9 "). Value =" "Sheets (" Entry "). Range (" B13 "). Value =" "Sheets (" Entry "). Range (" B17 "). Value =" "End Sub Sub Add_Expense () Dim v_lr As Long v_lr = Sheets (" Database " ) .Range ("A" & Rows.Count) .End (xlUp) .Row + 1 Sheets ("Database"). Range ("A" & v_lr) .Value = Sheets ("Entry"). Range ("H13 ") .Value Sheets (" Database "). Range (" B "& v_lr) .Value =" Expense "Sheets (" Database "). Range (" C "& v_lr) .Value = Sheets (" Entry "). Rozsah ("H9"). Hodnotové listy ("Databáze"). Rozsah ("D" & v_l r) .Value = Sheets ("Entry"). Range ("H17"). Value Sheets ("Entry"). Range ("H9"). Value = "" Sheets ("Entry"). Range ("H13" ) .Value = "" Listy ("Vstup"). Rozsah ("H17"). Hodnota = "" End Sub

Při použití tohoto skriptu se někdy můžete setkat s poškozenými soubory aplikace Excel. V takovém případě můžete použít některé nástroje třetích stran opravit poškozené soubory aplikace Excel. Existují různé nástroje pro obnovení. Použitím DataNumen Excel Repair zajišťuje, že dostanete zpět všechny své lost data.

Úvod autora:

Nick Vipond je odborníkem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně chyba opravy dokumentu a softwarové produkty pro obnovení aplikace Outlook. Pro více informací navštivte www.datanumen.com