Ndryshe nga të tjerët, mos shpenzoni shumë kohë dhe përpjekje për të gjurmuar shpenzimet tuaja. Ndiqni këtë artikull dhe ndërtoni gjurmuesin tuaj të të ardhurave dhe shpenzimeve. Ky mjet pranon deklaratat tuaja bankare në një format Excel dhe më pas e lexon atë për t'ju bërë të ditur se ku keni shpenzuar më shumë.
Le të përgatisim GUI-në
Mjetit i duhen 3 fletë. Riemërtoni fletën 1 si "Paneli i kontrollit", fletën 2 si "Përmbledhje" dhe fletën 3 si "Baza e të dhënave". Në fletën "Paneli i Kontrollit", krijoni një fushë për të lejuar përdoruesin të shfletojë dhe të ngarkojë pasqyrën historike të bankës. Për të vendosur etiketa për çdo transaksion në pasqyrën tuaj bankare, duhet të vendosni fjalë kyçe për secilën skedë. Siç tregohet në imazh, ndani disa fjalë kyçe me presje.
Le ta bëjmë atë funksional
Importoni skriptin në një modul të ri. Bashkangjisni skriptin "Import_Bank_Statement" në butonin "Import" në fletën "Control Panel" dhe skriptin "Update_Tags" në butonin "Rifresko".
Si funksionon kjo gjë?
Shtoni shtegun e plotë të pasqyrës suaj bankare dhe importojeni atë. Të gjitha të dhënat nga pasqyra juaj bankare do të ngarkohen në fletën "Baza e të dhënave". Skripti identifikon listën e etiketave që keni përmendur në fletën "Paneli i Kontrollit". Për çdo Etiketë të listuar, fjalë kyçe përkatëse lexohen në një variabël dhe ato ndahen duke përdorur komandën SPLIT të VBA. Për çdo fjalë kyçe të ndarë me presje, skripti skanon të gjithë bazën e të dhënave dhe identifikon vlerën përkatëse për secilën fjalë kyçe. Vlera përfundimtare dhe totale përditësohen më pas në fletën "Përmbledhje" e cila plotëson grafikun e shiritit.
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
Modifikojeni atë
Mjeti tani importon një deklaratë të vetme bankare në bazën e të dhënave. Mund ta modifikoni mjetin për t'i lejuar përdoruesit të shfletojë dhe të zgjedhë një dosje, të skanojë për të gjitha deklaratat bankare të disponueshme dhe të importojë të gjithë skedarët në bazën e të dhënave. Fleta "Përmbledhje" mund të modifikohet gjithashtu për të shfaqur etiketat dhe vlerat për çdo muaj ose javë. Në vend që të lexoni të gjithë bazën e të dhënave, makro mund të modifikohet për të lexuar vlerat midis datave specifike.
Rregullim i shpejt
Nëse fleta "Përmbledhje" është e dëmtuar, mund ta provoni rregulloni Excel duke fshirë fletën e dëmtuar dhe më pas rikrijoni atë në të njëjtin libër pune.
Hyrje e autorit:
Nick Vipond është një ekspert i rikuperimit të të dhënave në DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë Fjalë e korruptuar dhe produkte softuerike për rikuperimin e opinionit. Për më shumë informacion vizitoni www.datanumen.com