مصطلحات الموارد البشرية ‏HR

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

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

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- ثم الضغط على الزر الذى قمنا بانشاءه

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