سليم حاصبيا

لنفرض ان الرقم موجود في الخلية A1 جرب احدى هاتين المعادلتين (حسب اعدادات الجهاز عندك) =SUBSTITUTE(A1,"-","") Or =SUBSTITUTE(A1;"-";"")

اذا كنت تريد رقم الصف فقط =MATCH(D2,$A$1:$A$100,0) Or =MATCH(D2;$A$1:$A$100;0)

احدى هاتين المعادلتين (حسب اعدادات الجهاز عندك) =INDEX($A$1:$A$100,MATCH(D2,$A$2:$A$100,0)) Or =INDEX($A$1:$A$100;MATCH(D2;$A$2:$A$100;0))

جرب هذا الملف انه ينفذ الماكرو على الشيت التي تحتاره انت (في حال تحديد اكثر من شيت واحد) بواسطة رسالة تطلب منك رقم الشيت الذي تريده اما اذا كان شيت واحدة محددة فيقوم بتنفيذ الماكرو عليها Option Explicit Sub No_Error_In_Sheets() Dim ws As Worksheet, wb As Workbook Dim col As New Collection Dim i%, Inp_Box Set wb = ActiveWorkbook For Each ws In ActiveWindow.SelectedSheets i = i + 1 col.Add ws.Name, CStr(i) Next ws On Error Resume Next If i > 1 Then Inp_Box = InputBox("You Have More than One Selected Sheets" & Chr(10) & _ "Please Type The index Of the Sheet you need " & Chr(10) & _ "Example: " & "1,2,3,etc...", 1) Sheets(col(Inp_Box)).Select If Err.Number > 0 Then MsgBox "you select Wrong number: " & """" & Inp_Box & """" On Error GoTo 0 Exit Sub End If End If On Error GoTo 0 '++++++++++++++++++++++++++++++++ 'Type here your macro 'Example ActiveSheet.Range("a1:a10") = 100 '++++++++++++++++++++++++++++++ End Sub الملف للتجربة Run_macro.xlsm

شاهد هذا الفيديو https://www.youtube.com/watch?v=gHN4yOOIrnE

الصورة لا تنفع للتصحيح اذ لا يمكن ادراج كود على صورة ارفع الملف نفسه

من الصعب عمل هكذا معادلة (لكن ليس مستحيل)

تم التعديل على الماكرو كما تري اذا اردت لائحة واحدة (ذكور او أناث اختر 1 من القائمة المنسدلة في الخلية K2 ) اذا اردت لائحتين في نفس العامود (ذكور و أناث اختر 2 من القائمة المنسدلة في الخلية K2 ) يدرج اولاً ما هو مذكور في الخلية I2 Alpha_Tartib_new.xlsm

جرب هذا الملف بدون معادلات Alpha_Tartib.xlsm

الكثير من العادلات تقوم بهذا الشيء بالاضافة الى ما ذكره الأخ الرائد 77 هذا المعادلة (Ctrl+Shift+Enter) =SUM(IF(LEN(F6:F16)<>0,1,0)) واذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتبدو هكذا =SUM(IF(LEN(F6:F16)<>0;1;0))

لا حاجة الى هذه الشروط المتكررة من IF يكفي ادراج جدول بالأسعار واستعمال الدالة VLOOKUP لهذا الغرض في العامود I نطرح قيمة الكسب اما في العمود J نطرح عدد ثابت 50 (لا أعرف ايهما تريد) انظر الى الملف Moufafaa.xls

جرب هذا الملف 22_s.xlsx

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

جرب هذا الماكرو Sub Button1_Click() Static t% If t Mod 2 = 0 Then MsgBox "the First Mxcro will be run" '++++++++++++++++++++++++++++++++++++++ 'type your macro 1 Here 'Example Range("a1").Select '++++++++++++++++++++++++++++++++++++++ Else MsgBox "You choose the Second macro" '++++++++++++++++++++++++++++++++++++++ 'type your macro 2 Here 'Example Range("F1").Select '++++++++++++++++++++++++++++++++++++++ End If t = t + 1 End Sub

حقيقة ليست لي الحبرة الكافية في الاكسيس لذلك ارفع سؤالك الى قسم الاكسيس في هذا المنتدى و تحد الاجابة هناك

ربما فيما بعد نظراً لضيق الوفت لكن اقترح ان تلقي نظرة على هذا الملف (صفحة salim) Countif_new.xlsm

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

و لما لا تفعل فلترة للعامودين في نفس الوقت و بدون اليوزر و مشاكله

و كيف تقوم يفلترة عامودين من نفس التكست بوكس

ربما يجب استبدال الفاصلة بفاصلة منقوطة داخل المعادلة (حسب اعدادات الجهاز عندك) لتبدو المعادلة هكذا =MID(E7;FIND("/";E7)+1;LEN(E7))

جرب هذه المعادلة =MID(E7,FIND("/",E7)+1,LEN(E7))

أولاً- الحلقة التكرارية يجب ان تبدأ من الصف الثالث لان الصف الثاني لا يحتوي على تاريخ ثانياً- عدد الصفوف كبير جداً (حوالي 56000 صف) لذلك يأخذ الماكرو وقتاً كبيراً (دقيقة أو أكثر حسب سرعة الحهاز عندك)كي ييفرز الداتا و ينظمها ثالثاً -في حالة عدد الصفوف اكثر من 32000 يجب اخذ المتغيرات Long وليس Integer لاحظ مثلاُ %I حولتها الى I As Long رابعاً- مثل هذه قاعدة البيانات من الافضل عملها بواسطة برنامج Access تم معالجة الأمر في هذا الملف my_Big_sheet-_dict.xlsm

و هل تعتقد ان احد ما يقوم بوضع ملف جاهز يحتوي على كل هذه المعادلات و الأرقام وان فعل ربما كان الملف صحيحاً و في اغلب الأحيان لا (اضاعة للوقت والجهد) لا يمكن المساعدة بدون ملف مرفق و (مختصر اقل من 10 صفوف) فيه كافة التفاصيل مع امثلة (يدوية) بالنتائج

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

أجذر من كذبة نيسان البيضاء في هذا الملف Poisson D'April.xlsm