নীচে আমরা একটি প্রোগ্রাম দেখব এক্সেল ভিবিএ এর ব্যাকগ্রাউন্ড কালার সেট করে সময়সূচী অনুযায়ী কাজ সবুজ, এবং কর্মের পটভূমি রঙ সেট করে যা সময়সূচীর পিছনে লাল।
তারিখের মধ্যে দিন জন্য এক্সেল সূত্র
পরিস্থিতি:
শীট 1 এ আমাদের তিনটি কাজ আছে (X, Y, Z)। একটি '1' নির্দেশ করে যে একটি কাজ সম্পন্ন হয়েছে। আজকের তারিখ পর্যন্ত এবং প্রতিটি কলামে '1' বিদ্যমান থাকলে একটি কাজ নির্ধারিত হয়। আজ 6-জুন। টাস্ক এক্স এবং ওয়াই নির্ধারিত হয়। টাস্ক জেড সময়সূচির পিছনে (E8 কোষে '1' নেই)।
একটি ওয়ার্কশীট পরিবর্তন ইভেন্ট তৈরি করুন। ওয়ার্কশীট পরিবর্তন ইভেন্টে যোগ করা কোড এক্সেল VBA দ্বারা কার্যকর করা হবে যখন আপনি একটি ওয়ার্কশীটে একটি সেল পরিবর্তন করবেন।
1. খুলুন ভিজ্যুয়াল বেসিক এডিটর ।
2. প্রজেক্ট এক্সপ্লোরারে Sheet1 (Sheet1) এ ডাবল ক্লিক করুন।
3. বাম ড্রপ-ডাউন তালিকা থেকে কার্যপত্র নির্বাচন করুন। ডান ড্রপ-ডাউন তালিকা থেকে পরিবর্তন চয়ন করুন।
ওয়ার্কশীট পরিবর্তন ইভেন্টে নিম্নলিখিত কোড লাইন যুক্ত করুন:
4. পূর্ণসংখ্যা টাইপের দুটি ভেরিয়েবল ঘোষণা করুন।
কোনটিই নয়আমিযেমন পূর্ণসংখ্যা, জেযেমন পূর্ণসংখ্যা5. যোগ করুন a ডু উইল লুপ ।
কর যখনকোষ (6 + i, 1) মান ''i = i + 1
লুপ
ব্যাখ্যা: i = 0 এর জন্য, এক্সেল VBA টাস্ক X পরীক্ষা করে, i = 1, টাস্ক Y ইত্যাদি জন্য, Excel VBA Do while লুপ ছেড়ে দেয় যখন সেল (6 + i, 1)। ।
এক্সেল মধ্যে ফাংশন কিভাবে করতে
ডু উইল লুপে নিম্নলিখিত কোড লাইনগুলি (6, 7 এবং 8 এ) যুক্ত করুন।
6. ভেরিয়েবল j শুরু করুন মান 0 দিয়ে।
j = 07. একটি টাস্কের ব্যাকগ্রাউন্ড কালারকে সবুজ এ সেট করে ধরে নিন যে একটি টাস্ক শিডিউলে আছে (এটি অবশ্যই সত্য নয়)।
কোষ (6 + i, 1)। অভ্যন্তর। ColorIndex = 48. আরেকটি Do while Loop যোগ করুন।
কর যখনকোষ (4, 2 + জে) মান<= Dateযদিকোষ (6 + i, 2 + j) মান = 0তারপরকোষ (6 + i, 1)। অভ্যন্তর। ColorIndex = 3
j = j + 1
লুপ
দ্রষ্টব্য: তারিখ ফাংশন আজকের তারিখ প্রদান করে।
ব্যাখ্যা: i = 0, j = 0 এর জন্য, Excel VBA সেল B6 পরীক্ষা করে। I = 0, j = 1, Excel VBA সেল C6 ইত্যাদি পরীক্ষা করে। যদি এক্সেল ভিবিএ একটি '0' খুঁজে পায়, এটি টাস্কের পটভূমির রঙ লাল করে দেয়।
9. প্রোগ্রামটি পরীক্ষা করুন। উদাহরণস্বরূপ, নির্দেশ করুন যে 6-জুনের কাজ Z সম্পন্ন হয়েছে। ফলস্বরূপ, টাস্ক জেড স্বয়ংক্রিয়ভাবে সবুজ হয়ে যাবে।
পরবর্তী অধ্যায়ে যান: ঘটনা
