মাইক্রোসফট এক্সেল : শুধুমাত্র সংখ্যা ছাড়া শিটের বাকী সকল ক্যারেক্টার মুছে ফেলা

মনে করি আমার একটি ওয়ার্কশীট রয়েছে এবং তাতে অনেক ডাটা রয়েছে। ডাটাগুলো সব প্রায় এই রকম, ABCD4578124YUIOH । অর্থাৎ ক্যারাক্টার এবং নাম্বার একত্রে রয়েছে। এবং আমি চাই ওয়ার্কশীটের সকল ডাটা থেকে ‘non-numeric characters’ মানে সংখ্যা ছাড়া বাকী সকল কিছু মুছে ফেলতে।

তাহলে দেখা যাক কি করে এই কাজটি করতে হবে :

পদ্ধতি : ১

  • (Office 2010 বা নতুন ভার্সনের জন্য) Developer এ ক্লিক করতে হবে > Visual Basic এ ক্লিক করতে হবে  ( Microsoft Visual Basic ওপেন হবে।) > (Visual Basic এর উইন্ডো থেকে) Insert এ ক্লিক করতে হবে > Module এ ক্লিক করতে হবে> এরপর নিচের কোডগুলি কপি করে পেস্ট করতে সেই উইন্ডোতে।

এই কোডগুলো কপি করে বসাতে হবে :

Sub RemoveAlphas()

Dim intI As Integer

Dim rngR As Range, rngRR As Range

Dim strNotNum As String, strTemp As String

Set rngRR = Selection.SpecialCells(xlCellTypeConstants, _

xlTextValues)

For Each rngR In rngRR

strTemp = “”

For intI = 1 To Len(rngR.Value)

If Mid(rngR.Value, intI, 1) Like “[0-9.]” Then

strNotNum = Mid(rngR.Value, intI, 1)

Else: strNotNum = “”

End If

strTemp = strTemp & strNotNum

Next intI

rngR.Value = strTemp

Next rngR

End Sub

  • (Office 2003 পুরাতন ভার্সনের জন্য) Tools এ ক্লিক করতে হবে > Macro এ ক্লিক করতে হবে > Visual Basic Editor এ ক্লিক করতে হবে (Microsoft Visual Basic ওপেন হবে।) > (Visual Basic এর উইন্ডো থেকে) Insert এ ক্লিক করতে হবে > Module এ ক্লিক করতে হবে > এরপর নিচের কোডগুলি কপি করে পেস্ট করতে সেই উইন্ডোতে।
কোডগুলি রান করাতে হবে :
  • (Visual Basic এর উইন্ডো থেকে) Run মেনুর Run এ ক্লিক করতে হবে বা কীবোর্ড হতে ‘F5′ বাটনে চাপ দিতে হবে। তাহলে কোডগুলি রান করবে।

এইবার এক্সেলের সেই ওয়ার্কশীটে ফিরে গেলে দেখতে পাবো যে, কোন ‘non-numeric characters’ নেই।

নোট : এই কোড এক্সেলের সম্পূর্ণ ওয়ার্কশীটের জন্য কাজ করবে, কোন সিলেক্ট করা রো বা কলামের জন্য আলাদা করে কাজ করবে না

 

পদ্ধতি : ২ (শুধুমাত্র অফিস ২০১০ এবং নতুন ভার্সন এর জন্য)

এছাড়াও এক্সেলের নতুন ভার্সনের জন্য একটি প্লাগইনস পাওয়া যায়, যা সংগ্রহ করে ইনস্টল করে নিলে একটি নতুন মেনু সংযোজিত হবে যার নাম Kutools । এই টুলস দিয়েও অনেক সহজেই উপরের কাজটি সম্পাদন করা যায়। এই টুলসটি নেটে ৩০ দিনের জন্য ব্যবহার করতে পাওয়া যায় এবং এটি শুধুমাত্র নতুন ভার্সনগুলির জন্য প্রযোজ্য।

Kutools এর ব্যবহার : প্রথমে Kutools টিতে ক্লিক করতে হবে > Text Tools এ ক্লিক করতে হবে > Delete Characters… > এবং একটি ডায়ালগ বক্স আসবে সেখান থেকে প্রয়োজনীয়টি চয়েস করে > কিবোর্ডের এন্টার বাটন চাপতে হবে।

লেখা : এলিন ২০১৩

বি: দ্র: লেখাটি কোন মতেই লেখকের অনুমতি ছাড়া বা এই ব্লগের লিংক ব্যবহার না করে অন্য কোথাও পোস্ট করা যাবে না।

পোস্টটি শেয়ার করুন :

Leave a Reply

Your email address will not be published. Required fields are marked *