الخالدي

السلام عليكم ورحمة الله وبركاته بارك الله فيك أخي معتصم واسمح لي بإضافة الدالة (GETPIVOTDATA) تختص بالتعامل مع الجداول المحورية و تمتاز الدالة بإمكانية البحث في الجداول المحورية وفقا للكثير من العناصر في تسمية الصفوف وفي تسمية الأعمدة إلا أن الدالة تعيد النتيجة من حقل القيم فقط . أما استخدام دوال البحث الأخرى فذلك ممكن وللتغلب على مشكلة عدم ثبات طول نطاق الجداول المحورية نستخدم - نطاق ذو مدى متغير- بواسطة معادلات , ومن افضل المعادلات المستخدمة لتحديد طول المدى هي الدالة (GETPIVOTDATA) نظرا لأنها لا تسبب بطئ للملف. والدالة (GETPIVOTDATA)في هذه الحالة تحتاج إلى حقل أجمالي عدد البيانات. وللعلم الدالة (GETPIVOTDATA) اكثر سرعة في إعادة النتائج مقارنة بدوال البحث الأخرى ويمكن ملاحظة ذلك عند البحث في بيانات كبيرة الرابط التالي يحتوي على مثال لاستخدام الدالة GETPIVOTDATA http://www.officena.net/ib/index.php?showtopic=38907 في امأن الله

تقبل الله منك صالح الأعمال اسال الله ان يردك سالما غانما مغفور الذنوب

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

السلام عليكم ورحمة الله وبركاته أخي أبو تميم كما قال أستاذنا أبو نصار – حفظه الله وبارك فيه– المطلوب غير واضح ومحاولة مني لفهم طلبك الأول جرب الكود التالي : Sub openFile() MyArray = Array("xlsm", "xlsx", "xls") On Error Resume Next For r = 0 To 2 MyPath = "D:\" & [b3] & "\" & [C3] & "." & MyArray(r) If Dir(MyPath) <> "" Then Workbooks.Open Filename:=MyPath Exit Sub End If Next r MsgBox ("الملف غير موجود") End Sub[/size] [size=4] الكود يقوم بالبحث عن الملف بثلاثة امتدادات وعند وجود الملف يتم فتحه أو ظهار رسالة بعدم وجود الملف ------------------------- ومحاولة لفهم الطلب الثالث: في المجلد المرفق: عند فتح الملف المسمى(فرعي) يطالب بكلمة مرور , وعند فتح نفس الملف من الزر في الملف المسمى (الرئيس ) لا يتم المطالبة بكلمة مرور الملف الفرعي. (كلمة المرور في الملف -فرعي- عبارة عن رسالة "مطلوب كلمة المرور" يمكن الاستعاضة عنها بكود كلمة المرور) في امأن الله فتح ملف من زر دون المطالبة بكلمة المرور.rar

اللهم اغفر لها وحشرها مع عبادك الصالحين وادخلها جنات النعيم

السلام عليكم ورحمة الله وبركاته اذا تعني الفرق بين الإضافة والصرف شاهد المرفق الشرح : إضافة حقل (الكمية) إلى محور القيم ومن (إعدادات حقل القيم) اختار (إظهار القيم كـ) ثم اختار(اختلاف عن ) حدد حقل القاعدة(نوع العملية) تم حدد عنصر القاعدة (صرف) العمود الفارغ اعتقد انه لا يمكن إزالته في امأن الله مخازن2.rar

السلام عليكم ورحمة الله وبركاته بارك الله بالأخوة الكرام ولإثراء الموضوع حل اخر بمعادلات الصفيف وإن كانت الأعداد غير مرتبة أو كانت الخلايا فارغة في امأن الله الأعداد غير الموجودة في سلسلة معادلات.rar

السلام عليكم ورحمة الله وبركاته شكرا أخي احمد البحيري على المرور الكرم جزاك الله كل خير أخي الدهشوري وبالنسبة للملف يعمل معي لأسماء ثلاثية أو رباعية و يجب ان يكون اسم البحث مطابق لنفس الاسم في العمود عموما جرب التعديل المرفق وفي حالة استمرار المشكلة ارفق الملف ونفس الأسماء حتى يُعرف السبب في امأن الله بيانات موظفين2.rar

السلام عليكم ورحمة الله وبركاته جرب المرفق ارجوا ان يكون المطلوب في امان الله بيانات موظفين.rar

شكرا للمعلومة أخي الفاضل / معتصم محمد لقد استخدمت في مشاركتي السابقة معادلات كوسيطة للدالة ISEVEN وبما ان الهدف مستخدمي اكسل 2003 , فمن يحب استخدامها فعلية استخدام المعادلة كوسيطة لإحدى للدالات البديلة التي أشار لها الفاضل /معتصم أيضا يمكن استخدامها كوسيطة للدالة MOD كما في الملف المرفق تظليل سطر وترك سطر مع وجود صفوف مخفية.rar

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

الاخوة الافاضل abassreda دغيدى جمال الفار Hassanalhawy سعد عابد محمد صالح حفظكم الله وبارك فيكم وفقنا الله واياكم لكل خير

