Excel-da bank hisobotlarini qanday import qilish va tahlil qilish

Boshqalardan farqli o'laroq, xarajatlaringizni kuzatish uchun ko'p vaqt va kuch sarflamang. Ushbu maqolani kuzatib boring va shaxsiy daromad va xarajatlar kuzatuvchingizni yarating. Ushbu vosita sizning bank ko'chirmalaringizni Excel formatida qabul qiladi va keyin qayerga ko'proq pul sarflaganingizni bilish uchun uni o'qiydi.

GUI ni tayyorlaylik

Asbobga 3 ta varaq kerak. 1-varaq nomini “Boshqarish paneli”, varaq2ni “Xulosa” va varaq3ni “Ma’lumotlar bazasi” deb o‘zgartiring. “Boshqarish paneli” sahifasida foydalanuvchiga tarixiy bank hisobotini ko‘rib chiqish va yuklash imkonini beruvchi maydon yarating. Bank ko'chirmangizdagi har bir tranzaksiya uchun teglarni o'rnatish uchun har bir yorliq uchun kalit so'zlarni o'rnatishingiz kerak. Rasmda ko'rsatilganidek, bir nechta kalit so'zlarni vergul bilan ajrating.

Keling, uni funksional holga keltiraylik

Skriptni yangi modulga import qiling. “Import_Bank_Statement” skriptini “Boshqarish paneli” varaqidagi “Import” tugmasiga va “Yangilash” tugmasiga “Yangilanish_Teglar” skriptini biriktiring.

Bu qanday ishlaydi?

Bank ko'chirmasining to'liq yo'lini qo'shing va uni import qiling. Bank ko'chirmangizdagi barcha ma'lumotlar "Ma'lumotlar bazasi" varag'iga yuklanadi. Skript "Boshqarish paneli" varag'ida eslatib o'tgan teglar ro'yxatini aniqlaydi. Har bir sanab o'tilgan teg uchun tegishli kalit so'zlar o'zgaruvchiga o'qiladi va ular VBA ning SPLIT buyrug'i yordamida bo'linadi. Vergul bilan ajratilgan har bir kalit so'z uchun skript butun ma'lumotlar bazasini ko'zdan kechiradi va har bir kalit so'z uchun mos keladigan qiymatni aniqlaydi. Yakuniy va umumiy qiymat so'ngra "Xulosa" varag'ida yangilanadi, u Grafik satrini to'ldiradi.

Ssenariy:

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

Uni o'zgartiring

Ushbu vosita endi ma'lumotlar bazasiga bitta bank ko'chirmasini import qiladi. Siz foydalanuvchiga jildni ko'rib chiqish va tanlash, barcha mavjud bank ko'chirmalarini skanerlash va barcha fayllarni ma'lumotlar bazasiga import qilish uchun asbobni o'zgartirishingiz mumkin. "Xulosa" varag'i har oy yoki hafta uchun teglar va qiymatlarni ko'rsatish uchun ham o'zgartirilishi mumkin. Butun ma'lumotlar bazasini o'qish o'rniga, makroni ma'lum sanalar orasidagi qiymatlarni o'qish uchun o'zgartirish mumkin.

Tezkor tuzatish

Agar "Xulosa" varaqasi buzilgan bo'lsa, siz sinab ko'rishingiz mumkin Excelni tuzatish buzilgan varaqni o'chirish va keyin uni bir xil ish kitobida qayta yaratish orqali.

Muallif kirish:

Nik Vipond - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan Word va istiqbolni tiklash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com