تعتبر برامج Microsoft Excel أحد أهم الأدوات التي يستخدمها المحترفون والمبتدئون في مجال الأعمال والمالية. إذا كنت تبحث عن حلول عملية وفعالة باستخدام إكسيل، فقناة Excel Sura هي المكان المناسب لك. تقدم القناة حلولاً مبسطة وسهلة الفهم لجميع المشاكل التي قد تواجهك أثناء استخدام برنامج الإكسيل. سواء كنت تبحث عن طرق لتحسين أداء جداول البيانات الخاصة بك، أو ترغب في تعلم مهارات جديدة في مجال الجداول الديناميكية والمخططات، ستجد كل ما تحتاجه في Excel Sura. لا تضيع وقتك في البحث عن الإجابات، انضم الآن إلى Excel Sura واستفد من خبرة واحترافية فريقنا في مجال الإكسيل.
08 Feb, 09:01
30 Jan, 08:32
28 Jan, 21:08
24 Jan, 18:43
24 Jan, 18:42
21 Jan, 08:28
19 Jan, 19:11
15 Jan, 18:36
Sub SendWhatsAppMessages()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("YourSheetName")
Dim i As Long
For i = 2 To ws.UsedRange.Rows.Count
Dim phone As String
phone = ws.Cells(i, 2).Value
Dim message As String
message = ws.Cells(i, 3).Value
Dim url As String
url = "https://wa.me/" & phone & "?text=" & EncodeURL(message)
ThisWorkbook.FollowHyperlink url
Application.Wait Now + TimeValue("00:00:05")
Next i
End Sub
Function EncodeURL(url As String) As String
EncodeURL = WorksheetFunction.EncodeURL(url)
End Function
11 Jan, 21:06
10 Jan, 19:24
08 Jan, 19:35
08 Jan, 19:22
07 Jan, 18:52
02 Jan, 19:49
28 Dec, 17:57
22 Dec, 18:44
20 Dec, 17:07
19 Dec, 19:07
07 Dec, 07:40
04 Dec, 20:47
11 Oct, 20:00
11 Sep, 19:31
17 Aug, 07:54
03 Aug, 11:03
25 Jul, 07:47
19 Jul, 20:12
02 Jul, 19:53
27 Jun, 20:28
20 Jun, 08:06
16 Jun, 05:21
10 Jun, 19:10
09 Jun, 07:57
26 May, 14:48
04 May, 08:01
30 Apr, 08:20
21 Apr, 19:53
20 Apr, 08:50
14 Apr, 06:20
28 Mar, 21:27