Acest articol vă va ajuta să creați un manager de cheltuieli simplu și ușor de utilizat. Acum vă puteți înregistra și urmări toate veniturile, cheltuielile și vă puteți urmări soldurile.
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
Deschideți un nou registru de lucru și salvați-l ca fișier Excel activat pentru macro. Avem nevoie doar de două foi în registrul de lucru. Deci ștergeți foile suplimentare. Redenumiți Sheet1 ca „Entry” și redenumiți Sheet2 ca „Database”. Foaia „Intrare” va fi partea frontală a instrumentului nostru. Foaia „Bază de date” va acționa ca back-end, adică baza de date a instrumentului nostru.
Pe foaia „Intrare”, creați câmpuri separate pentru introducerea „Venituri” și intrarea „Cheltuieli”. De asemenea, creați o secțiune „Rezumat” pentru a afișa veniturile totale, cheltuielile totale și suma soldului.
Avem nevoie de trei butoane. Unul este pentru adăugarea veniturilor, al doilea este pentru adăugarea cheltuielilor și unul pentru ștergerea bazei de date.
Adăugați o formulă
În secțiunea „Rezumat”, adăugați această formulă în câmpul „Venitul total”.
=SUMIF(Database!B2:B18,"Income",Database!C2:C18)
Adăugați formula de mai jos în câmpul „Cheltuieli totale”.
=SUMIF(Database!B2:B18,"Expense",Database!C2:C18)
Și în cele din urmă adăugați această formulă la secțiunea „Sold” pentru a afișa valoarea Soldului
=N9-N13
Deoarece baza noastră de date este goală, toate câmpurile vor fi goale. De îndată ce adăugați o cheltuială sau un venit, puteți vedea toate câmpurile care arată valorile lor respective.
Să pregătim baza de date
Baza de date pentru acest instrument va avea 4 coloane. Prima coloană este „Data”, a doua este „Tipul”, a treia este „Suma”, iar ultima coloană este „Note”.
Să-l facem funcțional
Copiați scriptul într-un modul nou. Adăugați sub „Clear_Database” la butonul „Clear Database” de pe foaia „Entry”. Adăugați sub „Add_Income” la butonul „Add Income” și sub „Add_Expense” ar trebui să fie atașat butonul „Add Expense”.
Să-l testăm
Introduceți un venit și faceți clic pe butonul „Adăugați venit”. Acum secțiunea Rezumat va afișa „Venitul total”. Încercați să adăugați și o Cheltuială.
Imediat ce faceți clic pe butonul „Adăugați venit” sau „Adăugați cheltuieli”, veți observa că valorile pe care le-ați introdus în foaia „Intrare” vor fi salvate ca un rând nou pe foaia „Bază de date”. Câmpurile din foaia „Intrare” vor fi șterse automat pentru o nouă intrare.
Cum functioneaza?
De fiecare dată când adăugați un venit sau o cheltuială, scriptul va căuta ultimul rând gol din foaia „Bază de date” și va adăuga intrarea la acesta. Formula pe care am introdus-o va citi toate datele în timp real și va afișa soldul.
Modificați-l
Puteți modifica cu ușurință macrocomandă pentru a citi anumite cuvinte cheie în câmpul „Note” și a o atribui anumitor etichete sau categorii, cum ar fi Mâncare sau Călătorii.
Scenariu
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 = "Income"
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").Range("H9").Value
Sheets("Database").Range("D" & v_lr).Value = Sheets("Entry").Range("H17").Value
Sheets("Entry").Range("H9").Value = ""
Sheets("Entry").Range("H13").Value = ""
Sheets("Entry").Range("H17").Value = ""
End Sub
Uneori, puteți întâlni fișiere Excel corupte când utilizați acest script. Într-un astfel de caz, puteți utiliza unele instrumente terțe pentru reparați fișierele Excel corupte. Există diverse instrumente de recuperare. Folosind DataNumen Excel Repair se asigură că îți recuperezi toate lost 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 reparați eroarea documentului și produse software de recuperare Outlook. Pentru mai multe informații vizitați www.datanumen.com