এক্সেলে আপনার ব্যাঙ্কের বিবৃতিগুলি কীভাবে আমদানি করা এবং বিশ্লেষণ করা যায়

অন্যদের মতো নয়, আপনার ব্যয়গুলি সন্ধানে খুব বেশি সময় এবং প্রচেষ্টা ব্যয় করবেন না। এই নিবন্ধটি অনুসরণ করুন এবং আপনার নিজের আয় এবং ব্যয়ের ট্র্যাকার তৈরি করুন। এই সরঞ্জামটি আপনার ব্যাঙ্কের বিবৃতিগুলিকে একটি এক্সেল ফর্ম্যাটে গ্রহণ করে এবং তারপরে আপনি কোথায় বেশি ব্যয় করেছেন তা আপনাকে তা জানতে পাঠায়।

আসুন জিইউআই প্রস্তুত করি

সরঞ্জামটির জন্য 3 টি শীট দরকার। শীট 1 কে "কন্ট্রোল প্যানেল", শীট 2 কে "সংক্ষিপ্তকরণ" এবং শীট 3 কে "ডেটাবেস" হিসাবে নামকরণ করুন। "কন্ট্রোল প্যানেল" শীটে, ব্যবহারকারীকে historicalতিহাসিক ব্যাংক বিবৃতি ব্রাউজ এবং আপলোড করার অনুমতি দেওয়ার জন্য একটি ক্ষেত্র তৈরি করুন। আপনার ব্যাঙ্কের বিবৃতিতে প্রতিটি লেনদেনের জন্য ট্যাগ সেট করতে, আপনাকে প্রতিটি ট্যাবের জন্য কীওয়ার্ড সেট করতে হবে। ছবিতে প্রদর্শিত হিসাবে, কমা দ্বারা একাধিক কীওয়ার্ড পৃথক করুন।

আসুন এটি কার্যকরী করি

নতুন মডিউলে স্ক্রিপ্টটি আমদানি করুন। "কন্ট্রোল প্যানেল" শীটের "আমদানি" বোতামটিতে "আমদানি_ব্যাঙ্ক_সেটেটমেন্ট" স্ক্রিপ্ট এবং "রিফ্রেশ" বোতামে স্ক্রিপ্ট "আপডেটট্যাগগুলি" সংযুক্ত করুন।

এটা কিভাবে কাজ করে?

আপনার ব্যাঙ্কের বিবৃতিটির পুরো পথ জুড়ুন এবং এটি আমদানি করুন। আপনার ব্যাঙ্কের বিবৃতি থেকে সমস্ত ডেটা শীট "ডেটাবেস" এ লোড হবে। স্ক্রিপ্টটি "কন্ট্রোল প্যানেল" শীটটিতে উল্লিখিত ট্যাগগুলির তালিকা সনাক্ত করে। প্রতিটি তালিকাভুক্ত ট্যাগের জন্য, সংশ্লিষ্ট কীওয়ার্ডগুলি একটি ভেরিয়েবলের মধ্যে পড়ে এবং সেগুলি ভিবিএর এসপিএলআইটি কমান্ড ব্যবহার করে বিভক্ত হয়। কমা দ্বারা বিভক্ত প্রতিটি কীওয়ার্ডের জন্য, স্ক্রিপ্টটি পুরো ডাটাবেসের মাধ্যমে স্ক্যান করে প্রতিটি কীওয়ার্ডের জন্য সংশ্লিষ্ট মান সনাক্ত করে। চূড়ান্ত এবং মোট মানটি তারপরে শীট "সংক্ষিপ্তর" এ আপডেট করা হয় যা বার গ্রাফকে জনপ্রিয় করে তোলে।

স্ক্রিপ্ট:

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

এটি পরিবর্তন করুন

সরঞ্জামটি এখন ডাটাবেসে একটি একক ব্যাংক বিবরণ আমদানি করে। আপনি ব্যবহারকারীকে ব্রাউজ করতে এবং একটি ফোল্ডার নির্বাচন করতে, সমস্ত উপলভ্য ব্যাঙ্কের স্টেটমেন্টগুলির জন্য স্ক্যান করতে এবং ডেটাবেসে সমস্ত ফাইল আমদানি করার জন্য সরঞ্জামটি সংশোধন করতে পারেন। "সংক্ষিপ্তসার" শীটটি প্রতিটি মাস বা সপ্তাহের জন্য ট্যাগ এবং মানগুলি দেখানোর জন্যও পরিবর্তন করা যেতে পারে। পুরো ডাটাবেসটি পড়ার পরিবর্তে, নির্দিষ্ট তারিখের মধ্যে মানগুলি পড়তে ম্যাক্রো পরিবর্তন করা যেতে পারে।

দ্রুত ঠিক করা

শীটটি "সংক্ষিপ্তসার" নষ্ট হয়ে গেলে আপনি চেষ্টা করতে পারেন এক্সেল ঠিক করুন দূষিত শীট মুছে ফেলা এবং তারপরে এটি একই ওয়ার্কবুকটিতে পুনরায় তৈরি করুন।

লেখকের ভূমিকা:

নিক ভিপন্ড একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত শব্দ এবং আউটলুক পুনরুদ্ধার সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com