كيفية ربط ملف الاكسيل بالواتس ..مهم جدا لكل موظفين الموارد البشرية
زهقت من اسئلة الموظفين :-
هو انا استهكلت كام يوم من الاجازات السنوية؟
طيب متبقي ليا كام يوم سنوي؟
اجمالي تاخيراتي قد ايه؟
هو ان اشتغلت كام ساعة اضافي الشهر السابق؟
الحل هو ارسال ملخص الشهر لكل موظف عن طريق ربط شيت الاكسيل بالواتس
الكود :
Sub send()
Dim contact As String
Dim text As String
u = Application.WorksheetFunction.CountA(Sheets("whatsapp").Range("a:a")) - 2
ActiveWorkbook.FollowHyperlink Address:="https://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
رابط تحميل الملف
https://www.up-4ever.org/b3np87xnh5ir
#حازم_حسن
#دروس_HR_أونلاين
#أكسيل
#HR
Видео كيفية ربط ملف الاكسيل بالواتس ..مهم جدا لكل موظفين الموارد البشرية канала دروس HR اونلاين
هو انا استهكلت كام يوم من الاجازات السنوية؟
طيب متبقي ليا كام يوم سنوي؟
اجمالي تاخيراتي قد ايه؟
هو ان اشتغلت كام ساعة اضافي الشهر السابق؟
الحل هو ارسال ملخص الشهر لكل موظف عن طريق ربط شيت الاكسيل بالواتس
الكود :
Sub send()
Dim contact As String
Dim text As String
u = Application.WorksheetFunction.CountA(Sheets("whatsapp").Range("a:a")) - 2
ActiveWorkbook.FollowHyperlink Address:="https://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
رابط تحميل الملف
https://www.up-4ever.org/b3np87xnh5ir
#حازم_حسن
#دروس_HR_أونلاين
#أكسيل
#HR
Видео كيفية ربط ملف الاكسيل بالواتس ..مهم جدا لكل موظفين الموارد البشرية канала دروس HR اونلاين
Показать
Комментарии отсутствуют
Информация о видео
Другие видео канала
إرسال رسائل عبر الواتس أب Whatsapp باستخدام الإكسل Send via Whatsapp by Excelكيفية حساب فرق الوقت و التاريخ في الاكسيل و استخدام DATADIF - NETWORKDAYS.INTLكيفية اعداد تقارير الموارد البشرية علي الاكسيلحول ملف اكسل الى جهات اتصال واستيراد الى gmailعمل نموذج ادخال بيانات الموظفين وعمل القوائم المنسدلة الديناميكية علي الاكسيل بدون اكواد او معادلاتعمل نموذج ادخال بيانات الموظفين علي الاكسيل باستخدام الماكروشرح دمج المراسلات بين الاكسيل و الورد | Mail Mergeاانشاء قائمة منسدلة فرعية معتمده على قائمة منسدلة رئيسية في الاكسل|ربط القوائم المنسدلهشرح مشاركة جدول اكسل للتعديل مع أكثر من شخص عن بعد Excel| انترنت أو شبكة داخليةخلال ساعتين فقط | تعلم الإكسل من خلال بناء برنامج محاسبة!😎👌✌هام جدا وطريقة غير مجربة (تصميم كشف حضور وغياب احترافي جدا) - يعمل أوتوماتيك - Excelدورة تقنيات الواتس أب /سليمان محمد الأحيدب /كيفية الارسال عبر الواتس إلى 500رقم غير محفوظة في الجوالكيفية عمل اشعار بقرب انتهاء تاريخ عقود الموظفين علي الاكسيلمشاركة شيت الاكسل ومعرفة من قام بالتعديل فيه | السماح لاكثر من مستخدم التعديل فى الاكسيلالاكسل | مهارات لا تعرفها عن تنسيق الطباعةربط اكسل بالوتس أب ويب-وتس أب الكمبيوتر-ارسال المرفقات جهات اتصال موجودة-ارقام غير موجودة-ملف واحددليلك لتعلم الاكسل من الصفر حتى الاحتراف في فيديو واحد!برمجة الإكسل - الدرس 03 - التطبيق الأول - ترجمة النصوص First App in Excel VBA Courseطريقة تنزيل جميع هواتف أولياء الأمور من نور على الجوال دفعة واحدة (راجع الوصف لتفادي المشاكل)