عبدالله باقشير

السلام عليكم في عندك في الملف اسماء نطاقات مرتبطة بملفات اخرى على العموم تم حذف هذه الاسماء ولم تظهر الرسالة الذي كان في الملف السابق ليست صورة وانما شكل تلقائي تم تعبئته بصورة وانت قمت بتغييره الى صورة وكود الحذف مشروط بان يكون شكل تلقائي لهذا لا يتم التعرف على الصورة ويبقيها بدون حذف على العموم تم حل المسالة والتعامل مع الصورة حسب ملفك الحالي ولكن ان غيرت الصورة يجب ان تتاكد من ان الخيار (نقل الخلايا وتغيير حجمها) محفز والخطوات لعمل ذلك تضغط بيمين الفارة على الصورة وتختار الحجم والخصائص ثم تختار خصائص تعيين موضع الكائن وتحفز الخيار الاول وهو (نقل الخلايا وتغيير حجمها) تم الحل نعم هو عدد الاسطر...........وتعديلك صحيح اعتقد ذلك ...........جرب بنفسك تحياتي المرفق 2010 بطاقة موظف9.rar

السلام عليكم بعد اذن المشاركين حفظهم الله كنت قد جهزت هذا الملف بهذه المعادلة في قاعدة التحقق من الصحة =OFFSET(MyNames;MATCH(CELL("contents")&"*";MyNames;0)-1;;COUNTIF(MyNames;CELL("contents")&"*")) المرفق 2003 تصفية القائمة.rar

السلام عليكم شاهد المرفق 2010 فرق الايام.rar

نورت المنتدى جزاكم الله خيرا تقبلوا تحياتي وشكري

وعليكم السلام هذه الدالات معمولة بالكود يجب نقل الكود الخاص بالدالة الى ملفك استخدم هذا الكود يعمل على اي خلايا يتم تحديدها Sub kh_TrimSelection() On Error Resume Next Dim cel As Range For Each cel In Selection.Cells If Not IsNumeric(cel) Then cel.Value = WorksheetFunction.Trim(cel) End If Next On Error GoTo 0 End Sub تحياتي

السلام عليكم جرب هذا Me.Label3.Caption = WorksheetFunction.Min(Val(Me.TextBox1), Val(Me.TextBox2), Val(Me.TextBox3), Val(Me.TextBox4), Val(Me.TextBox5), Val(Me.TextBox6)) Me.Label4.Caption = WorksheetFunction.Max(Val(Me.TextBox1), Val(Me.TextBox2), Val(Me.TextBox3), Val(Me.TextBox4), Val(Me.TextBox5), Val(Me.TextBox6)) تحياتي

السلام عليكم ورحمة الله وبركاته اخي الحبيب محمود الشريف ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

======================== الاخ الفاضل/ محمود الشريف ======================== و

السلام عليكم شاهد المرفق 2003 النسبة المئوية.rar

السلام عليكم على السريع شاهد المرفق 2010 بطاقة موظف7.rar

السلام عليكم ممكن هذه المعادلة مع وجود الدمج في العمود M وتغيير الكلمات في العمود N من اناث الى انثى ومن ذكور الى ذكر =SUMPRODUCT(N($J$4:$J$400=O$3);N($F$4:$F$400=IF(LEN($M4);$M4;$M3));N($G$4:$G$400=$N4)) المرفق 2003 حساب اعمار طلبة.rar

السلام عليكم على السريع تم الترقيم في الخلية A3 بمعادلة شاهد المرفق 2010 بطاقة موظف7.rar

جرب هذه =IF(LEN(TRIM(A2));IF(ISNUMBER(SEARCH("-";A2));SUBSTITUTE(A2;"-";"")&IF(SEARCH("-";A2)-1=6;660;550);A2&IF(LEN(A2)=6;600;500));"") تحياتي

السلام عليكم جرب المعادلة التالية =IF(ISNUMBER(SEARCH("-";A2));SUBSTITUTE(A2;"-";"")&IF(SEARCH("-";A2)-1=6;660;550);A2&IF(LEN(A2)=6;600;500)) المرفق 2010 تحياتي البركودات.rar

لان تغيير اللون ليس حدث يعتمد عليه في حساب الورقة لذا يمكنك الضغط على F9 لتفعيل الحساب

ويمكنك اضافة هذا السطر بداية الكود لتجعلها تعمل مع حساب الورقة Application.Volatile هكذا Function kh_SumColor(RngColor As Range) As Double Dim cel As Range Dim sm As Double Application.Volatile For Each cel In RngColor If cel.Interior.Color = Application.Caller.Interior.Color Then sm = sm + Val(cel) Next kh_SumColor = sm End Function المرفق 2003 جمع مشروط بلون.rar

هذا ما يتم بالفعل الخلية K2 فيها الدالة وملونة باللون الاصفر اذن هي تجمع الخلايا الموجودة في متغير الدالة الملونة باللون الاصفر

السلام عليكم عملت لحضرتك دالة لجمع خلايا معينة حسب لون الخلية التي فيها الدالة Function kh_SumColor(RngColor As Range) As Double Dim cel As Range Dim sm As Double For Each cel In RngColor If cel.Interior.Color = Application.Caller.Interior.Color Then sm = sm + Val(cel) Next kh_SumColor = sm End Function جرب واشعرنا بالنتيجة تحياتي المرفق 2003 جمع مشروط بلون.rar

السلام عليكم ضع المعادلة التالية في الخلية C8 واسحبها لاسفل =IFERROR(LEFT(VLOOKUP($A8;تكويد_تعريفات!$A$2:$B$10;2;0);1)&TEXT(SUMPRODUCT(N(LEFT($C$7:C7;1)=LEFT(VLOOKUP($A8;تكويد_تعريفات!$A$2:$B$10;2;0);1)))+1;"000")&"-000";"") تحياتي

السلام عليكم ملحوظة: تم اضافة مرفق جديد للمشاركة 1 وهو قرعة متعددة الاختيار وذلك حسب طلب احدهم تحياتي

جزاكم الله خيرا

وعليكم السلام ضع هذه المعادلة في الخلية C2 =IFERROR(LEFT(VLOOKUP(B2;ورقة2!$A$2:$B$4;2;0);4)&TEXT(SUMPRODUCT(N(LEFT($C$3:$C$100;4)=LEFT(VLOOKUP($B2;ورقة2!$A$2:$B$4;2;0);4)))+1;"000");"") وهذا تعديل للكود مع الفرز Sub AddText() With sheet1 .Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 12).Value = .Range("B2").Resize(1, 12).Value .Range("B2,D2:M2").ClearContents With .Range("B3:M100") .Sort .Columns(2), xlAscending End With End With End Sub المرفق 2010 تحياتي Copy of كود ادخال مع ترتيب الصفوف1.rar

السلام عليكم هذه المحاولة بالمعادلات =IFERROR(VLOOKUP($B4;ورقة2!$A$2:$B$6;2;0)&TEXT(SUMPRODUCT(N(LEFT($C$3:C3;5)=""&VLOOKUP($B4;ورقة2!$A$2:$B$6;2;0)))+1;"0000");"") المرفق 2010 كود تكويد دليل الحسابات.rar

وعليكم السلام اولا حول نص التاريخ في العمود H في ورقة 2 الى تاريخ ثم استخدم المعادلة التالية في الخلية C13 في ورقة 1 =VLOOKUP(C8;ورقة2!$B$3:$H$23;7;0) تحياتي

السلام عليكم شاهد المرفق 2003 Book111111.rar