Dit artikel helpt u bij het maken van een eenvoudige en gebruiksvriendelijke Expense Manager. Nu kunt u al uw inkomsten en uitgaven registreren en volgen en uw saldo bijhouden.
Nu downloaden
Als je wilttarOm de software zo snel mogelijk te gebruiken, kunt u:
Anders, als je zelf wilt klussen, kun je de onderstaande inhoud lezen.
Laten we de GUI voorbereiden
Open een nieuwe werkmap en sla deze op als Excel-bestand met macro's. We hebben slechts twee bladen nodig in de werkmap. Verwijder dus extra bladen. Hernoem Blad1 als "Invoer" en hernoem Blad2 als "Database". Het blad "Invoer" wordt de front-end van onze tool. Sheet "Database" zal fungeren als de back-end, dwz de database van onze tool.
Maak op het blad “Invoer” aparte velden voor het invoeren van “Inkomen” en het invoeren van “Uitgaven”. Maak ook een sectie "Samenvatting" om het totale inkomen, de totale kosten en het saldo weer te geven.
We hebben drie knoppen nodig. Een daarvan is voor het toevoegen van inkomsten, de tweede is voor het toevoegen van kosten en een voor het leegmaken van de database.
Formule toevoegen
Voeg deze formule onder het gedeelte 'Samenvatting' toe aan het veld 'Totaal inkomen'
= SUMIF (Database! B2: B18, "Inkomen", Database! C2: C18)
Voeg de onderstaande formule toe aan het veld "Totale uitgaven"
= SUMIF (Database! B2: B18, "Uitgaven", Database! C2: C18)
Voeg tenslotte deze formule toe aan het gedeelte "Saldo" om het saldo weer te geven
= N9-N13
Aangezien onze database leeg is, zijn alle velden leeg. Zodra u een uitgave of inkomen toevoegt, ziet u alle velden met hun respectieve waarden.
Laten we de database voorbereiden
De database voor deze tool heeft 4 kolommen. De eerste kolom is de "Datum", de tweede is het "Type", de derde is het "Bedrag" en de laatste kolom is de "Opmerkingen".
Laten we het functioneel maken
Kopieer het script naar een nieuwe module. Voeg de Sub “Clear_Database” toe aan de “Clear Database” knop op het blad “Entry”. Voeg de Sub "Add_Income" toe aan de "Add Income" -knop en de Sub "Add_Expense" moet worden toegevoegd aan de "Add_Income" -knop.
Laten we het testen
Voer een inkomen in en klik op de knop "Inkomen toevoegen". Nu zal de Samenvatting sectie het “Totale inkomen” weergeven. Probeer ook een uitgave toe te voegen.
Zodra u op de knop "Inkomen toevoegen" of "Uitgave toevoegen" klikt, zult u merken dat de waarden die u op het blad "Invoer" hebt ingevoerd, worden opgeslagen als een nieuwe rij op het blad "Database". Velden op het "Invoer" -blad worden automatisch gewist voor nieuwe invoer.
Hoe werkt het?
Elke keer dat u inkomsten of uitgaven toevoegt, zoekt het script naar de laatste lege rij in het blad "Database" en voegt het de invoer eraan toe. De formule die we hebben ingevoerd, leest alle gegevens in realtime en geeft het saldo weer.
Pas het aan
U kunt de macro gemakkelijk aanpassen om specifieke trefwoorden in het veld "Notities" te lezen en deze toe te wijzen aan specifieke tags of categorieën, zoals eten of reizen.
Script
Sub Clear_Database () Sheets ("Database"). Bereik ("A2: D100"). ClearContents End Sub 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 = "Inkomen" 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 "). Bereik ("H9"). Waardebladen ("Database"). Bereik ("D" & v_l r) .Value = Sheets ("Entry"). Range ("H17"). Value Sheets ("Entry"). Range ("H9"). Value = "" Sheets ("Entry"). Range ("H13" ) .Value = "" Sheets ("Entry"). Range ("H17"). Value = "" End Sub
Soms kunt u beschadigde Excel-bestanden tegenkomen wanneer u dit script gebruikt. In dat geval kunt u hiervoor tools van derden gebruiken herstel beschadigde Excel-bestanden. Er zijn verschillende hersteltools. Gebruik makend van DataNumen Excel Repair zorgt ervoor dat je al je l terug krijgtost data.
Auteur Introductie:
Nick Vipond is een data recovery-expert in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie doc fout en Outlook-herstelsoftwareproducten. Voor meer informatie bezoek www.datanumen.com