ভিবিএ পিভট টেবিল | ভিবিএতে পিভট টেবিল তৈরি করার পদক্ষেপ

এক্সেল ভিবিএ পিভট টেবিল

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

ভিবিএ আমাদের কর্মক্ষেত্রে আমাদের জন্য প্রচুর সময় সাশ্রয় করতে পারে, যদিও এটি আয়ত্ত করা এত সহজ নয় তবে এটি শেখার জন্য সময় ব্যয় করার পক্ষে উপযুক্ত। ভিবিএর মাধ্যমে পিভট টেবিল তৈরি করার প্রক্রিয়াটি বুঝতে 6 মাস সময় নিয়েছি। আপনি জানেন যে 6 মাস আমার জন্য বিস্ময়কর কাজ করেছে কারণ পাইভ টেবিল তৈরি করার চেষ্টা করার সময় আমি অনেক ভুল করেছি।

তবে আসল বিষয়টি হ'ল আমি আমার ভুলগুলি থেকে শিখেছি এবং এখন কোডটি ব্যবহার করে পিভট টেবিলগুলি কীভাবে তৈরি করা যায় সে সম্পর্কে আপনাকে এই নিবন্ধটি লিখছি।

একটি বোতামের একটি ক্লিকের সাহায্যে আমরা প্রতিবেদন তৈরি করতে পারি।

ভিবিএতে পিভট টেবিল তৈরি করার পদক্ষেপ

আপনি এই ভিবিএ পিভট টেবিল টেম্পলেটটি এখানে ডাউনলোড করতে পারেন - ভিবিএ পিভট টেবিল টেম্পলেট

পিভট টেবিল তৈরি করতে ডেটা থাকা জরুরী। এর জন্য আমি কিছু ডামি ডেটা তৈরি করেছি, আপনি একই ডেটা দিয়ে আমার সাথে অনুসরণ করতে ওয়ার্কবুকটি ডাউনলোড করতে পারেন।

ধাপ 1:পিভট টেবিল হল পিভট টেবিলটি পিওট টেবিল হিসাবে ভেরিয়েবল ঘোষণা করার জন্য একটি বিষয়।

কোড:

 সাব পাইভটবেল () ডিভ পিটিবেল হিসাবে পাইভটবেল শেষ সাব 

ধাপ ২:আমরা প্রথমে পিভট টেবিল তৈরি করার আগে আমাদের ডেটার উত্সটি সংজ্ঞায়িত করতে পিভট ক্যাশে তৈরি করতে হবে।

নিয়মিত ওয়ার্কশিট পিভট টেবিলটিতে আমাদের ঝামেলা ছাড়াই পটভূমিতে একটি পিভট ক্যাশে তৈরি করবে। তবে ভিবিএতে আমাদের তৈরি করতে হবে।

এটির জন্য একটি পিভট ক্যাশে ভেরিয়েবলটি সংজ্ঞায়িত করুন।

কোড:

 ডিভ পিসিচি পিভট ক্যাশে হিসাবে

ধাপ 3:পিভট ডেটা রেঞ্জ নির্ধারণের জন্য ভেরিয়েবলকে একটি ব্যাপ্তি হিসাবে সংজ্ঞায়িত করে।

কোড:

 ধীরে ধীরে রেঞ্জ হিসাবে প্রেজ

পদক্ষেপ 4:পিভট টেবিলটি সন্নিবেশ করতে পিভট টেবিলের জন্য ওয়ার্কশিট যুক্ত করার জন্য আমাদের একটি পৃথক পত্রক দরকার যা ভেরিয়েবলটি একটি কার্যপত্রক হিসাবে ঘোষণা করে।

কোড:

 ওয়ার্কশিট হিসাবে ধীর পশীট

পদক্ষেপ 5:একইভাবে ওয়ার্কশিটযুক্ত ডেটা উল্লেখ করার জন্য ওয়ার্কশিট হিসাবে আরও একটি ভেরিয়েবল ঘোষণা করে।

কোড:

 ওয়ার্কশিট হিসাবে ম্লান ডিশিট

পদক্ষেপ:: শেষ অবধি ব্যবহৃত সারি ও কলামটি লং হিসাবে আরও দুটি ভেরিয়েবল সংজ্ঞা দেয় find

কোড:

 দিম এলআর যেমন লং ডিম এলসি তত দীর্ঘ 

