أبومروان

وعليكم السلام اتفضل الكود دا لعله يكون المطلوب جرب وشوف وخبرنا بالنتجه Option Explicit Sub ارسال_رسائل_واتساب() Dim ws As Worksheet Dim LastRow As Long Dim i As Long Dim Phone As String Dim Name As String Dim Msg As String Set ws = ThisWorkbook.Sheets("رسائل اليوم") LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row For i = 2 To LastRow Name = Trim(ws.Cells(i, "A").Value) Phone = Trim(ws.Cells(i, "C").Value) Msg = Trim(ws.Cells(i, "E").Value) If Phone <> "" And Msg <> "" Then Msg = Replace(Msg, "[الاسم]", Name) Msg = WorksheetFunction.EncodeURL(Msg) ThisWorkbook.FollowHyperlink _ "https://web.whatsapp.com/send?phone=" & Phone & "&text=" & Msg Application.Wait Now + TimeValue("00:00:08") SendKeys "~", True Application.Wait Now + TimeValue("00:00:03") End If Next i MsgBox "تم إرسال جميع الرسائل", vbInformation End Sub وممكن حضرتك تتصفح المواضيع اللي تحت👇 ينمكن تلاقي اللي بتدور عليه وأكتر كما🌹 Copy of واتس اب ويب.xlsm

السلام عليكم مرفق الملف بعد التعديل لعله المطلوب Copy of Horaire-18-06-2026-(04.12.06).xlsb

وعليكم السلام ورحمه الله وبركاته يجب عليك ارفاق ملف الاكسل المراد العمل عليه نظام حماية لملف الاكسل والدخول للصفحات تشفير الملفات بدلا من استخدام انواع الحماية المختلفة مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_شاشة دخول_صلاحيات_PASS WORD_اخفاء معادلات

وعليكم السلام ورحمه الله وبركاته فين دليل الايام او التاريخ اللي فيها اجازات وموجده في اي عمود يرجي التوضح اكتر للمطلوب ولعله تجد ما تريده

الإبداع في أبهى صوره @عبدالله بشير عبدالله طريقتك في التنفيذ ممتازة ونتعلم الجديد من حضرتك كل يوم

السلام عليكم ورحمة الله اتفضل تم عمل المطلوب علي حسب ما فهمت لعله يكون المطلوب مؤشر عمل اللجان.xlsm

السلام عليكم ورحمه الله وبركاته الليك بعض الموضيع بالمنتدي جميله جدا لعله تجد فيها ما تريد

وعليكم السلام ورحمه الله وبركاته استاذنا @عبدالله بشير عبدالله تحياتي الطيبة، بالطبع من الممكن تعديل صيغ مخصصة ثم دمجها في إكسل خصوصًا إن كنت تستخدم نسخة قديمة الاضافه تعمل بدون اي مشاكل ربما تكون حماية الجهاز عندك مُفعّلة بدرجة عالية شوية من المحتمل هذا السبب وراء ظهور التحذير وتم عمل موضوع مشابه علي المنتدا من عام 2020 XFunctions.rar XFunctions.zip

السلام عليكم ورحمه الله وبركاته بعد اذن استاذنا @عبدالله بشير عبدالله ممكن تستخدم الملفات المرفقه للاضافه الدول عندك كيفية اضافة معادلة البحث XLOOKUP و الدالة Xmatch لاوفيس 2019-2016- 2010 - 2007 – 2003 XFunctions.7z

وعليكم السلام ورحمه الله وبركاته صمّم الشكل المطلوب العمل عليه، واشرح بالصور تفاصيل ما تريده بشكل واضح، حتى يمكن تنفيذ طلبك بالشكل الذي تتوقعه تمامًا.

بارك الله فيك عمل اكثر من رائع 👏

بارك الله فيك عمل اكثر من رائع👍

السلام عليكم ورحمه الله اتفضل لعله المطلوب بسم الله.xlsm

شكرا على كلامك الطيب

وعليكم السلام وحمه الله اتفضل لعله المطلوب برمجة اكسل (1).xlsm تم تصميم الصوره ب ai برمجة اكسل (1).xlsm

وعليكم السلام ورجمه الله راجع الراوبط ادناه لعله يفيدك https://exceljet.net/lessons/how-to-move-a-pivot-table-style-to-another-file https://www.pivot-table.com/2018/04/23/copy-a-pivot-table-custom-style-to-different-workbook/ https://www.contextures.com/excel-pivot-table-format.html#videocopyfile https://support.office.com/en-gb/article/create-a-pivottable-with-an-external-data-source-db50d01d-2e1c-43bd-bfb5-b76a818a927b https://www.youtube.com/watch?v=9cP_IahEc1U https://www.youtube.com/watch?v=j7_jquTgOUg https://www.officena.net/ib/topic/41245-مساعدة-في-الجداول-المحورية-pivot-table/

السلام عليكم ورحمه الله راجع الاخطاء في المعادلات وارفق مثال توضحي لما تريده من مطلوب

