Na rozdiel od iných netrávte príliš veľa času a úsilia sledovaním svojich výdavkov. Postupujte podľa tohto článku a vytvorte si vlastný nástroj na sledovanie príjmov a výdavkov. Tento nástroj prijíma vaše bankové výpisy vo formáte Excel a potom ich prečíta, aby ste vedeli, kde ste minuli viac.
Poďme pripraviť GUI
Nástroj potrebuje 3 listy. Premenujte list1 na „Ovládací panel“, list2 na „Súhrn“ a list3 na „Databáza“. Na hárku „Ovládací panel“ vytvorte pole, ktoré používateľovi umožní prehliadať a nahrávať historické výpisy z účtu. Ak chcete nastaviť značky pre každú transakciu vo svojom bankovom výpise, musíte pre každú kartu nastaviť kľúčové slová. Ako je znázornené na obrázku, oddeľte viacero kľúčových slov čiarkou.
Nech je to funkčné
Importujte skript do nového modulu. Pripojte skript „Import_Bank_Statement“ k tlačidlu „Import“ na hárku „Ovládací panel“ a skript „Update_Tags“ k tlačidlu „Obnoviť“.
Ako to funguje?
Pridajte celú cestu k bankovému výpisu a importujte ho. Všetky údaje z vášho bankového výpisu sa načítajú na hárok „Databáza“. Skript identifikuje zoznam značiek, ktoré ste uviedli na hárku „Ovládací panel“. Pre každý uvedený tag sa zodpovedajúce kľúčové slová načítajú do premennej a rozdelia sa pomocou príkazu SPLIT jazyka VBA. Pre každé kľúčové slovo oddelené čiarkou skript prehľadá celú databázu a identifikuje zodpovedajúcu hodnotu pre každé kľúčové slovo. Konečná a celková hodnota sa potom aktualizuje na hárku „Súhrn“, ktorý vyplní stĺpcový graf.
scenár:
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
Upravte to
Nástroj teraz importuje jeden bankový výpis do databázy. Nástroj môžete upraviť tak, aby umožnil používateľovi prehliadať a vyberať priečinok, skenovať všetky dostupné bankové výpisy a importovať všetky súbory do databázy. Hárok „Súhrn“ možno tiež upraviť tak, aby zobrazoval značky a hodnoty pre každý mesiac alebo týždeň. Namiesto čítania celej databázy je možné makro upraviť na čítanie hodnôt medzi konkrétnymi dátumami.
Rýchla oprava
Ak je hárok „Súhrn“ poškodený, môžete to skúsiť opraviť Excel odstránením poškodeného hárka a jeho opätovným vytvorením v tom istom zošite.
Úvod autora:
Nick Vipond je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skazené Slovo a výhľadové softvérové produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S