কখনও কখনও একটি কার্যপত্রক লাইন বাই লাইন পড়ার জন্য এবং এটি থেকে নির্বাচন করে ডেটা নেওয়া দরকারী। নীচে একটি উদাহরণ দেখায় যে এটি কীভাবে করা যায়।
নিবন্ধটি ধরে নিয়েছে পাঠকের বিকাশকারী ফিতাটি প্রদর্শিত হয়েছে এবং এটি ভিবিএ সম্পাদকের সাথে পরিচিত। যদি তা না হয় তবে দয়া করে গুগল "এক্সেল বিকাশকারী ট্যাব" বা "এক্সেল কোড উইন্ডো"।
নিম্নলিখিত উদাহরণটি ইমেল ঠিকানাগুলির প্রতিটি সারি পরীক্ষা করে এবং তাদের একক ঠিকানা লাইনে যুক্ত করে ডেটা ম্যানিপুলেট করে। এক্সেলের বিল্ট-ইন ট্রান্সপোজ ফাংশন থাকা সত্ত্বেও আমরা আমাদের কোডের সাথে কিছু নির্দিষ্ট অ্যাড্রেসিকে বাদ দিতে এবং ডিলিমিটার যুক্ত করতে চাই।
আমাদের অ্যাপ্লিকেশনটির জন্য কেবল একটি শীট দরকার। এ 1 সেলটিতে নীচের তথ্যগুলি অনুলিপি করুন:
| ই-মেইল ঠিকানা |
| tcruise@paramount.com |
| julia.R@disney.com |
| Jule.dassin@gaumont.co.fr |
| EnricoFellini@cinecitta.co.it |
| marymontrary@bedlam.org.uk |
কোডটি কিক-অফ করতে ফর্মটিতে একটি বোতাম রাখুন।
ধরা যাক, মাত্র পাঁচটির পরিবর্তে এই ধরনের শত শত ইমেল আছে; আমরা প্রত্যেকটিতে একই বার্তা এবং আমাদের চিত্রনাট্যের একই অনুলিপি পাঠাতে চাই। এটি করার বেশ কয়েকটি উপায় আছে, যার মধ্যে সবচেয়ে উল্লেখযোগ্য হলো VBA কোড থেকে Outlook-এর মতো ইমেইলারকে কল করা। তবে, এই অনুশীলনটির দুটি উদ্দেশ্য রয়েছে:
- একটি কার্যপত্রকের মাধ্যমে কীভাবে সহজে চক্র করা যায় তা দেখান;
- এক্সেল এর প্রতিটি সারি পরীক্ষা করার ক্ষমতা এবং এটিতে কাজ করার জন্য হাইলাইট করুন।
ভিবিএ কোড
ভিবিএ কোড সমস্ত ঠিকানার সাথে একত্রে প্রবেশ করবে, প্রতিটিের পরে একটি আধা-কোলন সন্নিবেশ করিয়ে দেবে, যাতে সেগুলি ইমেলের অ্যাড্রেসী ক্ষেত্রে একবারে আটকানো যায়। আপনি কোডটি থেকে লক্ষ্য করবেন যে সারিগুলি পরীক্ষা করার পরে এটি ফরাসিগুলি বাদ দেবে।
একটি মডিউল sertোকান, এবং নিম্নলিখিত লিখুন:
Option Explicit
Dim strEmail As String
Dim strAll As String
Sub Main()
strAll = ""
Range("C2") = strAll 'clear previous program results
Sheets("Sheet1").Select
Range("A2").Select
Do While ActiveCell > "" 'loop until row 7
strEmail = ActiveCell
If Right(strEmail, 2) <> "fr" Then 'exclude France
strAll = strAll & strEmail & ";"
End If
Range("A" & ActiveCell.Row + 1).Select 'move on a row in the SAME column
Loop
Range("C2") = strAll
End Sub
কোডটি কলাম A এ সক্রিয় কক্ষ রাখে, কেবল সারিগুলি এগিয়ে যায়। সারিবদ্ধভাবে অন্য কোথাও তথ্য উল্লেখ করতে, আমরা ব্যবহার করব:
Variable = Activecell.offset(offset rows, offset columns)
সক্রিয় সারিতে কলাম বি থেকে একটি মান পেতে উদাহরণস্বরূপ, কোডটি পড়বে অ্যাক্টিভেল.অফসেট (0, 1)। A2 এর মান পেতে যখন আমরা A3 এ থাকি তখন পড়তাম অ্যাক্টিভেল.অফসেট (-1, 0)
আপনার কোডটি পরীক্ষা করতে, বোতামটি ম্যাক্রো "মাইন" এ নিয়োগ করুন।
কিছু ইন্টারনেট পরিষেবা সরবরাহকারী, একটি স্প্যাম বিরোধী সতর্কতা হিসাবে, আপনি একবারে পাঠাতে পারবেন এমন ইমেলগুলির সংখ্যা সীমিত করতে পারে। আপনি যদি এই পদ্ধতিটি ব্যবহার করেন তবে একসাথে শত শত ইমেল প্রেরণের আগে তাদের সাথে পরীক্ষা করা ভাল।
এক্সেল ফাইল দুর্নীতি পরিচালনা করছে
মাঝে মাঝে আমরা ওয়ার্কবুক এমনভাবে নষ্ট হয়ে যেতে দেখি যে এক্সেল নিজেও তা পুনরুদ্ধার করতে পারে না। বিশেষজ্ঞসহ বেশিরভাগ এক্সেল ব্যবহারকারীর জন্য এটি একটি বড় সমস্যা। তবে, আপনার কাছে যদি একটি কার্যকর রিকভারি টুল থাকে, তাহলে আপনি তা পুনরুদ্ধার করতে পারবেন। ক্ষতিগ্রস্থ xlsx ফাইল damaged সহজে এবং দ্রুত
লেখকের ভূমিকা:
ফেলিক্স হুকার একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত rar দুর্নীতি এবং স্কয়ার পুনরুদ্ধার সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com