এক্সেল থেকে হোয়াটস্যাপে মেসেজ পাঠান - Send messages from Excel to WhatsApp

 

আজ আমরা শিখব কিভাবে এক্সেল থেকে হোয়াটসঅ্যাপ মেসেজ পাঠাতে হয়। 

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

আমরা কলাম "I " তে  মোবাইল ফোন নম্বর তালিকাভুক্ত করুন  এবং  "M"  কলামের সংশ্লিষ্ট ঘরে মেসেজে লিখুন।

কলাম "I " এ ফোন নম্বর লেখার সময়, নিম্নলিখিত বিষয়গুলি বিবেচনা করতে হবে: 

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

Note :আমাদের এই টেমপ্লেটে, প্লাস চিহ্ন (+) স্বয়ংক্রিয়ভাবে VBA কোড স্নিপেট দ্বারা যুক্ত হয় যা আমরা Worksheet_Change পদ্ধতিতে যোগ করেছি।    

If IsNumeric(Target.Value) And Target.Value <> Empty Then
Target.NumberFormat = "+000-000-0000"
Else
Exit Sub
End If

 এক্সেল থেকে হোয়াটসঅ্যাপ বার্তা পাঠানোর জন্য দেশের কোডটি  সহ  সম্পূর্ণ ফোন নম্বর অনুসরণ করা হয়। উদাহরণস্বরূপ, যদি মার্কিন যুক্তরাষ্ট্রে একজন ব্যক্তির (দেশের কোড “+1”) এরিয়া কোড “305” এবং ফোন নম্বর “XXX-XXXX” থাকে,  যদি বাংলাদেশের একজন ব্যক্তির (দেশের কোড “+88”) এরিয়া কোড “0171” এবং ফোন নম্বর “XXX-XXXX” থাকে।  যখন আপনি টেমপ্লেটে সেই ব্যক্তির ফোন নম্বরটি কান্ট্রি কোড সহ সম্পূর্ণ ফোন নম্বর লিখবেন , আপনার কন্টাক্ট বুকে সেই ব্যক্তি সেইভ না থাকলেও  WhatsApp বার্তা চলে যাবে। 

  আমরা "I " কলামের cells জন্য যে VBA কোডগুলি তৈরি করেছি তার মাধ্যমে, cells এ  প্রবেশ করা ফোন নম্বর থেকে অক্ষর এবং সংখ্যার মধ্যে শূন্যস্থান যেমন অক্ষর, চিহ্ন, বন্ধনীগুলি বাদ দেওয়া হয়। সেল সম্পূর্ণ ফোন নম্বর বিন্যাসে রূপান্তরিত হয়। 

আমরা এই প্রক্রিয়াটির জন্য প্রয়োজনীয় কোডগুলি Worksheet_Change পদ্ধতিতে যোগ করেছি এইভাবে যখন cells কোনো পরিবর্তন হয় তখন ম্যাক্রো ট্রিগার হয়।

cells  থেকে   অ-সংখ্যিক অক্ষরগুলি সরানোর জন্য আমাদের VBA কোডস:  

...
 For Each myCell In Range(Target.Address)
        v = myCell.Value
        If v <> "" Then
            LastString = ""
            For I = 1 To Len(v)
                mT = Mid(v, I, 1)
                If mT Like "[0-9]" Then
                    tString = mT
                Else
                    tString = ""
                End If
                LastString = LastString & tString
            Next I
        End If
    myCell.Value = LastString
    Next myCell
...

এই টেমপ্লেটে আপনি কারো নাম বা  কোম্পানির নামের কলামের ডেটা (কলাম A এবং B) কলামের  শীর্ষে টেক্সট বক্সের মাধ্যমে ফিল্টার করতে পারবেন।  টেক্সটবক্স সহ এক্সেল ফিল্টার কলাম।  

টেক্সটবক্স ১  এর জন্য VBA  কোড: 

Private Sub TextBox1_Change()
Dim metin
On Error Resume Next
Range("A1").Select
TextBox1.BackColor = RGB(255, 255, 170)
metin = TextBox1.Value
Set bul = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(What:=metin)
Application.Goto Reference:=Range(bul.Address), Scroll:=False

Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter field:=1, Criteria1:=metin & "*"

TextBox1.Activate

If metin = Empty Then
Sheets("Data").AutoFilterMode = False
TextBox1.BackColor = RGB(255, 255, 255)
Application.CutCopyMode = False
End If

End Sub

টেক্সটবক্স ২  এর জন্য VBA  কোড: 

Private Sub TextBox2_Change()
Dim metin2
On Error Resume Next
Range("B1").Select
TextBox2.BackColor = RGB(255, 255, 170)
metin2 = TextBox2.Value
Set bul = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row).Find(What:=metin2)
Application.Goto Reference:=Range(bul.Address), Scroll:=False
Range("A1:B" & Range("B" & Rows.Count).End(xlUp).Row).AutoFilter field:=2, Criteria1:=metin2 & "*"
TextBox2.Activate
If metin2 = Empty Then
TextBox2.BackColor = RGB(255, 255, 255)
Sheets("Data").AutoFilterMode = False
End If

End Sub

 

আপনাদের কোডিং এর সমস্যা বা বুঝতে সমস্যা কমেন্ট করুন।  ধন্যবাদ

 

টিউটোরিয়ালটির ভিডিও পেতে আমারদের চ্যানেলটি সাবস্ক্রাইব করুন। 

 এখানে ক্লিক করুন-Click here

আরও শিখুন - ২০টি এক্সেল টিপস, এক্সেল টিউটোরিয়াল, এক্সেল সূত্র প্রয়োগ, লাইব্রেরি ম্যানেজমেন্ট সফ্টওয়্যার, VBA macro Freelancing

Post Views: