Tidak seperti orang lain, jangan menghabiskan banyak masa dan usaha untuk mengesan perbelanjaan anda. Ikuti artikel ini dan bina penjejak pendapatan dan perbelanjaan anda sendiri. Alat ini menerima penyata bank anda dalam format Excel dan kemudian membacanya untuk memberitahu anda di mana anda telah menghabiskan lebih banyak perbelanjaan.
Mari Siapkan GUI
Alat itu memerlukan 3 helai. Ganti nama lembaran1 sebagai "Panel Kawalan", lembar2 sebagai "Ringkasan" dan lembar3 sebagai "Pangkalan Data". Pada helaian "Panel Kawalan", buat bidang untuk membolehkan pengguna menyemak imbas dan memuat naik penyata bank sejarah. Untuk menetapkan tag untuk setiap transaksi dalam penyata bank anda, anda perlu menetapkan kata kunci untuk setiap tab. Seperti yang ditunjukkan dalam gambar, pisahkan beberapa kata kunci dengan koma.
Mari jadikan ia berfungsi
Import skrip ke modul baru. Pasang skrip "Import_Bank_Statement" ke tombol "Import" pada lembaran "Control Panel" dan skrip "Update_Tags" ke tombol "Refresh".
Bagaimana ia berfungsi?
Tambahkan jalan penuh penyata bank anda dan import. Semua data dari penyata bank anda akan dimuat di lembaran "Pangkalan Data". Skrip mengenal pasti senarai tag yang telah anda sebutkan pada lembaran "Panel Kawalan". Untuk setiap Tag yang disenaraikan, kata kunci yang sesuai dibaca menjadi pemboleh ubah dan dibahagi menggunakan perintah SPLIT VBA. Untuk setiap kata kunci yang dipisahkan dengan koma, skrip mengimbas seluruh pangkalan data dan mengenal pasti nilai yang sesuai untuk setiap kata kunci. Nilai akhir dan total kemudian dikemas kini pada lembaran "Ringkasan" yang mengisi Graf bar.
skrip:
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
Ubah suai
Alat ini kini mengimport penyata bank tunggal ke dalam pangkalan data. Anda boleh mengubah suai alat untuk membolehkan pengguna menjelajah dan memilih folder, mengimbas semua penyata bank yang ada dan mengimport semua fail ke dalam pangkalan data. Lembaran "Ringkasan" juga dapat diubah untuk menunjukkan tag dan nilai untuk setiap bulan atau minggu. Daripada membaca keseluruhan pangkalan data, makro dapat diubah suai untuk membaca nilai antara tarikh tertentu.
Pembaikan segera
Sekiranya lembaran "Ringkasan" rosak, anda boleh mencuba betulkan Excel dengan memotong helaian yang rosak dan kemudian membuatnya semula dalam buku kerja yang sama.
Pengenalan Pengarang:
Nick Vipond adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Kata rosak dan produk perisian pemulihan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com