300 উদাহরণ

ইন্টারেক্টিভ ইউজারফর্ম

Interactive Userform

নীচে আমরা একটি প্রোগ্রাম দেখব এক্সেল ভিবিএ যে একটি তৈরি করে ইন্টারেক্টিভ ইউজারফর্ম । আমরা যে ইউজারফর্ম তৈরি করতে যাচ্ছি তা নিম্নরূপ দেখাচ্ছে:



এক্সেল ভিবিএ ইন্টারেক্টিভ ইউজারফর্ম

ব্যাখ্যা: যখনই আপনি আইডি টেক্সট বক্সে একটি মান প্রবেশ করেন, তখন এক্সেল ভিবিএ সংশ্লিষ্ট রেকর্ড লোড করে। যখন আপনি এডিট / অ্যাড বাটনে ক্লিক করেন, তখন এক্সেল ভিবিএ শীটে রেকর্ড এডিট করে বা আইডি যখন নেই তখন রেকর্ড যোগ করে। ক্লিয়ার বাটন সব টেক্সট বক্স ক্লিয়ার করে। ক্লোজ বোতামটি ইউজারফর্ম বন্ধ করে দেয়।





এই ইউজারফর্মটি তৈরি করতে, নিম্নলিখিত পদক্ষেপগুলি সম্পাদন করুন।

1. খুলুন ভিজ্যুয়াল বেসিক এডিটর । প্রজেক্ট এক্সপ্লোরার দৃশ্যমান না হলে ভিউ, প্রজেক্ট এক্সপ্লোরার ক্লিক করুন।



2. সন্নিবেশ, ইউজারফর্ম ক্লিক করুন। যদি টুলবক্স স্বয়ংক্রিয়ভাবে প্রদর্শিত না হয়, দেখুন, টুলবক্স ক্লিক করুন। আপনার পর্দা নীচের মত সেট আপ করা উচিত।

এক্সেল ভিবিএতে ইউজারফর্ম স্ক্রিন সেটআপ

3. লেবেল, টেক্সট বক্স (প্রথমে উপরের দিকে, দ্বিতীয়টি প্রথমটির নীচে) এবং কমান্ড বোতাম যোগ করুন। একবার এটি সম্পন্ন হয়ে গেলে, ফলাফলটি আগে দেখানো ইউজারফর্মের ছবির সাথে সামঞ্জস্যপূর্ণ হওয়া উচিত। উদাহরণস্বরূপ, টুলবক্স থেকে টেক্সটবক্সে ক্লিক করে একটি টেক্সট বক্স কন্ট্রোল তৈরি করুন। পরবর্তীতে, আপনি ব্যবহারকারীর উপর একটি পাঠ্য বাক্স টেনে আনতে পারেন।

কিভাবে এক্সেল একটি সুপারস্ক্রিপ্ট করতে

4. আপনি নিয়ন্ত্রণের নাম এবং ক্যাপশন পরিবর্তন করতে পারেন। এক্সেল ভিবিএ কোডে নাম ব্যবহার করা হয়। ক্যাপশন হল সেগুলি যা আপনার স্ক্রিনে প্রদর্শিত হয়। নিয়ন্ত্রণের নাম পরিবর্তন করা ভাল অভ্যাস, তবে এটি এখানে প্রয়োজনীয় নয় কারণ এই উদাহরণে আমাদের কেবল কয়েকটি নিয়ন্ত্রণ রয়েছে। লেবেল, টেক্সট বক্স এবং কমান্ড বোতামের ক্যাপশন পরিবর্তন করতে ভিউ, প্রপার্টিজ উইন্ডোতে ক্লিক করুন এবং প্রতিটি কন্ট্রোলে ক্লিক করুন।

5. Userform দেখানোর জন্য, a আদেশ বোতাম আপনার ওয়ার্কশীটে এবং নিম্নলিখিত কোড লাইন যোগ করুন:

ব্যক্তিগত উপCommandButton1_Click ()

UserForm1.Show

শেষ উপ

আমরা এখন Sub UserForm_Initialize তৈরি করতে যাচ্ছি। যখন আপনি ইউজারফর্মের জন্য শো পদ্ধতি ব্যবহার করেন, এই সাবটি স্বয়ংক্রিয়ভাবে কার্যকর হবে।

6. খুলুন ভিজ্যুয়াল বেসিক এডিটর ।