পদক্ষেপ 7: পিভট টেবিল তৈরি করার জন্য এখন আমাদের একটি নতুন শীট sertোকানো দরকার। তার আগে, যদি কোনও পাইভট শিট থাকে তবে আমাদের সেটি মুছতে হবে।

পদক্ষেপ 8: এবার অবজেক্ট ভেরিয়েবল PSheet এবং DSheet যথাক্রমে পিভট শীট এবং ডেটা শীটে সেট করুন।

পদক্ষেপ 9: ডেটাশিটে সর্বশেষ ব্যবহৃত সারি এবং সর্বশেষ ব্যবহৃত কলামটি সন্ধান করুন।

পদক্ষেপ 10: এখন শেষ সারি এবং শেষ কলামটি ব্যবহার করে পিভট পরিসরটি সেট করুন।

এটি পুরোপুরি ডেটা পরিসীমা সেট করবে। ডেটাশিটে কোনও সংযোজন বা ডেটা মুছে ফেলার পরেও এটি স্বয়ংক্রিয়ভাবে ডেটা ব্যাপ্তিটি নির্বাচন করবে।

পদক্ষেপ 11: একটি পাইভট টেবিল তৈরি করার আগে আমাদের একটি পিভট ক্যাশে তৈরি করতে হবে। নীচের ভিবিএ কোড ব্যবহার করে পিভট ক্যাশে ভেরিয়েবল সেট করুন।

পদক্ষেপ 12: এখন একটি ফাঁকা পিভট টেবিল তৈরি করুন।

পদক্ষেপ 13: পিভট টেবিলটি সন্নিবেশ করার পরে আমাদের প্রথমে সারি ক্ষেত্রটি সন্নিবেশ করা দরকার। সুতরাং আমি আমার দেশের কলাম হিসাবে সারি ক্ষেত্রটি সন্নিবেশ করব।

বিঃদ্রঃ: ডেটা কলামগুলি বুঝতে ওয়ার্কবুকটি ডাউনলোড করুন।

পদক্ষেপ 14: এখন আমি আর একটি আইটেম দ্বিতীয় অবস্থান আইটেম হিসাবে সারি ক্ষেত্র sertোকানো হবে। আমি সারি ক্ষেত্রে দ্বিতীয় রেখার আইটেম হিসাবে পণ্যটি প্রবেশ করিয়ে দেব।

পদক্ষেপ 15: সারি ক্ষেত্রে কলামগুলি সন্নিবেশ করার পরে কলাম ক্ষেত্রের মান সন্নিবেশ করা দরকার। আমি কলাম ক্ষেত্রে "সেগমেন্ট" সন্নিবেশ করবো।

পদক্ষেপ 16: এখন আমাদের ডেটা ফিল্ডে নম্বর .োকানো দরকার। সুতরাং ডেটা ক্ষেত্রে "বিক্রয়" sertোকান।

পদক্ষেপ 17: আমরা পিভট টেবিলের সংক্ষিপ্ত অংশ দিয়ে সম্পন্ন করেছি, এখন আমাদের টেবিলটি ফর্ম্যাট করতে হবে। পিভট টেবিলটি ফর্ম্যাট করতে নীচের কোডটি ব্যবহার করুন।

বিঃদ্রঃ: আরও বিভিন্ন টেবিল শৈলী তাদের ম্যাক্রো রেকর্ড করতে এবং টেবিল শৈলী পেতে।

সারণি আকারে সারি দায়ের করা মান আইটেমগুলি দেখানোর জন্য নীচে নীচের কোডটি যুক্ত করুন।

ঠিক আছে, আমরা যদি F5 কী বা ম্যানুয়ালি এই কোডটি ব্যবহার করে এই কোডটি চালিত করি তবে আমাদের কাজটি পাইভট টেবিলটি পাওয়া উচিত।

ভিবিএ কোডিং ব্যবহার করে এটির মতো আমরা একটি পিভট টেবিল তৈরি করার প্রক্রিয়াটি স্বয়ংক্রিয় করতে পারি।

