Denne artikkelen vil hjelpe deg med å lage en enkel og brukervennlig Expense manager. Nå kan du logge og spore alle dine inntekter, utgifter og holde oversikt over saldoene dine.
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
Åpne en ny arbeidsbok og lagre den som makroaktivert Excel-fil. Vi trenger bare to ark i arbeidsboken. Så slett ekstra ark. Gi nytt navn til Ark1 til "Oppføring" og gi nytt navn til Ark2 til "Database". Ark "Entry" vil være front-end av verktøyet vårt. Arket "Database" vil fungere som back-end, dvs. databasen til verktøyet vårt.
På "Oppføring"-arket oppretter du separate felt for oppføring av "Inntekt" og oppføring av "Utgift". Opprett også en "Sammendrag"-seksjon for å vise total inntekt, totale utgifter og saldobeløpet.
Vi trenger tre knapper. Den ene er for å legge til inntekt, den andre er for å legge til utgifter og en for å tømme databasen.
Legg til formel
Under «Sammendrag»-delen legger du til denne formelen i «Total inntekt»-feltet
=SUMIF(Database!B2:B18,"Income",Database!C2:C18)
Legg til formelen nedenfor i feltet "Totale utgifter".
=SUMIF(Database!B2:B18,"Expense",Database!C2:C18)
Og til slutt legg til denne formelen i "Saldo"-delen for å vise saldobeløpet
=N9-N13
Siden vår database er tom, vil alle feltene være tomme. Så snart du legger til en utgift eller en inntekt, kan du se alle feltene som viser deres respektive verdier.
La oss forberede databasen
Databasen for dette verktøyet vil ha 4 kolonner. Første kolonne er "Dato", andre er "Type", tredje er "Beløp" og siste kolonne er "Noter".
La oss gjøre det funksjonelt
Kopier skriptet til en ny modul. Legg til underdelen "Clear_Database" til "Clear Database"-knappen på arket "Entry". Legg til underdelen "Legg til_inntekt" til "Legg til inntekt"-knappen, og underdelen "Legg til_kostnad" skal være knyttet til "Legg til kostnad"-knappen.
La oss teste det
Skriv inn en inntekt og klikk "Legg til inntekt"-knappen. Nå vil sammendragsdelen vise "Total inntekt". Prøv å legge til en utgift også.
Så snart du klikker på "Legg til inntekt" eller "Legg til utgift"-knappen, vil du legge merke til at verdiene du skrev inn på "Oppføring"-arket vil bli lagret som en ny rad på "Database"-arket. Felter på «Oppføring»-arket vil bli slettet automatisk for ny oppføring.
Hvordan det fungerer?
Hver gang du legger til en inntekt eller utgift, vil skriptet søke etter den siste tomme raden i arket "Database" og legge til oppføringen i den. Formelen vi skrev inn vil lese alle data i sanntid og viser saldoen.
Endre det
Du kan enkelt endre makroen for å lese spesifikke søkeord i "Notater"-feltet og tilordne den til spesifikke tagger eller kategorier som mat eller reise.
Script
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
Noen ganger kan du støte på ødelagte Excel-filer når du bruker dette skriptet. I et slikt tilfelle kan du bruke noen tredjepartsverktøy for å reparere ødelagte Excel-filer. Det finnes ulike gjenopprettingsverktøy. Ved hjelp av DataNumen Excel Repair sørger for at du får tilbake all din lost data.
Forfatterintroduksjon:
Nick Vipond er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparer dokumentfeil og Outlook-programvareprodukter. For mer informasjon besøk www.datanumen. Med