Рет қаралды 611,347
زهقت من اسئلة الموظفين :-
هو انا استهكلت كام يوم من الاجازات السنوية؟
طيب متبقي ليا كام يوم سنوي؟
اجمالي تاخيراتي قد ايه؟
هو ان اشتغلت كام ساعة اضافي الشهر السابق؟
الحل هو ارسال ملخص الشهر لكل موظف عن طريق ربط شيت الاكسيل بالواتس
الكود :
Sub send()
Dim contact As String
Dim text As String
u = Application.WorksheetFunction.CountA(Sheets("whatsapp").Range("a:a")) - 2
ActiveWorkbook.FollowHyperlink Address:="web.whatsapp.com/"
Application.Wait (Now + TimeValue("00:00:12"))
For I = 0 To u
contact = Sheets("whatsapp").Range("a2").Offset(I, 0).Value
text = Sheets("whatsapp").Range("i2").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
End Sub
رابط تحميل الملف
www.up-4ever.o...
او
على دروس HR اونلاين على تليجرام
t.me/Dross_HR_Online
#حازم_حسن
#دروس_HR_أونلاين
#أكسيل
#HR