السلام عليكم ورحمة الله وبركاته أخي الفاضل / عبد المجرب أشكرك و المنتدى أعضاء وقائمين على الثقة بالترقية ونسأل الله أن نكون أهلا لذلك أخي الفاضل / abumalak أشكرك وأنسال الله لنا ولك التوفيق أخي الفاضل / احمد البحيري أشكرك وأتمنى لك المزيد من الأبداع والتألق أخي الفاضل / طارق محمود أشكرك واشكر تواضعك والحقيقة أنا تعلمت منك الكثير في هذا المنتدى أخي الفاضل / عبدالله باقشير أشكرك واهنى نفسي بمشاركتك الكريمة أخي الفاضل / الشهابي أشكرك وتمنياتي لك بالتوفيق أخي الفاضل / goodlife أشكرك واتمنى لك بالتوفيق أخي الفاضل / بن علية أشكرك على الثناء الطيب ومازلنا نتعلم منكم الكثير أخي الفاضل / الزير أشكرك واشكر كلمات الطيبة أخي الفاضل / الجزيرة أشكرك وأتمنى لك كل خير أخي الفاضل / محمد مصطفى أشكرك وتمنياتي لك بالتوفيق أخي الفاضل / elsedik أشكرك وتمنياتي لك بالتوفيق أخي الفاضل / احمد فضيله أشكرك على مباركتك الكريمة أخي الفاضل / فضل أشكرك على الثناء الطيب تمنياتي لك بالتوفيق أخي الفاضل / سعيد بيرم أشكرك وتمنياتي لك بالتوفيق في امأن الله

السلام عليكم ورحمة الله وبركاته أخي الفاضل / رجب جاويش أهنئك وأبارك لك الترقية المستحقة مواضيعك متميزة و تحمل طابع الأبداع والاحتراف والتمكن تمنياتي لك بالمزيد من التوفيق والنجاح اشكر لك تهنئتي بالترقية في امأن الله

السلام عليكم ورحمة الله وبركاته اضافة الى حل اخي الفاضل عبد الله المجرب حفظه الله حل اخر بالمعادلات في أمان الله برنامج الحوالات2.rar

السلام عليكم ورحمة الله وبركاته لحين تدخل احد خبراء الاكواد جرب المرفق وان كان الكود تسجيلي ذو تصميم بدائي في أمان الله كود نقل الشيت2.rar

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

السلام عليكم ورحمة الله وبركاته اخي الفاضل الشهابي الدالة CELL مع الوسيطة filename ترجع مسار واسم الملف و اسم الورق ثم بعد ذلك يتم استخدام معادلات اخرى لاستخلاص اسم الورقة جرب المعادلة التالية =REPLACE(CELL("filename";A1);1;FIND("]";CELL("filename";A1));"") او المعادلة =RIGHT(CELL("filename";A1);LEN(CELL("filename";A1))-SEARCH("]";CELL("filename";A1))) في أمان الله

السلام عليكم ورحمة الله وبركاته ادخل المعادلة في الخلية K4 =INDEX($1:$1;0;256-MAX(INDEX(($A$2:$H$300=J4)*(256-COLUMN($A$1:$H$1));))) في أمان الله بحث وارجاع العمود.rar

السلام عليكم ورحمة الله وبركاته لإثراء الموضوع المرفق حل بمعادلات الصفيف في امان الله كود لاستخراج الاسماء بثلاث شروط_معادلات.rar

السلام عليكم ورحمة الله وبركاته جرب الكود التالي المقتبس من كود الاستاذ طارق Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$1" Or Target.Address = "$I$2" Then [I3:J1000].ClearContents a = WorksheetFunction.Match( [$I$1], [A1:F1], 0) For r = 4 To [A10000].End(xlUp).Row wr = [I10000].End(xlUp).Row + 1 If Application.CountIf(Cells(r, a), [$I$2]) = 1 Then Cells(wr, "I") = Cells(r, 1) Cells(wr, "J") = Cells(r, a) End If Next r End If End Sub كود لاستخراج الاسماء بثلاث شروط2.rar

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

السلام عليكم ورحمة الله وبركاته في المرفق اضافة شرط للمعادلة لغرض إخفاء الصفر و إخفاء اخطأ المعادلة واشكر الاخوين مصطفى عيد و احمد البحري في امان الله مقارنة بين عمودين -2.rar

السلام عليكم ورحمة الله وبركاته اعتذر لك اخي فضل عن تأخر ردي عليك لظروف خاصة واشكر المبدع احمد البحري الذى قدم حلول رائعة وبالنسبة للمعادلات التي في مشاركاتي السابقة تقوم اساسا بالعد لكن اضفنا لها شرط التجميع عن تحقق الشروط مثلا المعادلة التالية تقوم بعد تحقق الشرط =SUMPRODUCT((A2:A14=I3)*(B2:B14=I4)*(C2:C14>=3)) المعادلة التالية تقوم بعملية التجميع النطاق C2:C14 عند تحقق الشوط =SUMPRODUCT((A2:A14=I3)*(B2:B14=I4)*(C2:C14>=3)*(C2:C14)) في امان الله

فهمت من ردك ان التنسيق الشرطي لم يعمل لديك الملف يعمل لدي على اكسل2010 وربما لا يتوافق مع تنسيق اكسل2003 في الملف المرفق تعديل ربما يعمل مع اكسل2003 وفكرة التنسيق الشرطي في الملف المرفق تقوم على اساس تنسيق التعبئة والخط في النطاق D12:H12 باللون الابيض عندما تكون الخلية B2 تساوي TRUE ويتم تحديد قيمة الخلية B2 وفقا لتفعيل او عدم تفعيل عنصر التحكم الموجود اعلى الخلية. فكرة الملف تشابه فكرة ملف الاخ الفاضل ragab100100 والاختلاف فقط في طريقة التحكم في اظهار التنسيق الشرطي أعتذرعن تأخر الرد لظروف خاصة Boo1k1.rar