এক্সেল থেকে হোয়াটস্যাপে মেসেজ পাঠান - 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
...
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:=FalseRange("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
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 IfEnd Sub
আমাদের সম্পর্কে জানতে এবং বিভিন্ন টিউটোরিয়াল পেতে লাইক ও সাবস্ক্রাইব করে সাথেই থাকুন
https://youtube.com/@KarimExcelVba
https://www.instagram.com/karimexcelvba/
https://twitter.com/KarimExcelVBA
https://www.linkedin.com/in/karimexcel/
https://www.quora.com/profile/KarimExcelVBA
https://www.reddit.com/user/KarimExcelVBA
https://www.tumblr.com/karimexcelvba
https://www.flickr.com/photos/karimexcelvba/
https://www.pinterest.com/KarimExcelVBA/
Post Views:
0 মন্তব্যসমূহ