اذهب الي المحتوي
أوفيسنا

نجوم المشاركات

  1. adel123

    adel123

    03 عضو مميز


    • نقاط

      2

    • Posts

      173


  2. رامي الخبيري

    رامي الخبيري

    02 الأعضاء


    • نقاط

      2

    • Posts

      54


  3. إيهاب عبد الحميد

    إيهاب عبد الحميد

    03 عضو مميز


    • نقاط

      2

    • Posts

      150


  4. جمعة العوامي

    جمعة العوامي

    03 عضو مميز


    • نقاط

      2

    • Posts

      104


Popular Content

Showing content with the highest reputation on 17 مار, 2019 in all areas

  1. مرفق عن طريق pivot table المناطق السكنية 2019.xlsx
    2 points
  2. كثر الحديث والطلب عن هذا الموضوع (استخراج الارقام أو الأحرف او الكلمات من نص) لذلك قمت بتحميل هذا الملف الذي عسى ان يستفيد منه اكبر عدد ممكن من الاعضاء الملف يحتوي على دالّة معرفة Option Explicit Function Salim_Single_Match(aString As String, my_expression As String, n%) As Variant Dim RegEx As New VBScript_RegExp_10.RegExp Dim NowArray() As String Dim Match, matches As Object Dim x%, cnt% With RegEx .Pattern = my_expression .Global = True .IgnoreCase = True End With On Error Resume Next Set matches = RegEx.Execute(aString) x = matches.Count If x = 0 Then Error.Clear Salim_Single_Match = "No Match": Exit Function End If ReDim NowArray(x - 1) For Each Match In matches NowArray(cnt) = Match.Value cnt = cnt + 1 Next If n > cnt Then n = cnt Salim_Single_Match = NowArray(n - 1) End Function salim_UDF_Formula.xlsm
    1 point
  3. حتّى لا يضيع الــ Commend Button أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه فأنه يتبعك اينما ذهبت بواسطة هذا الكود Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim col%: col = Target.Columns.Count Dim lastcel As Range: Set lastcel = Target.Rows(1).Cells(col) Application.EnableEvents = False With Me.Shapes.Range(Array("SALIM_BTN")) .Left = lastcel.Left + lastcel.Columns.Width + 5 .Top = lastcel.Top .Width = 130 .Height = 28 End With Application.EnableEvents = True End Sub جرب هذا الملف Floting_Btn.xlsm
    1 point
  4. السلام عليكم لو سمحتو محتاج معادلة تجمعلي كل الاكواد المكررة بكمياتها ياعنى لو عندي الكود س مكرر 10 مرات وكل مرة بكمية مختلفة يجمعلى كل الكود س وكل الكميات المكررة وشكرا جزيلا
    1 point
  5. السلام عليكم ورحمة الله وبركاتة الى الاخوة الزملاء والخبراء بمنتدى الاكسل وكما عودونا دائما الحل لكل ما نفكر به مرفق ملف يتكون من عدد 2 شيت الاول بع الاسماء والصفوف والمناطق السكنية والمطلوب بالشيت الثاني حساب عدد الطلاب لكل صف حسب مناطق السكن ولسيادتكم جزيل الشكر المناطق السكنية 2019.7z
    1 point
  6. شكرا استاذ رامي شكرا جزيلا لتقديم المساعدة وجاري المحاولة للتطبيق بارك الله فيك الاستاذ الفاضل جمعة العوامي لكم مني كل تحية وتقدير وجزاكم الله خيرا بالفعل هذا ما كنت ابحث عنه معادلة تقوم بالمطلوب تم العمل على ملفكم وتقبل مني كل تحية وتقدير
    1 point
  7. اتفضل الملف لعله يفى بالغرض جلب البيانات بالاشهر.xlsx
    1 point
  8. وهذا حل آخر .. عن طريق المعادلات ... تفضل المطلوب بالمرفق .. مع بعض التعديلات ... المناطق السكنية_معدل.xlsx
    1 point
  9. استاذ على لي سؤال بعد اذن حضرتك انا عندي ملف اقساط به بداية اول تاريخ للقسط دالة التاريخ اللي حضرتك راسلها ولكن اريد ان احسب عدد الاشهر اتوماتيكيا فمثلا عندي تاريخ اول القسط ونهايته وعدد الاقساط ولو يكن 10 اقساط اريد كود يحسبلي الاشهر تناقسيا بمجرد كتابة التاريخ ولك الف شكر
    1 point
  10. أنا أشرف إنه يمكن ان يكون توارد خواطر بيننا فأنت قامة عالية في عالم الإكسيل
    1 point
  11. السلام عليكم أساتذتنا الأفاضل تحية أ/ سليم لإثراء الموضوع يمكن عمل ذلك بالدوال عن طريق الصيغة الآتية =AVERAGE(INDEX(A2:L2;AGGREGATE(15;6;COLUMN(A2:L2)/(A2:L2<>0);1)):L2)
    1 point
  12. يمكنك إجراء بحث عن: (<[0-9]@>) واستبدال بـ: (\1) مع اختيار استخدام أحرف البدل. غير أن هذه الطريقة لا تنجح تماماً إن وُجدت أحرف موصولة بالعدد (مثلاً: رجلان و3 نساء... في عام 1400هـ.) في هذه الحال جرّب هذه الطريقة البديلة (مع اختيار استخدام أحرف البدل): بحث عن: ([![0-9])([0-9]@)([![0-9]) واستبدال بـ: \1(\2)\3
    1 point
  13. السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الفاضل / محمود الشريف جزاه الله خيراً على هذا الكود الرائع جعله الله في ميزان حسناته. ولإثراء الموضوع إليك الحل بالمعادلات فقط مع تنسيق التاريخ وتنسيق شرطي. AA1.rar
    1 point
×
×
  • اضف...

Important Information