7. প্রজেক্ট এক্সপ্লোরারে, UserForm1 এ ডান ক্লিক করুন এবং তারপর ভিউ কোড ক্লিক করুন।

8. বাম ড্রপ-ডাউন তালিকা থেকে Userform নির্বাচন করুন। ডান ড্রপ-ডাউন তালিকা থেকে শুরু করুন নির্বাচন করুন।

9. নিম্নলিখিত কোড লাইন যোগ করুন:

ব্যক্তিগত উপUserForm_Initialize ()

টেক্সটবক্স 1. সেটফোকাস

শেষ উপ

ব্যাখ্যা: এই কোড লাইনটি প্রথম টেক্সট বক্সের উপর ফোকাস সেট করে কারণ এখানেই আমরা যখন ইউজারফর্ম লোড হয় তখন শুরু করতে চাই।

আমরা এখন ইউজারফর্মের প্রথম অংশ তৈরি করেছি। যদিও এটি ইতিমধ্যে ঝরঝরে দেখাচ্ছে, আইডি পাঠ্য বাক্সে যখন আমরা একটি মান লিখি বা কমান্ড বোতামগুলির একটিতে ক্লিক করি তখন কিছুই ঘটবে না।

10. প্রজেক্ট এক্সপ্লোরারে, UserForm1 এ ডান ক্লিক করুন এবং তারপর কোড দেখুন ক্লিক করুন।

11. বাম ড্রপ-ডাউন তালিকা থেকে TextBox1 নির্বাচন করুন। ডান ড্রপ-ডাউন তালিকা থেকে পরিবর্তন চয়ন করুন।

12. নিম্নলিখিত কোড লাইন যোগ করুন:

ব্যক্তিগত উপTextBox1_Change ()

তথ্য সংগ্রহ করো

শেষ উপ

13. প্রজেক্ট এক্সপ্লোরারে, UserForm1 এ ডাবল ক্লিক করুন।

14. Edit / Add কমান্ড বাটনে ডাবল ক্লিক করুন।

15. নিম্নলিখিত কোড লাইন যোগ করুন:

ব্যক্তিগত উপCommandButton1_Click ()

সম্পাদনা যোগ করুন

শেষ উপ

16. Clear command বাটনে ডাবল ক্লিক করুন।

17. নিম্নলিখিত কোড লাইন যোগ করুন:

ব্যক্তিগত উপCommandButton2_Click ()

ক্লিয়ারফর্ম

শেষ উপ

ব্যাখ্যা: এই সাবগুলি অন্যান্য সাবকে কল করে যা আমরা এক সেকেন্ডে তৈরি করতে যাচ্ছি।

18. ক্লোজ কমান্ড বাটনে ডাবল ক্লিক করুন।

19. নিম্নলিখিত কোড লাইন যোগ করুন:

ব্যক্তিগত উপCommandButton3_Click ()

আমাকে আনলোড করুন

শেষ উপ

ব্যাখ্যা: এই কোড লাইনটি ইউজারফর্ম বন্ধ করে দেয়।

সাবস তৈরি করার সময়। আপনি আমাদের মাধ্যমে যেতে পারেন ফাংশন এবং সাব সাবস সম্পর্কে আরও জানতে অধ্যায়। আপনি যদি তাড়াহুড়ো করে থাকেন তবে কেবল নিম্নলিখিত সাবগুলি একটি মডিউলে রাখুন (ভিজ্যুয়াল বেসিক এডিটরে, সন্নিবেশ, মডিউল ক্লিক করুন)।

20. প্রথমে, পূর্ণসংখ্যা টাইপের তিনটি ভেরিয়েবল এবং বুলিয়ান টাইপের একটি ভেরিয়েবল ঘোষণা করুন। সাধারণ ঘোষণা বিভাগে ভেরিয়েবল ঘোষণা করুন (মডিউলের শীর্ষে)। এইভাবে আপনাকে কেবল একবার ভেরিয়েবল ঘোষণা করতে হবে এবং আপনি সেগুলিকে একাধিক সাবস এ ব্যবহার করতে পারেন।

কোনটিই নয়আইডিযেমন পূর্ণসংখ্যা, iযেমন পূর্ণসংখ্যা, জেযেমন পূর্ণসংখ্যা, পতাকাযেমন বুলিয়ান