وعليكم السلام ورحمه الله وبركاته اتفضل المعادله يمكنك استخدام اي معادله لعلها تفي بالغرض والمطلوب =AND($F$1<>""; ISNUMBER(SEARCH($F$1; $A2 & $B2 & $C2))) =IF(ISBLANK($F$1);0;SEARCH($F$1;$A2&$B2&$C2)) يمكنك البحث عن اكتر من عمود وعدل المعادله كيفما تشاء واليك طريقه اخري للبحث والتولين مع الكود بدل المعادلات اختر ما يصلح Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Dim cell As Range Dim searchText As String Dim lastRow As Long If Not Intersect(Target, Me.Range("F1")) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False Me.Range("A2:C1000").Interior.ColorIndex = xlNone searchText = Trim(Me.Range("F1").Value) If searchText = "" Then Application.EnableEvents = True Application.ScreenUpdating = True Exit Sub End If lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row Set rng = Me.Range("A2:C" & lastRow) For Each cell In rng.Rows Dim combinedText As String combinedText = cell.Cells(1, 1).Value & cell.Cells(1, 2).Value & cell.Cells(1, 3).Value If InStr(1, combinedText, searchText, vbTextCompare) > 0 Then cell.Interior.Color = RGB(255, 255, 153) End If Next cell Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub نرجو ان يكون المطلوب البحث معادله .xlsx andالبحث معادله .xlsx الكود .xlsm

الشكر لله وحده

جزاك الله خيراً

وعليكم السلام ورحمه الله وبركاته اتفضل لعله المطلوب EX.xlsx =IFERROR(INDEX(صادر!$A$2:$A$1000; MATCH(0; COUNTIF($A$1:A1; صادر!$A$2:$A$1000); 0)); "")

وعليكم السلام ورحمه الله زبركاته وبارك الله فيك أ/ @حليم ناصر إن شاء الله لم يؤثر الكود على أداء برنامجك، فهو في الأساس نفس الكود الخاص بك مع بعض التعديلات البسيطة في التنسيقات تم التأكد من أن الخلية أو مربع النص يمكنه التعرف على ما إذا كان المحتوى رقمًا أو مبلغًا أو نصًا وهذا ما تم تنفيذه بالفعل أرجو أن تقوم بتجربته ولا تتردد أبدًا في طرح أي تحدٍ أو استفسار تواجهه

وعليكم السلام ورحمة الله وبركاته علي ما اعتقد الكود يعمل ولكن يجب اولا فك الحمايه عن الشيتات اثتاء العمل

السلام عليكم ورحمه الله وبركاته يمكنك مراجعه الربط ادناه لعله يفيد حضرنك تحويل الاكسل الى ملف تنفيذي (EXE) هل يمكن تغير شكل ايقونة التشغيل

وعليكم السلام ورحمه الله وبركاته جرب الكود التالي لعله المطلوب Private Sub CommandButton1_Click() ff = 7 Do Until Feuil1.Cells(ff, "a").Value = "" ff = ff + 1 Loop ' تحويل القيم إلى أرقام قبل التخزين Feuil1.Cells(ff, 1).Value = Val(TextBox1.Text) Feuil1.Cells(ff, 2).Value = CDbl(TextBox2.Text) ' استخدام CDbl للأرقام الكبيرة Feuil1.Cells(ff, 3).Value = CDbl(TextBox3.Text) Feuil1.Cells(ff, 4).Value = CDbl(TextBox4.Text) ' تطبيق تنسيق الأرقام على الخلايا Feuil1.Cells(ff, 2).NumberFormat = "#,##0.00" Feuil1.Cells(ff, 3).NumberFormat = "#,##0" Feuil1.Cells(ff, 4).NumberFormat = "#,##0.00" MsgBox ("تم التسجيل") Me.TextBox1.SetFocus Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" ddd = 7 Do Until Feuil1.Cells(ddd, "a").Text = "" ddd = ddd + 1 Loop Me.TextBox1.Value = ddd + 1 - 7 End Sub Private Sub CommandButton4_Click() Feuil1.Activate ' تحويل القيم إلى أرقام عند التعديل ActiveCell.Offset(0, 0).Value = Val(TextBox5.Text) ActiveCell.Offset(0, 1).Value = CDbl(TextBox2.Text) ActiveCell.Offset(0, 2).Value = CDbl(TextBox3.Text) ActiveCell.Offset(0, 3).Value = CDbl(TextBox4.Text) ' تطبيق تنسيق الأرقام على الخلايا المعدلة ActiveCell.Offset(0, 1).NumberFormat = "#,##0.00" ActiveCell.Offset(0, 2).NumberFormat = "#,##0" ActiveCell.Offset(0, 3).NumberFormat = "#,##0.00" Me.TextBox5.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.SetFocus End Sub ' تعديل دوال التحويل في الأحداث Private Sub TextBox2_Change() If IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) Then Me.TextBox4.Value = CDbl(Me.TextBox2.Text) * CDbl(Me.TextBox3.Text) End If End Sub Private Sub TextBox3_Change() If IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) Then Me.TextBox4.Value = CDbl(Me.TextBox2.Text) * CDbl(Me.TextBox3.Text) End If End Sub