Na rozdíl od jiných nevěnujte sledování svých výdajů příliš mnoho času a úsilí. Postupujte podle tohoto článku a vytvořte si vlastní sledování příjmů a výdajů. Tento nástroj přijímá vaše bankovní výpisy ve formátu Excel a poté je přečte, abyste věděli, kde jste utratili více.
Připravíme GUI
Nástroj potřebuje 3 listy. Přejmenujte list1 na „Ovládací panely“, list2 na „Souhrn“ a list3 na „Databáze“. Na listu „Ovládací panel“ vytvořte pole, které uživateli umožní procházet a nahrávat historický bankovní výpis. Chcete-li nastavit značky pro každou transakci na vašem bankovním výpisu, musíte pro každou kartu nastavit klíčová slova. Jak je znázorněno na obrázku, oddělte více klíčových slov čárkou.
Udělejme to funkční
Importujte skript do nového modulu. Připojte skript „Import_Bank_Statement“ k tlačítku „Import“ na listu „Control Panel“ a skript „Update_Tags“ k tlačítku „Refresh“.
Jak to funguje?
Přidejte úplnou cestu k bankovnímu výpisu a importujte jej. Všechny údaje z vašeho bankovního výpisu se načtou na list „Databáze“. Skript identifikuje seznam značek, které jste uvedli na listu „Ovládací panely“. Pro každý uvedený tag se odpovídající klíčová slova načtou do proměnné a rozdělí se pomocí příkazu SPLIT jazyka VBA. Pro každé klíčové slovo oddělené čárkou skript prohledá celou databázi a identifikuje odpovídající hodnotu pro každé klíčové slovo. Konečná a celková hodnota se pak aktualizuje na listu „Souhrn“, který vyplní sloupcový graf.
Skript:
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 nyní importuje jeden bankovní výpis do databáze. Nástroj můžete upravit tak, aby uživateli umožnil procházet a vybírat složku, vyhledávat všechny dostupné bankovní výpisy a importovat všechny soubory do databáze. List „Souhrn“ lze také upravit tak, aby zobrazoval značky a hodnoty pro každý měsíc nebo týden. Místo čtení celé databáze lze makro upravit tak, aby načítalo hodnoty mezi konkrétními daty.
Rychlá oprava
Pokud je list „Souhrn“ poškozen, můžete to zkusit opravit Excel odstraněním poškozeného listu a jeho opětovném vytvoření ve stejném sešitu.
Úvod autora:
Nick Vipond je odborníkem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkažené slovo a softwarové produkty pro obnovení aplikace Outlook. Pro více informací navštivte www.datanumen.com