ক্রমবর্ধমান কোষ (ক্রমবর্ধমান)

প্রায়শই, একটি পরিস্থিতি দেখা দেয় যখন আমাদের একটি কক্ষে ক্রমানুসারে প্রবেশ করা বেশ কয়েকটি মান যোগ করার (জমে) প্রয়োজন হয়:

সেগুলো. যদি, উদাহরণস্বরূপ, আপনি A1 কক্ষে 5 নম্বরটি প্রবেশ করান, তাহলে নম্বর 1টি B15-এ উপস্থিত হওয়া উচিত। আপনি যদি A1-এ নম্বর 7 লিখুন, তাহলে B1 ঘরে 22 উপস্থিত হওয়া উচিত, এবং আরও অনেক কিছু। সাধারণভাবে, যাকে হিসাবরক্ষক (এবং শুধুমাত্র তাদের নয়) একটি ক্রমবর্ধমান মোট বলে।

আপনি একটি সাধারণ ম্যাক্রো ব্যবহার করে এই জাতীয় স্টোরেজ সেল-সঞ্চয়কারী প্রয়োগ করতে পারেন। শীট ট্যাবে ডান-ক্লিক করুন যেখানে A1 এবং B1 কক্ষগুলি অবস্থিত এবং প্রসঙ্গ মেনু থেকে নির্বাচন করুন উৎস টেক্সট (সোর্স কোড). খোলে ভিজ্যুয়াল বেসিক এডিটর উইন্ডোতে, সাধারণ ম্যাক্রো কোডটি কপি এবং পেস্ট করুন:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) সাথে টার্গেট যদি .Address(False, False) = "A1" তারপর যদি IsNumeric(.Value) তাহলে Application.EnableEvents = False Range("A2").Value = Range(" A2").মান + .মান অ্যাপ্লিকেশন।EnableEvents = True End যদি শেষ হয় যদি শেষ সাব দিয়ে শেষ হয়  

কক্ষ A1 এবং A2 এর ঠিকানা, অবশ্যই, আপনার নিজের দ্বারা প্রতিস্থাপিত করা যেতে পারে।

আপনি যদি ডেটা এন্ট্রি ট্র্যাক করতে চান এবং পৃথক কক্ষ নয়, তবে সমগ্র ব্যাপ্তিগুলির সংক্ষিপ্তসার করতে চান, তাহলে ম্যাক্রোটি কিছুটা পরিবর্তন করতে হবে:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) যদি ছেদ না করে(Target, Range("A1:A10")) তাহলে কিছুই নয় যদি IsNumeric(Target.Value) তাহলে Application.EnableEvents = False Target.Offset(0) মান = টার্গেট।অফসেট(1, 0)।মান + টার্গেট।মান অ্যাপ্লিকেশন।EnableEvents = True End যদি End যদি End Sub  

ধারণা করা হয় যে A1:A10 পরিসরের ঘরে ডেটা প্রবেশ করানো হয়েছে এবং প্রবেশ করা সংখ্যাগুলি ডানদিকে সংলগ্ন কলামে যোগ করা হয়েছে। যদি আপনার ক্ষেত্রে এটি সংলগ্ন না হয়, তাহলে অফসেট অপারেটরে ডানদিকে স্থানান্তর বাড়ান – 1কে একটি বড় সংখ্যা দিয়ে প্রতিস্থাপন করুন।

• ম্যাক্রো কি, VBA তে কোথায় ম্যাক্রো কোড ঢোকাতে হবে, কিভাবে ব্যবহার করবেন?