سليم حاصبيا

بعد اذن اخي احمد معادلة واحدة تكتب في الخلية D3 و تسجب يساراً عامود واحد و نزولاُ 3 صفوف =CHOOSE(COLUMNS($A$1:A1), ROUND(MOD(OFFSET(Sheet1!$A$1,,ROWS($A$1:A1)-1),1),2)*100, INT(OFFSET(Sheet1!$A$1,,ROWS($A$1:A1)-1))) مرفق الملف تقسيم .xlsx

تم التعديل على الملف كلما كتبت شيئاُ معيناً في الخلية B2 تظهر لك النتيجة فوراً saerch_salim.xlsm

جرب هذه المعادلة =SUMPRODUCT((LEN(" "&$A$2:$A$6&" ")-LEN(SUBSTITUTE(" "&$A$2:$A$6&" "," "&$B$2&" ","")))/LEN(" "&$B$2&" ")) الملف مرفق tekrar_salim.xlsx

تم النعديل على النتسيق الشرطي ليعمل خسب المطلوب مع زيادة عدد الاعمدة salim التعديل.xlsx

عيد مبارك وكل عام وانتم يخير زيادة في اثراء الموضوع (الخلايا المعنية A2 & B2) =CHOOSE((A2="")+(B2="")+1,SUM(A2:B2),"","")

عيدكم مبارك وكل عام وأنتم بخير.. اخي بن علية عتد معايتة الملف المرفوع من قبلكم وجدت ان هناك خطأ في نتيجة المعادلة لذا اتقدم بهذا الملف لمقارنة النتائج المعادلة من قبلي (Ctll+Shift+Entre) ارجو الاطلاع =SUM(OFFSET($E$12,,,2,(COUNT($E$12:$L$12)+(MOD(COUNT($E$12:$L$12),2)))/2)) الملف مرفق By_formulaالمصنف1.xlsx

ريما كان المطلوب asd_salim.xlsx

ربما ينفع هذا الملف (معادلات) salim_std.xlsm

لا داعي لهذا الكود الطويل جداُ يكفي هذا Option Explicit Sub salim_Macro() Dim col_num As Byte Dim Position As Byte Dim Last_row% Last_row = Cells(Rows.Count, "D").End(3).Row If Last_row < 15 Then Last_row = 15 Range("e11").Resize(Last_row - 10, 100) _ .Interior.Color = vbWhite col_num = Application.Count(Range("E12:CZ12")) Position = (col_num) \ 2 Range("E15") = Application.Sum(Range("E12").Resize(2, Position)) Range("E12").Offset(-1, Position - 1) _ .Resize(Last_row - 11).Interior.Color = 49407 End Sub

جرب هذا الماكرو Option Explicit Sub salim_Macro() Dim col_num As Byte Dim Position As Byte Range("e11").Resize(4, 8) _ .Interior.Color = vbWhite col_num = Application.Count(Range("e12:l12")) Select Case col_num Case 8, 7: Position = 4 Case 6, 5: Position = 3 Case 4, 3: Position = 2 Case Else: Exit Sub End Select Range("E15") = Application.Sum(Range("e12").Resize(2, col_num)) Range("e12").Offset(-1, Position - 1) _ .Resize(4).Interior.Color = 49407 End Sub الملف مرفق salim_book.xlsm

تم معالجة الامر المعادلة(Ctrl+Shift+Enter) توضع في الخلية D3 وتسحب نزولاً =IF(C3="","",IF(RIGHT(TRIM(C3),1)<>"/", SUM(IF(MID(C3,ROW(INDIRECT("1:"&LEN(C3))),1)="/",1,""))+1, SUM(IF(MID(C3,ROW(INDIRECT("1:"&LEN(C3))),1)="/",1,"")))) يمكن استعمال هذه ايضاً (Ctrl+Shift+Enter) =IF(C3="","", SUM(IF(MID(C3,ROW(INDIRECT("1:"&LEN(C3))),1)="/",1,"")) +(RIGHT(TRIM(C3),1)<>"/")) الملف مرفق salimعدد المواد 1.xls

جرب هذا الشيء salimعدد المواد.xls

كل هذا بسبب دمج الخلايا الذي لا لزوم له لحل المشكلة تحذف الاعمدة B,D,F,H.J و كذلك الصف الثاني(Row 2) ليصبح الملف كالتالي الاستقطاع salim.xlsx

كيف نعرف اذا كان رقم ما هو أوّلي او لا واذا لم يكن أولياً ما هي قواسمه و ما هو عددها? (ما عدا الواحد والعدد نفسه) Prime Or Not Prime.xlsx

جرب هذا الماكرو Sub repet_macros() Dim t% t = Range("a2").Value For i = 1 To t '========================== 'ادرج هنا محتويات الماكرو الأول '========================== 'ادرج هنا محتويات الماكرو الثاني Next End Sub

