احمد عبد الناصر

السلام عليكم معذرة فدالة countifs لا تعمل علي اكسيل 2003 . حسنا جرب المرفق تحياتي cont+-.rar

السلام عليكم الارتباط يفتح الملف الذي يدل عليه الارتباط و في هذه الحالة فالملف موجود علي جهاز صاحب الملف ,فعندما يحاول الكود فتح الملف عندك لا يجده فيعطي خطأ . جرب المرفق New folder.rar

السلام عليكم استاذ ابو محمد حياك الله فعلا يعطي خطأ و ذلك لعدم و جود الملفات التي يحاول الارتباط فتحها ,لكن من المفترض ان تعمل عند صاحب الملف . * جرب تغيير الارتبطات لملفات عندك بالجهاز ثم جرب الكود مرة اخرى . تحياتي

السلام عليكم جرب هذا تحياتي ارتباط تشعبي متغير في نموذج+.rar

السلام عليكم شاهد هذا عله يفيد http://msdn.microsoft.com/en-us/library/office/ff700513(v=office.11).aspx تحياتي

السلام عليكم بعد اذن الاساتذة الكرام هذه طريقة اخري لاثراء الموضوع ملاحظة : كليك يمين علي اي خلية في المدي c1:c100 كأنه ازرار . تحياتي Boook1+.rar

السلام عليكم هذا حل اخر لاثراء الموضوع . ملاحظة : نفس الزر يفلتر و يلغي الفلترة . تحياتي رصيد المخزن رقم 5 ب+.rar

السلام عليكم جرب هذا تحياتي الجمع باللون+-.rar

السلام عليكم جرب هذا التعديل علي اول ثلاث خلاية . يعتمد علي vlookup مع معامل التقريب true . يعطيك مرونة اكبر و اخف و يعمل مع 2003 . تحياتي المعين الرشيد+.rar

اسعد الله صباحك استاذ سعد عابد شكرا لكلماتك الطيبة , زادك الله علما و نفع بك . تحياتي

السلام عليكم جرب هذا تحياتي الجمع باللون+.rar

السلام عليكم جرب هذا Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error GoTo D_Date If Target.Column = 2 And Target.Row >= 20 And Target.Row <= 100 Then Cells(Target.Row, 93) = "حجب" If Target.Column = 3 And Target.Row >= 20 And Target.Row <= 100 Then Cells(Target.Row, 93) = "" D_Date: Application.EnableEvents = True Application.ScreenUpdating = False End Sub تحياتي

معذرة جرب هذه =IF(OR(S11="";S11="غ");"غ";CEILING(s11*0.4;0.5))

السلام عليكم جرب هذا =IF(OR(S11="";S11="غ");"غ";CEILING(s11,.5)) تحياتي

السلام عليكم استاذ حمادة اسعد الله صباحك تقبل تحياتي

حياك الله جزاك الله خير وكتب الله لك الأجر وسددك للخير والتقوى وغفر لك ولوالديك وللمسلمين

جرب هذا AB++.rar

تفضل AB+.rar

السلام عليكم جرب هذا SELECT q FROM (select aa as q from a1) union all (select bb as q from a1) union all (select cc as q from a1) تحياتي

السلام عليكم بتطبيق الفكرة علي تكويد الموظفين بفرض وجود قسمين الادارة و المصنع الادارة تأخذ 10000 و المصنع 20000 الادارة تنقسم الي مشتريات 10100 و مبيعات 10200 و تسويق 10300 و المصنع ينقسم الي مهندسين 20100 و فنيين 20200 و عمال انتاج 20300 موظف محمد في المشتريات 10101 احمد 10102 محمود 10103 موظف محمد في المبيعات 10201 احمد 10202 محمود 10203 و هكذا تحياتي

السلام عليكم افتح ال vba باستخدام alt+F11 ثم من قائمة insert اختر module ثم ضع فيه الكود Function countifvis(r, t) For Each c In r If c.EntireRow.Hidden = False Then If c = t Then countifvis = countifvis + 1 End If Next End Function ثم جرب كتابتها في شيت الاكسيل (countifvis) رضى الله عنك وعن والديك وارضاكم في الدنيا والاخرة

السلام عليكم جرب المرفق داله معرفة تحياتي Book1++.rar

هذا الملف تطبيق للمعادلة Book1+.rar

السلام عليكم جرب هذا تحياتي ع+.rar

السلام عليكم جرب هذه =SUMPRODUCT(--(C2:C101="غ");SUBTOTAL(3;OFFSET(C2;ROW(C2:C101)-ROW(C2);0))) للامانة هي منقولة http://www.mrexcel.com/forum/excel-questions/600223-subtotal-countif.html تحياتي