আপনার রেফারেন্সের জন্য, আমি নীচের কোডটি দিয়েছি।

 সাব পাইভেটেবল () ডিভ পিটিবেল হিসাবে পাইভট্যাবল ডিম পিসিচ হিসাবে পাইভটচি ডিমে প্যাঞ্জেজ যেমন রেঞ্জ ডিম পিএসিট হিসাবে ওয়ার্কশিট ডিম ডিএসিট হিসাবে ওয়ার্কশিট ডিম এলআর লম্বা ডিম এলসি লং অন ত্রুটি পুনরায় শুরু করুন পরবর্তী অ্যাপ্লিকেশন। পত্রক ") মুছে ফেলুন 'এটি বিদ্যমান পিভট টেবিল ওয়ার্কশিট ওয়ার্কশিটগুলি মুছে ফেলবে Afterএর পরে যুক্ত করুন: = অ্যাক্টিভীট' এটি নতুন কার্যপত্রকটি অ্যাক্টিভশিট যুক্ত করবে ame নাম =" পিভট শীট "" ত্রুটি GoTo 0 এ কার্যপত্রকটির নাম "পিভট শীট" হিসাবে রাখবে This সেট করুন PSheet = ওয়ার্কশিট ("পিভট শিট") ডিএসিট = ওয়ার্কশিট সেট করুন ("ডেটা শীট") 'ডেটা শীটটিতে সর্বশেষ ব্যবহৃত সারি এবং কলামটি LR = DSheet.Cells (Rows.Count, 1) সন্ধান করুন nd এবং (xlUp)। নিম্ন এলসি = DSheet.Cells (1, কলামগুলি। অ্যাকাউন্ট)। এবং (xlToLeft)। কলাম 'পিভট টেবিল ডেটা রেঞ্জ সেট করুন PRange = DSheet.Cells (1, 1)। পুনরায় আকার দিন (এলআর, এলসি)' পিভট ক্যাশে সেট করুন পিসি = অ্যাক্টিভ ওয়ার্কবুক.পিভটক্যাচস.ক্রিয়েট (এক্সএলডাটাবেস, সোর্সডাটা: = প্রেনজ) 'ফাঁকা পিভট টেবিলটি সেট করুন পিটিবেল = পিসি। , 1), টেবিলের নাম: = "বিক্রয়_অনামগ্রহ") 'পিট দিয়ে ফাইল সারি করার জন্য দেশ সন্নিবেশ করান iviviviviviviviviviviviviviv "" "" ""iviv" "" "" "" "" "" "" "" "" " PSHet.PivotTables ("বিক্রয়_রেপ্পোর্ট") এর সাথে অবস্থান 2। পাইভফিল্ডস ("পণ্য") riরিয়েন্টেশন = xlRowField। অবস্থান = 2 সমাপ্তি দিয়ে 'কলাম ফিল্ডে সেগমেন্ট সন্নিবেশ করানো হবে এবং PSheet.PivotTables ("বিক্রয়_রেপপোর্ট") সহ পজিশন 1। পিভোটফিল্ডস (" বিভাগ ")। ওরিয়েন্টেশন = এক্সএল কলামফিল্ড। পজিশন = 1 সমাপ্ত হয় 'সেল্ট কলাম সন্নিবেশ দিয়ে ডেটা ফিল্ডে PSheet.PivotTables (" বিক্রয়_Report ") দিয়ে। পাইভটফিল্ডস (" বিক্রয় ") .প্রযুক্তি = xlDataFeld। অবস্থান = 1 ফর্ম্যাট পিভট দিয়ে শেষ সারণী PSheet.PivotTables ("বিক্রয়_আরপোর্ট")। শো টেবিল স্টাইলআর স্ট্রাইপস = সত্য PSheet.PivotTables ("বিক্রয়_পরিবর্তন") "। টেবিলশাইল 2 =" পাইভটাইল স্টাইলমিডিয়াম 14 "'ট্যাবুলার ফর্ম PSI.PivotTables (" বিক্রয়_শক্তি অ্যাপ্লিকেশন .শর্তাবলম্বন .আল্ট অ্যাপ্লিকেশন .আর্টিআল্টি.আরসিলেসঅল্টিপলস .পাশপাথ্যশৈলিকা .শৈলিকা .আল্টআল্টস .আল্টআল্টিআল্টি.আরসিলেসআল্টসআল্টি.আরএক্সআল্টিআল্টিআল্টি.আল্টিআল্টি.আরসিলেসআল্টসআল্টস .আর্টিআল্টি.আরএক্সআল্টিআল্টি .আল্টআল্টিআল্টিআল্টি.আরএক্সআল্টস। স্ক্রিনআপডিটিং = সত্য শেষ সাব