recent
أخبار ساخنة

كيفية ربط الاكسيل بالواتس اب وارسال البيانات للموظفيت

الصفحة الرئيسية


 كيفية ربط الاكسيل بالواتس اب وارسال البيانات للموظفيت

بعد ربط برنامج الاكسيل بالواتس اب سوف تتمكن من ارسال جميع البيانات للموظفين مهما كان عددهم وذلك بخطوة واحده فقط واليكم الخطوات :-

1- ربط التليفون ببرنامج الواتس اب او موقع الواتس اب

2- تسمية صفحة الشيت على الاكسيل ب project1

3- كتابة ارقام التليفونات المراد ارسال اليها الرسائل

4- الذهاب الى قائمه developer , ثم من insert  انشاء زر 

5 - ثم من new ووضع الكود الاتى 

الكود

Dim contact As String

Dim text As String

u = Application.WorksheetFunction.CountA(Sheets("project1").Range("a:a")) - 2

ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com"

Application.Wait (Now + TimeValue("00:00:20"))

For I = 0 To u

contact = Sheets("project1").Range("a2").Offset(I, 0).Value

text = Sheets("project1").Range("b2").Offset(I, 0).Value

Call SendKeys("{TAB}", True)

Application.Wait (Now + TimeValue("00:00:05"))

Call SendKeys(contact, True)

Application.Wait (Now + TimeValue("00:00:05"))

Call SendKeys("~", True)

Application.Wait (Now + TimeValue("00:00:05"))

Call SendKeys(text, True)

Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("~", True)

Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("{TAB}", True)

Next I

6- حفظ الملف على excel macro enable

7- ثم الضغط على الزر الذى قمنا بانشاءه

تابع الفيديو للتوضيح


google-playkhamsatmostaqltradent