এটি একটি সংমিশ্রণ সূত্র তৈরি করা সম্ভব যা দৈনিক যোগ করা নতুন ওয়ার্কশীট যোগ করবে?

Question

আমার কাছে একটি কার্যপত্র রয়েছে যা ব্যবহারকারী প্রতিদিন খোলে এবং একটি বোতামে ক্লিক করে যা বর্তমান শীটকে একটি নতুন পত্রক এবং নামগুলি (দিন 1, দিন 2, ইত্যাদি) অনুলিপি করে।

আমি এই শীটগুলির কিছু কোষে একটি সংমিশ্রণ গণনা রাখতে চাই। উদাহরণস্বরূপ, প্রথম দিনে দৈনিক কলামে শীটটিতে 1 টি নিরাপত্তা ঘটনা প্রবেশ করে এবং সংযোজনকারী কলাম গণনা করা হয়। 1 দিন 2 শীট তৈরি হওয়ার পরে, আমি সংযোজনকারী কলামটি যে কোন ঘটনা সংখ্যাতে প্রবেশের জন্য ডে 1 এর ঘটনা যোগ করতে চাই দিন 2 দৈনিক সেল। তারপর যখন দিন 3 শীট তৈরি করা হয়, আমি সংযোজক কোষের সমস্ত 3 দিনের মধ্যে যে কোনও ঘটনাকে যোগ করতে চাই।

একটি প্রকল্পে দিনের সংখ্যা হতে পারে এবং আমি চাই যে সাম্প্রতিক দিনগুলিতে সর্বদা যথাযথ ক্রম সংখ্যার ঘটনা ঘটবে। ওয়ার্কবুকের অন্যান্য ওয়ার্কশীটগুলিও সর্বাধিক বর্তমান শীট থেকে তথ্য টানতে হবে। এটা কি সম্ভব?

Answer 1

আপনি আপনার প্রশ্নে বর্ণিত হিসাবে আপনার শীট নামকরণ করা হয় এবং নতুন শীট সক্রিয় হয় অনুমান। আপনি এই কোডটি আপনার বিদ্যমান কোডের শেষে যুক্ত করুন। এটি আপনার অনুসন্ধানের ক্রমবর্ধমান মান গণনা করার জন্য একটি সূত্র তৈরি করবে। ব্যবহারকারী যখন ঘটনা সংখ্যা একটি মান প্রবেশ বা পরিবর্তন, এটি আপডেট করা হবে।

Dim intLast
Dim strSheet As String

'Get name of active sheet
strSheet = ActiveSheet.Name

    If strSheet <> "Day 1" Then 'Skips the Day 1 sheet

        intLast = Right(strSheet, 1) - 1
        strSheet = "Day " & intLast

        'Add formula to sum total from the previous day and this sheet
        Range("C1").Formula = "=A1+'" & strSheet & "'!C1"

    End If

intLast = ""
strSheet = ""

কোডটি পরিবর্তন করুন যাতে সেল ঠিকানা 'C1' ঠিকানাটি যেখানে আপনি সংযোজনীয় মোট চান। এছাড়াও, A1সেক্ষেত্রে পরিবর্তন করুন যার নিরাপত্তা ব্যবহারকারীর ইনপুট মান রয়েছে।