سليم حاصبيا

بعد اذن اخي علي قائمة منسدله 1.xls

أعد تحميل الملف من جديد هناك بعض التعديلات الأحد 1 الانثين 2 وهكذا السبت 7

جرب هذا الملف Times_sh.xls

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

كيف نستطيع العمل على التخمين؟؟؟؟ ارفع نموذج عن الملف وماذا تريد ان تعمل به

جرب هذا الملف صفحة Salim اضغط فقط على زر Run MY_std.xlsm

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

نموذج لما تريد Option Explicit Sub Execut_all() macro1 ''هنا اسم الماكرو الاول macro2 '' 'هنا اسم الماكرو الثاني End Sub

,0,(VLOOKUP(C11,$A$1:$CV$7,COLUMNS(AM1= بدون حرف الــ S

من اين اتى الرقم 15 و ثاني شيء انا لم انتبة الى الحرف S في المعادلة يجب ازالته ,0,(VLOOKUP(C11,$A$1:$CV$7,COLUMNS(AM1=

المعادلة الصحيحة =VLOOKUP(C11,$A$1:$CV$7,COLUMN(AM1),0)

هات مثالاً و خذ ما يدهش العالم

جرب هذا الملف الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$H$1" And Target.Count = 1 Then sort_please End If Application.EnableEvents = True End Sub '========================= Sub sort_please() Dim Rg As Range Dim s Dim ro%: ro = Range("b2", Range("b1").End(4)).Rows.Count + 1 Set Rg = Range("a1").Resize(ro, 3) Rg.Sort key1:=Cells(1, Range("h1")), _ Order1:=IIf(Range("h1") = 2, 2, 1), Header:=2 s = "Row( 1:" & ro & ")" Range("a1").Resize(ro) = Evaluate(s) End Sub الملف مرفق 0Choose_Num_sort.xlsm

الدوال في اكسل لا تتعاطى مع تنسيق الخلايا كل ما تنظر اليه هو محتويات الخلايا وليس لون الخط فيها او لونها بالذات أو طولها أو عرضها الخ.....

هذه المعادلة (تضع الرقم في B5 والنتيجة اينما تضع المعادلة) =INDEX($A$1:$A$100,MATCH($B$5,$A$1:$A$100)+1)

ممكن هذه المعادلة ان تحل المشكلة =SUMPRODUCT(--($C$3:$C$100=$G3),--($E$3:$E$100=H$2),$D$3:$D$100) 10.xlsx

ربما كان المطلوب Choose_Num.xlsx

تم التعديل test-New.xlsx

اولا- الجدول كما يفهمه برنامج الاكسل هو مجموعة من البيانات لا تحتوي على خلايا فارغة ولا مدمجة للغة العربية 1-الى يمينها عامود فارغ او حد الصفخة الايمن 2- الى يسارها عامود فارغ 3-فوقها صف فارغ او حد الصفحة الاعلى 4- تحتها صف فارغ كلمة واحدة الجدول كما يفهمه برنامج الاكسل مجموعة بيانات مستقلة في نطاق لا يجمعها شيء مع غيرها لذلك كي يعمل الماكرو بشكل جيد قمت بتعديل الجدول بوضع صف فارغ في الاعلى (الصف رقم 6) و ازالة الدمج من البيانات لذا ارجو التقيد بهذه المعلومات عند ادراج اي جدول للعمل معه بمنتهى السهولة الكود Option Explicit Sub copy_filter() Dim M As Worksheet: Set M = Sheets("مفرد الراتب") Dim One As Worksheet: Set One = Sheets("1") If M.FilterMode Then M.ShowAllData: M.Range("B7").AutoFilter End If One.Range("B7").CurrentRegion.ClearContents M.Range("B7").AutoFilter Field:=3, Criteria1:="<>0", _ Operator:=xlOr, Criteria2:="=المبلغ" M.AutoFilter.Range.Copy _ One.Range("B7") On Error Resume Next M.ShowAllData: M.Range("B7").AutoFilter End Sub الملف مرفق MOUFRADAT.xlsm

انت لم تخفها بل اخفيت محتوياتها

صديق لا يمكنك لا انت ولا انا ولا اي شخص ولا حتى الاكسل نفسه اخفاء خلية يمكن اخفاء صف او عدة صفوف بكاملها او عامود او عدة اعمدة بكاملها

بعد اذن اخي بن علية معادلة اخرى عادية بدون (Ctrl+Shift+Enter) =IF(COUNTA($B2:$X2)=0,"",DAY(OFFSET($A2,-ROWS($A$1:A1),COUNTA($B2:$X2)))) أو هذه =DAY(LOOKUP(9^9,$B2:$X2,$B$1:$X$1)) الملف مرفق last_day.xlsx

كما قلت لك يجب استعمال (Ctrl+Shift+Enter) بعد كتابة المعادلة (او نسخها) 1- تضغط باستمرار على مفتاحي Ctrl و Shift 2 -تنقر نقرة واحدة على مفتاح Enter

بعد اذن الاخ علي و لا لزوم لعامود مساعد هذه المعادلة (Ctrl+Shit+Enter) =MAX(IF(LEN($A$9:$A$500)>=10,0,$A$9:$A$500)) تصيحيح المعادلة هنا لا نستطيع الاعتماد على الدالة LEN لانه ممكن ان يكون هناك رقم مثل هذا 12.1234567 طوله 10 وحدات (مع احتساب الفاصلة العشرية) بالتالي المعادلة السّابقة لا تعطي الجواب الصحيح المعادلة الصحيحة 100% (Ctrl+Shit+Enter) =MAX(IF($A$9:$A$15>10^9-1,0,$A$9:$A$15))

ممكن ان يكون الحل test-SHEET2.xlsx