سليم حاصبيا

هذه المعادلة =SUM($L$9:$L$1031)+SUM($G$9:$G$1031) أو واحدة من هاتين (حسب اعدادات الجهاز عندك( فاصلة أو فاصلة منقوطة) =SUM($L$9:$L$1031,$G$9:$G$1031) OR =SUM($L$9:$L$1031;$G$9:$G$1031)

ربما هكذا Add_To_Sam_Self.xlsm

لا أعلم ماهية الـــ Object الموحود لا هو ComboBox ولا ListBox

جرب هذا الملف كتابة اي شيء لا يكون رقماً يعتبر صفر AddToSamSelf.xlsm

هذه الكلمة تظهر فقط على الشاشة ولا تظهر في الطباعة

جرب هذا الكود ملاحظة مهمة جدا ً المطلوب ابقاء العامود B (فارغاً ) و الا يتم مسح كامل البيانات Option Explicit Sub Salim_Regex() If ActiveSheet.Name <> "ورقة1" Then Exit Sub Dim Mot As String Dim My_Regex As Object Dim arrWords As Variant Dim RA As Long, x As Long Dim m As Long, Ro As Long Range("C2").CurrentRegion.ClearContents RA = Cells(Rows.Count, 1).End(3).Row Set My_Regex = CreateObject("VBScript.RegExp") My_Regex.Global = True My_Regex.Pattern = "([\+]?\(?\d+\)?\W\d+\W\d+)+" m = 3 For Ro = 2 To RA Mot = Cells(Ro, 1) If My_Regex.test(Mot) Then Set arrWords = My_Regex.Execute(Mot) For x = 0 To arrWords.Count - 1 Cells(Ro, m) = arrWords(x) m = m + 1 Next x End If m = 3 Next Ro End Sub الملف مرفق Use_Regex.xlsm

بعد تشغيل المعادلة قم بتغيير قيم الخلايا في العامود E وتعرف لماذا E5

جرب هذا الملف Farz_Me.xlsm

اذا لم تعمل معك المعادلة استبدل "," الفاصلة بفاصلة منقوطة _ ";" (حسب اعدادات الجهاز عندك لتبدو المعادلة هكذا) =IF($E5="";"";F$4-SUM(E$5:$E5))

جرب هذه المعادلة واسحب نزولاُ =IF($E5="","",F$4-SUM(E$5:$E5))

- تم التعديل على بنية الملف 1 1- العداد في العامو الأول أوتوماتيكي (تتم اضافة الرقم اذا كانت الخلية المجاورة غير فارغة) 2 عامود المعادلات (AI) يدرج لك المعادلة اذا كان هناك اسم في العامود الثاني 3- التلوين في السطر (اخضر يتم اذا كان هناك اسم في العامود الثاني)New_File.xlsm 4- التلوين في السطر ( احمر يتم اذا كان هناك اسم في العامود الثاني واذا كانت اي خلية تختوي على حرف "ع") 5- لا لزوم لعمل فلتر للأعمدة (سهم الفلتر في كل عامود ظاهر) مما يشوه منظر الشيت 6- بالنسبة لحماية خلية الشهر عند طلب تغيير خلية الشهر يقوم اكسل بتوجيه رسالة تطلب الباسورد الباسورد هو كلمة Salim أ- اذا كانت الكلمة صحيحة يقوم اكسل بتغيير التواريخ المطلوبة ب_اذا كانت كلمة المرور غير صحيحة يقوم البرنامج بمسح كل شيء في الصفوف 3 و 4 و تفريغ خلية الشهر و يعطيك رسالة احرى ان الباسورد غير صحيح 7- أكثر من هكذا لا أستطيع اتحسين الملف New_File.xlsm

النطاقات الاخرى الملونة باللون الاصفر ايضا بنفس الكود تشملها الحماية (لا يسمح ختى بالاقتراب منها أغني تحديدها) اين هو تيويب مراجعة؟؟؟؟ الماكرو الأخير الضي وضغته بنفسك لا لزوم له لأن النطاق (AI5:AI14) ايضاً محمي

النطاقات الاخرى الملونة باللون الاصفر ايضا بنفس الكود تشملها الحماية (لا يسمح ختى بالاقتراب منها أغني تحديدها) اين هو تيويب مراجعة؟؟؟؟ الماكرو الأخير الضي وضغته بنفسك لا لزوم له لأن النطاق (AI5:AI14) اسضاً محمي

اذا كنت تريد العكس استبدل هذا السطر في الكود sh.Range("MM2").Formula = "=AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1)" ال هذا sh.Range("MM2").Formula = "=NOT(AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1))"

نفذ الكود ثم خذ صورة للشيت 3 مثلاً ( الخلايا D1 و F1 يجب ان تكون تاريخاً موجوداَ في الجدول) من ناحية اخرى هل من المغقول بيت ملايين الخلايا ان لا تجد خليتين لادراح التاريخ (ضعهما في اخر عامودين من الاكسل وعدّل في الكود على عنوانهما) لو لاحظت الكود انا وضعت في الخلية MM2 (بعيدة جداً عن الجدول) معادلة تم مسحتها بد تنفيذ الكود مباشرة

بعد الضغط على فلتر اذهب الى الصفحات من 3 الى الأخير وشاهد ماذا جرى (أنت تريد استثناء الصفحتين الأولى والثانية)

لا أعتقد انه هناك حاحة لليوزر في هذه الحالة اكتب التاريخ الأصغر في الخلية D1 والتاريخ الأكبر في الخلية F1 من الصفحة Sheet1 ونفذ الماكرو الاول الماكرو الثاني لازالة الفلترة Sub MY_FILTER() 'First Macro+++++++++++++++++++++++++++++++++++ Dim sh As Worksheet For Each sh In Worksheets If sh.Name = "Sheet1" Or sh.Name = "Sheet2" Then Else On Error Resume Next sh.ShowAllData On Error GoTo 0 sh.Range("MM2").Formula = "=AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1)" sh.Range("A1").CurrentRegion.AdvancedFilter 1, sh.Range("MM1:MM2") sh.Range("MM1:MM2").Clear End If Next End Sub 'Second Macro+++++++++++++++++++++++++++++++++++ Sub Show_all() Dim sh As Worksheet For Each sh In Worksheets On Error Resume Next sh.ShowAllData On Error GoTo 0 Next End Sub الملف مرفق Data_Between.xlsm

استبدل 2020 بـــ (()YEAR(TODAY =DATE(YEAR(TODAY()),1,1) =DATE(YEAR(TODAY()),12,31)

أول يوم وأخر يوم =DATE(2020,1,1) =DATE(2020,12,31)

جرب هذا الماكرو Option Explicit Sub Filter_Data() Dim Rg_A As Range, Rg_L As Range Dim Cret_Rg As Range With Sheets("Sheet1") On Error Resume Next .ShowAllData On Error GoTo 0 Set Rg_A = .Range("A4").CurrentRegion Set Rg_L = .Range("L4").CurrentRegion Rg_L.Clear .Range("R2").Formula = "=AND(D5>=$H$4,D5<=$J$4)" Set Cret_Rg = .Range("R1:R2") Rg_A.AdvancedFilter 2, Cret_Rg, Range("L4") Cret_Rg.Clear End With End Sub

عند حماية الشيت حدد هذا المربع في الصورة

تعديل الماكرو Option Explicit Private Sub Cmd_sum_Click() Dim s#, Sh As Worksheet, x As Boolean For Each Sh In Worksheets x = Sh.Tab.ColorIndex <> xlNone s = s + IIf(x, IIf(IsNumeric(Sh.Range("A1")), _ Sh.Range("A1"), 0), 0) Next Me.My_lebl.Caption = IIf(s <> 0, s, "No Numbers") End Sub

المعادلات محمية ضد الخذف او التغيير بالنسبة للفرز يمكنك الفرز (بدون Header)

تم معالجة الأمر Salim_dates.xlsm