নীচে আমরা একটি প্রোগ্রাম দেখব এক্সেল ভিবিএ যে একটি তৈরি করে গড় টেবিল ঘূর্ণায়মান । স্থাপন একটি আদেশ বোতাম আপনার ওয়ার্কশীটে এবং নিম্নলিখিত কোড লাইন যোগ করুন:
রেঞ্জ ('B3')। মান = ওয়ার্কশীট ফাংশন।
এই কোড লাইনটি 0 এবং 100 এর মধ্যে একটি এলোমেলো সংখ্যায় সেল B3 এ প্রবেশ করে। আমরা চাই এক্সেল ভিবিএ নতুন স্টক ভ্যালু গ্রহণ করুক এবং রোলিং এভারেজ টেবিলের প্রথম অবস্থানে রাখুক। অন্য সব মান এক জায়গায় নিচে সরানো উচিত এবং শেষ মান মুছে ফেলা উচিত।
একটি ওয়ার্কশীট পরিবর্তন ইভেন্ট তৈরি করুন। ওয়ার্কশীট পরিবর্তন ইভেন্টে যোগ করা কোড এক্সেল VBA দ্বারা কার্যকর করা হবে যখন আপনি একটি ওয়ার্কশীটে একটি সেল পরিবর্তন করবেন।
এক্সেলে প্রথম কোয়ার্টাইল কীভাবে সন্ধান করতে হয়
1. খুলুন ভিজ্যুয়াল বেসিক এডিটর ।
2. প্রজেক্ট এক্সপ্লোরারে Sheet1 (Sheet1) এ ডাবল ক্লিক করুন।
3. বাম ড্রপ-ডাউন তালিকা থেকে কার্যপত্র নির্বাচন করুন। ডান ড্রপ-ডাউন তালিকা থেকে পরিবর্তন চয়ন করুন।
ওয়ার্কশীট পরিবর্তন ইভেন্টে নিম্নলিখিত কোড লাইন যুক্ত করুন:
4. নতুন ভ্যালু টাইপ ইন্টিজার এবং দুটি রেঞ্জ (ফার্স্ট ফোরভ্যালু এবং লাস্টফোরভ্যালু) নামে একটি ভেরিয়েবল ঘোষণা করুন।
কোনটিই নয়নতুন মূল্যযেমন পূর্ণসংখ্যা, প্রথম মূল্যযেমনপরিসীমা, শেষ মূল্যযেমনপরিসীমা5. ওয়ার্কশীট পরিবর্তন ইভেন্ট শীট 1 এর সমস্ত পরিবর্তন শোনে। আমরা শুধুমাত্র এক্সেল ভিবিএ কিছু করতে চাই যদি সেল B3 তে কিছু পরিবর্তন হয়। এটি অর্জন করতে, নিম্নলিখিত কোড লাইন যোগ করুন:
যদিলক্ষ্য = ঠিকানা = '$ B $ 3'তারপর6. আমরা সেল B3 এর মান দিয়ে নতুন মূল্য শুরু করি, রেঞ্জের সাথে প্রথম মূল্য ('D3: D6') এবং শেষের মূল্য ('D4: D7')।
newvalue = পরিসীমা ('B3')। মানসেটfirstfourvalues = পরিসীমা ('D3: D6')
সেটlastfourvalues = পরিসীমা ('D4: D7')
7. এখন সহজ কৌশল আসে। আমরা রোলিং এভারেজ টেবিল আপডেট করতে চাই। আপনি টেবিলের প্রথম চারটি মান দিয়ে শেষ চারটি মান প্রতিস্থাপন করে এবং নতুন স্টক মানকে প্রথম অবস্থানে রেখে এটি অর্জন করতে পারেন।
ড্রপ ডাউন মেনু কীভাবে তৈরি করবেন তা এক্সেল করুনlastfourvalues.Value = firstfourvalues.Value
রেঞ্জ ('D3')। মান = নতুন মান
8. if স্টেটমেন্ট বন্ধ করতে ভুলবেন না।
শেষ যদি9. অবশেষে, সূত্র D8- এ সূত্র = AVERAGE (D3: D7) লিখুন।
10. কমান্ড বাটনে ক্লিক করে প্রোগ্রামটি পরীক্ষা করুন।
পরবর্তী অধ্যায়ে যান: অ্যারে