In tegenstelling tot anderen moet u niet te veel tijd en moeite besteden aan het bijhouden van uw uitgaven. Volg dit artikel en bouw uw eigen inkomsten- en uitgaventracker. Deze tool accepteert uw bankafschriften in Excel-formaat en leest deze vervolgens om u te laten weten waar u meer heeft uitgegeven.
Laten we de GUI voorbereiden
De tool heeft 3 vellen nodig. Hernoem blad1 naar “Configuratiescherm”, blad2 naar “Samenvatting” en blad3 naar “Database”. Maak op het blad “Configuratiescherm” een veld aan waarmee de gebruiker door historische bankafschriften kan bladeren en deze kan uploaden. Om tags in te stellen voor elke transactie op uw bankafschrift, moet u voor elk tabblad trefwoorden instellen. Zoals weergegeven in de afbeelding, scheidt u meerdere trefwoorden met een komma.
Laten we het functioneel maken
Importeer het script in een nieuwe module. Voeg het script “Import_Bank_Statement” toe aan de knop “Importeren” op het blad “Configuratiescherm” en het script “Update_Tags” aan de knop “Vernieuwen”.
Hoe werkt het?
Voeg het volledige pad van uw bankafschrift toe en importeer het. Alle gegevens van uw bankafschrift worden in het blad “Database” geladen. Het script identificeert de lijst met tags die u hebt vermeld op het blad “Configuratiescherm”. Voor elke vermelde tag worden de overeenkomstige trefwoorden in een variabele gelezen en gesplitst met behulp van het SPLIT-commando van VBA. Voor elk trefwoord, gescheiden door een komma, doorzoekt het script de gehele database en identificeert de overeenkomstige waarde voor elk trefwoord. De uiteindelijke en totale waarde worden vervolgens bijgewerkt op het blad “Samenvatting”, dat het staafdiagram invult.
script:
Sub Import_Bank_Statement()
With Sheets("Database").QueryTables.Add(Connection:= _
"TEXT;" & Sheets("Control Panel").Range("B3").Value _
, Destination:=Sheets("Database").Range("$A$1"))
.Name = "Bank Statement"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Sub Update_Tags()
Dim lr As Long
Dim r As Long
Dim v_string() As String
Dim intcount As Long
Dim rindb As Long
Dim lrindb As Long
Dim v_total As Long
lr = Sheets("Control Panel").Range("K" & Rows.Count).End(xlUp).Row
For r = 3 To lr
v_total = 0
v_string = Split(Sheets("Control Panel").Range("L" & r).Value, ",")
For intcount = LBound(v_string) To UBound(v_string)
lrindb = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
For rindb = 2 To lrindb
If InStr(UCase(Sheets("Database").Range("B" & rindb).Value), UCase(Trim(v_string(intcount)))) <> 0 Then
v_total = v_total + Sheets("Database").Range("D" & rindb).Value
End If
Next rindb
Next intcount
MsgBox v_total
Sheets("Summary").Range("C" & r + 1).Value = v_total
Next r
End Sub
Pas het aan
De tool importeert nu één bankafschrift in de database. U kunt de tool zo aanpassen dat de gebruiker door een map kan bladeren en deze kan selecteren, alle beschikbare bankafschriften kan scannen en alle bestanden in de database kan importeren. Het blad “Samenvatting” kan ook worden aangepast om tags en waarden voor elke maand of week weer te geven. In plaats van de hele database te lezen, kan de macro worden aangepast om waarden tussen specifieke datums te lezen.
Snelle oplossing
Als het blad “Samenvatting” beschadigd is, kunt u het proberen Excel repareren door het beschadigde blad te verwijderen en het vervolgens opnieuw te maken in dezelfde werkmap.
Auteur Introductie:
Nick Vipond is een data recovery-expert in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupt woord en Outlook-herstelsoftwareproducten. Voor meer informatie bezoek www.datanumen.com