ريما كان الملف يهذا الشكل افضل(الصفحة Salim من هذا الملف) الكود Sub Salim_filter_ME() Application.ScreenUpdating = False Dim Filtler_Rg As Range Dim copy_rg As Range Dim ro%, i% Dim m%: m = 3 Dim last_row Dim Targ_sh As Worksheet Dim arr(1 To 9) On Error GoTo 1 Set Targ_sh = Sheets("salim") last_row = Targ_sh.Cells(Rows.Count, 2).End(3).Row If last_row < 3 Then last_row = 3 Targ_sh.Range("b3:j" & last_row).ClearContents For i = 1 To 9 arr(i) = Targ_sh.Cells(2, i + 1) Next If Sheets("add").AutoFilterMode = True Then Sheets("add").AutoFilterMode = False Set Filtler_Rg = Sheets("add").Range("b1").CurrentRegion ro = Filtler_Rg.Rows.Count Set copy_rg = Filtler_Rg.Offset(1, 0).Resize(ro - 1).Columns(1) For i = 1 To 9 With Filtler_Rg .AutoFilter .AutoFilter Field:=3, Criteria1:="=" & Targ_sh.Range("l2") .AutoFilter Field:=2, Criteria1:="=" & arr(i) Filtler_Rg.Offset(1, 0).Resize(ro - 1, 1).SpecialCells(xlCellTypeVisible).Copy _ Destination:=Targ_sh.Range("b" & m).Offset(, i - 1) End With Next 1: Erase arr Sheets("add").AutoFilterMode = False Application.ScreenUpdating = True End Sub الملف مرفق salim_filter_by sectionr.xls

جرب هذا الماكرو (يكتب اسم الفرع بالخلية L2 من الورقة "ورقة2") يجب وضع الجدول يحيث لا تكون هناك اعمدة فارغة Option Explicit Sub Salim_filter() Application.ScreenUpdating = False Dim Filtler_Rg As Range Dim copy_rg As Range Dim ro%, i% Dim m%: m = 3 Dim last_row Dim Targ_sh As Worksheet Dim arr(1 To 9) Set Targ_sh = Sheets("ورقة2") last_row = Targ_sh.Cells(Rows.Count, 1).End(3).Row If last_row < 3 Then last_row = 3 Targ_sh.Range("a3:j" & last_row).ClearContents For i = 1 To 9 arr(i) = Targ_sh.Cells(2, i + 1) Next If Sheets("add").AutoFilterMode = True Then Sheets("add").AutoFilterMode = False Set Filtler_Rg = Sheets("add").Range("b1").CurrentRegion ro = Filtler_Rg.Rows.Count Set copy_rg = Filtler_Rg.Offset(1, 0).Resize(ro - 1).Columns(1) For i = 1 To 9 With Filtler_Rg .AutoFilter .AutoFilter Field:=3, Criteria1:="=" & Sheets("ورقة2").Range("l2") .AutoFilter Field:=2, Criteria1:="=" & arr(i) Filtler_Rg.Offset(1, 0).Resize(ro - 1, 1).SpecialCells(xlCellTypeVisible).Copy _ Destination:=Targ_sh.Range("a" & m) Filtler_Rg.Offset(1, 0).Resize(ro - 1, 1).SpecialCells(xlCellTypeVisible).Offset(0, 1).Copy _ Destination:=Targ_sh.Range("a" & m).Offset(, i) m = Targ_sh.Cells(Rows.Count, 1).End(3).Row + 1 End With Next Erase arr Sheets("add").AutoFilterMode = False Application.ScreenUpdating = True End Sub الملف مرفق بصيغة 2003 لاكبر فائدة salim_filter.xls

sorry incorrect address

ارفع مثالاً عما تريد

استبدل الفاصلة "," يفاصلة منقوطة ";" لتبدو المعادلة هكذا وذلك حسب اعدادات الحهاز عندك =CHOOSE(($D$1=65)+1;30;40)

بعد اذن اخي زيزو جرب هذه المعادلة =CHOOSE(($D$1=65)+1,30,40)

لا اعلم اذا كان هذا المطلوب =IFERROR(VLOOKUP($J$8,{0,"لا يستحق";0.8,0.5;0.9,1;1,1;0,1.5},2)*$H$8/100,"لا يستحق")

ريما هذه المعادلة تنغع ايضاً =VLOOKUP($J$8*100,{0,"لا يستحق";80,0.5;90,1;100.1,1.5},2)

جرب هذا الملف صفحة (Print_sheet) عمائر.xlsm

انتبه انه لا يوجد في العامود الاول او الثاني اخطاء (على شكل N/A ,NAME .....) او ما شابه