Toisin kuin muut, älä viettää liikaa aikaa ja vaivaa kulujen seuraamiseen. Seuraa tätä artikkelia ja rakenna oma tulojen ja kulujen seuranta. Tämä työkalu hyväksyy tiliotteesi Excel-muodossa ja lukee sen sitten ilmoittamaan sinulle, missä olet käyttänyt enemmän.
Valmistellaan käyttöliittymä
Työkalu tarvitsee 3 arkkia. Nimeä taulukko1 uudelleen nimellä "Ohjauspaneeli", arkki 2 nimellä "Yhteenveto" ja taulukko3 nimellä "Tietokanta". Luo Ohjauspaneeli-kenttään kenttä, jonka avulla käyttäjä voi selata ja ladata historiallista tiliotetta. Jos haluat asettaa tunnisteita jokaiselle tapahtumalle tiliotteessasi, sinun on määritettävä avainsanat kullekin välilehdelle. Kuten kuvassa näkyy, erota useita avainsanoja pilkulla.
Tehdään siitä toimiva
Tuo komentosarja uuteen moduuliin. Liitä komento "Import_Bank_Statement" Ohjauspaneelin taulukon "Import" -painikkeeseen ja "Update_Tags" - komento "Refresh" -painikkeeseen.
Miten tämä toimii?
Lisää tiliotteesi koko polku ja tuo se. Kaikki tiliotteesi tiedot ladataan Tietokanta-arkille. Komentosarja tunnistaa luettelon tunnisteista, jotka olet maininnut Ohjauspaneeli-taulukossa. Jokaiselle luetellulle tunnisteelle vastaavat avainsanat luetaan muuttujaksi ja ne jaetaan VBA: n SPLIT-komennolla. Ohjelma skannaa jokaisen pilkulla erotetun avainsanan läpi koko tietokannan ja tunnistaa kunkin avainsanan vastaavan arvon. Lopullinen ja kokonaisarvo päivitetään sitten taulukossa "Yhteenveto", joka täyttää pylväskaavion.
käsikirjoitus:
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
Muokkaa sitä
Työkalu tuo nyt yhden pankkitiliä tietokantaan. Voit muokata työkalua, jotta käyttäjä voi selata ja valita kansion, etsiä kaikki saatavilla olevat tiliotteet ja tuoda kaikki tiedostot tietokantaan. Yhteenvetotaulukkoa voidaan myös muokata näyttämään tunnisteet ja arvot jokaiselle kuukaudelle tai viikolle. Koko tietokannan lukemisen sijaan makroa voidaan muokata lukemaan arvoja tiettyjen päivämäärien välillä.
Nopea korjaus
Jos Yhteenveto-taulukko on vioittunut, voit yrittää korjaa Excel poistamalla vioittunut taulukko ja luomalla se sitten uudelleen samaan työkirjaan.
Tekijän esittely:
Nick Vipond on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korruptoitunut Word ja Outlook-palautusohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com