כיצד לייבא ולנתח את דפי הבנק שלך באקסל

בניגוד לאחרים, אל תבזבז יותר מדי זמן ומאמצים במעקב אחר ההוצאות שלך. עקוב אחר מאמר זה ובנה מעקב הכנסות והוצאות משלך. כלי זה מקבל את דפי הבנק שלך בפורמט Excel ולאחר מכן קורא אותם כדי ליידע אותך היכן הוצאת יותר.

בואו נכין את ה-GUI

הכלי צריך 3 גיליונות. שנה את שם גיליון1 ל"לוח הבקרה", גיליון2 כ"סיכום" וגיליון3 כ"מסד נתונים". בגיליון "לוח בקרה", צור שדה כדי לאפשר למשתמש לגלוש ולהעלות דף חשבון בנק היסטורי. כדי להגדיר תגים עבור כל עסקה בדף חשבון הבנק שלך, עליך להגדיר מילות מפתח עבור כל כרטיסייה. כפי שמוצג בתמונה, הפרד מילות מפתח מרובות בפסיק.

בואו נעשה את זה פונקציונלי

ייבא את הסקריפט למודול חדש. צרף את הסקריפט "Import_Bank_Statement" לכפתור "ייבוא" בגיליון "לוח בקרה" ואת הסקריפט "Update_Tags" לכפתור "Refresh".

איך זה עובד?

הוסף את הנתיב המלא של דף חשבון הבנק שלך וייבא אותו. כל הנתונים מתדפיס הבנק שלך ייטענו בגיליון "מסד נתונים". הסקריפט מזהה את רשימת התגים שהזכרת בגיליון "לוח הבקרה". עבור כל תג רשום, מילות מפתח מתאימות נקראות למשתנה והן מפוצלות באמצעות פקודת SPLIT של VBA. עבור כל מילת מפתח מופרדת בפסיק, הסקריפט סורק את כל מסד הנתונים ומזהה את הערך המתאים לכל מילת מפתח. לאחר מכן הערך הסופי והסך הכל מתעדכנים בגיליון "סיכום" המאכלס את גרף העמודות.

תסריט:

Sub Import_Bank_Statement() With Sheets("Database").QueryTables.Add(Connection:= _ "TEXT;" & Sheets("לוח בקרה").Range("B3").Value _ , Destination:=Sheets("Database ").Range("$A$1")) .Name = "דוח בנק" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteSword =xlInsertDeleteS.Sass. True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolon = False .TextFileSemicolonT. tFileSpaceDelimiter = 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( "לוח בקרה").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, ",") עבור 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 ואז 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

שנה את זה

הכלי מייבא כעת דף חשבון בנק בודד למסד הנתונים. אתה יכול לשנות את הכלי כדי לאפשר למשתמש לגלוש ולבחור תיקיה, לסרוק את כל דפי הבנק הזמינים ולייבא את כל הקבצים למסד הנתונים. ניתן גם לשנות את הגיליון "סיכום" כדי להציג תגים וערכים עבור כל חודש או שבוע. במקום לקרוא את כל מסד הנתונים, ניתן לשנות את המאקרו לקריאת ערכים בין תאריכים ספציפיים.

תיקון מהיר

אם הגיליון "סיכום" פגום, אתה יכול לנסות לתקן את האקסל על ידי מחיקת הגיליון הפגום ולאחר מכן צור אותו מחדש באותה חוברת עבודה.

מבוא למחבר:

ניק Vipond הוא מומחה לשחזור נתונים בתחום DataNumen, Inc., שהיא המובילה העולמית בטכנולוגיות שחזור נתונים, כולל Word מושחת ומוצרי תוכנה לשחזור Outlook. למידע נוסף בקר www.datanumen.com