Ինչպես ներմուծել և վերլուծել ձեր բանկային հայտարարությունները Excel- ում

Ի տարբերություն մյուսների, չափազանց շատ ժամանակ և ջանք մի ծախսեք ձեր ծախսերը հետևելու համար: Հետևեք այս հոդվածին և կառուցեք ձեր սեփական եկամուտների և ծախսերի որոնիչը: Այս գործիքը ընդունում է ձեր բանկային քաղվածքները Excel ձևաչափով, այնուհետև կարդում է այն ՝ ձեզ տեղեկացնելու համար, թե որտեղ եք ավելի շատ ծախսել:

Պատրաստենք GUI

Գործիքին անհրաժեշտ է 3 թերթ: Թերթը 1-ը վերանվանել «Կառավարման վահանակ», թերթիկը 2-ը ՝ «Ամփոփում», իսկ թերթ 3-ը ՝ «Շտեմարան»: «Կառավարման վահանակ» թերթիկի վրա ստեղծեք դաշտ, որը թույլ կտա օգտվողին թերթել և բեռնել պատմական բանկային քաղվածք: Ձեր բանկային հայտարարության մեջ յուրաքանչյուր գործարքի համար պիտակներ սահմանելու համար հարկավոր է յուրաքանչյուր ներդիրի համար հիմնաբառեր սահմանել: Ինչպես ցույց է տրված նկարում, առանձնացրեք բազմաթիվ հիմնաբառեր ստորակետով:

Եկեք այն դարձնենք ֆունկցիոնալ

Ներմուծեք սցենարը նոր մոդուլի մեջ: «Թարմացնել» կոճակին կցեք «Import_Bank_Statement» գրությունը «Կառավարման վահանակ» թերթիկի «Ներմուծում» կոճակին, իսկ «Update_Tags» սցենարը:

Ինչպես է դա աշխատում?

Ավելացրեք ձեր բանկային քաղվածքի լրիվ ուղին և ներմուծեք այն: Ձեր բանկային քաղվածքի բոլոր տվյալները կտեղադրվեն «Շտեմարան» թերթիկի վրա: Սցենարը նույնացնում է պիտակների ցուցակը, որոնք դուք նշել եք «Կառավարման վահանակ» թերթիկի վրա: Յուրաքանչյուր թվարկված Պիտակի համար համապատասխան հիմնաբառերը կարդացվում են փոփոխականի մեջ և դրանք բաժանվում են ՝ օգտագործելով VBA- ի SPLIT հրամանը: Ստորակետով առանձնացված յուրաքանչյուր հիմնաբառի համար սցենարը սկանավորում է ամբողջ տվյալների բազան և նույնացնում յուրաքանչյուր համապատասխան բառի համապատասխան արժեքը: Վերջնական և ընդհանուր արժեքը այնուհետև թարմացվում է «Ամփոփում» թերթիկի վրա, որը լրացնում է գծապատկերը:

Սցենար

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

Փոփոխել այն

Գործիքն այժմ տվյալների բազայում է ներմուծում մեկ բանկային քաղվածք: Կարող եք փոփոխել գործիքը ՝ թույլ տալով օգտվողին թերթել և ընտրել պանակ, զննել բոլոր մատչելի բանկային քաղվածքները և ներմուծել բոլոր ֆայլերը տվյալների բազայում: «Ամփոփում» թերթը կարող է նաև փոփոխվել ՝ յուրաքանչյուր ամսվա կամ շաբաթվա համար պիտակներն ու արժեքները ցույց տալու համար: Ամբողջ տվյալների բազան կարդալու փոխարեն մակրոը կարող է փոփոխվել ՝ կարդալով որոշակի ամսաթվերի արժեքները:

Արագ շտկում

Եթե ​​«Ամփոփում» թերթը վնասված է, կարող եք փորձել ուղղել Excel- ը ջնջելով փչացած թերթիկը և այնուհետև վերստեղծել նույն աշխատանքային գրքում:

Հեղինակի ներածություն.

Nick Vipond- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում ապականված Խոսք և հեռանկարների վերականգնման ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com