21. GetData সাব যোগ করুন।

উপতথ্য সংগ্রহ করো()

যদিIsNumeric (UserForm1.TextBox1.Value)তারপর
পতাকা =মিথ্যা
আমি = 0
id = UserForm1.TextBox1.Value

কর যখনকোষ (i + 1, 1) মান ''

যদিকোষ (i + 1, 1)। মান = idতারপর
পতাকা =সত্য
জন্যj = 2প্রতি3
UserForm1.Controls ('TextBox' & j)। মান = ঘর (i + 1, j)। মান
পরবর্তীj
শেষ যদি

i = i + 1

লুপ

যদিপতাকা =মিথ্যা তারপর
জন্যj = 2প্রতি3
UserForm1.Controls ('TextBox' & j)। মান = ''
পরবর্তীj
শেষ যদি

অন্যথায়
ক্লিয়ারফর্ম
শেষ যদি

শেষ উপ

ব্যাখ্যা: যদি আইডি টেক্সট বক্সে একটি সাংখ্যিক মান থাকে, এক্সেল ভিবিএ আইডি অনুসন্ধান করে এবং সংশ্লিষ্ট রেকর্ড লোড করে। আমরা ব্যবহার করি সংগ্রহ নিয়ন্ত্রণ করে টেক্সট বক্সের মাধ্যমে সহজে লুপ করা। যদি এক্সেল ভিবিএ আইডি খুঁজে না পায় (পতাকা এখনও মিথ্যা), এটি দ্বিতীয় এবং তৃতীয় পাঠ্য বাক্স খালি করে। যদি আইডি টেক্সট বক্সে সাংখ্যিক মান না থাকে, এক্সেল ভিবিএ ক্লিয়ারফর্ম সাবকে কল করে।

22. ClearForm সাব যোগ করুন।

উপক্লিয়ারফর্ম ()

জন্যj = 1প্রতি3
UserForm1.Controls ('TextBox' & j)। মান = ''
পরবর্তীj

শেষ উপ

ব্যাখ্যা: এক্সেল ভিবিএ সমস্ত পাঠ্য বাক্স সাফ করে।

23. EditAdd সাব যোগ করুন।

উপEditAdd ()

কোনটিই নয়সারিযেমন লম্বা

যদিUserForm1.TextBox1.Value 'তারপর
পতাকা =মিথ্যা
আমি = 0
id = UserForm1.TextBox1.Value
emptyRow = WorksheetFunction.CountA (Range ('A: A')) + 1

কর যখনকোষ (i + 1, 1) মান ''

যদিকোষ (i + 1, 1)। মান = idতারপর
পতাকা =সত্য
জন্যj = 2প্রতি3
ঘর (i + 1, j)। মান = UserForm1.Controls ('TextBox' & j)। মান
পরবর্তীj
শেষ যদি

i = i + 1

লুপ

যদিপতাকা =মিথ্যা তারপর
জন্যj = 1প্রতি3
ঘর (খালি রো, জে)। মান = UserForm1।
পরবর্তীj
শেষ যদি

শেষ যদি

শেষ উপ

ব্যাখ্যা: যদি আইডি টেক্সট বক্স খালি না থাকে, এক্সেল ভিবিএ শীটে রেকর্ড সম্পাদনা করে (রেকর্ড লোড করার বিপরীত যেমন আমরা আগে দেখেছি)। যদি এক্সেল ভিবিএ আইডি খুঁজে না পায় (পতাকাটি এখনও মিথ্যা), এটি পরবর্তী খালি সারিতে রেকর্ড যোগ করে। ভেরিয়েবল emptyRow হল প্রথম খালি সারি এবং প্রতিবার রেকর্ড যোগ করা হলে বৃদ্ধি পায়।

24. ভিজ্যুয়াল বেসিক এডিটর থেকে বেরিয়ে আসুন, নিচে দেখানো লেবেলগুলো সারি 1 এ প্রবেশ করুন এবং ইউজারফর্ম পরীক্ষা করুন।

কিভাবে গণনা করা ক্ষেত্র সন্নিবেশ করা যায়

এক্সেল ভিবিএ ইন্টারেক্টিভ ইউজারফর্ম

11/11 সম্পন্ন! ইউজারফর্ম> সম্পর্কে আরও জানুন
পরবর্তী অধ্যায়ে যান: পরিসীমা



^