احمدزمان

ممكن وضع بيانات وهمية لعدد 6 او 7 اسطر فقط وارفاقه

السلام عليكم الآن يحسب باليوم من البداية الى النهاية jory.rar

كل الشكر و التقدير لأستاذي الفاضل اللبيب ابو عبدالله مع التحية و التقدير الى اخي ابو نصار هذه فكرة اخرى للحل ويمكن التعديل عليه لترحيل كل نتائج التصفية الظاهرة المرفقات : طيب هنا صح ياريس abuu.rar

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

السلام عليكم و رحمة الله وبركاته اخي الحبيب ابو نصار شوف اول شيء نتفق على مبدأ - علمني الفورمز واكوادة و اعلمك الدوال امزح معاك اخي الحبيب انته رجل معطاء وكريم وتستاهل كل خير الدولار ساين هي تأتي لتثبيت القيمة التي بعدها ونستخدم المفتاح F4 لعمل ذلك تطبيق عملي اكتب في الخلية B2 الدالة =A2 دالة بسيطة وسهلة طيب طبل كليك على B2 او من شريط الصغيرة بالماوس ادخل الى تحرير الدالة اضغط F4 ايش صار صارت $A$2 وكل مرة تضغط تتغير مكان $ نعود الى صميم السؤال نحنة لمن حطينا $ قبل C يعني ثبتنا التعامل مع العمود C حتى لو سحبت بالماوس يمين او يسار او اخذت الخلية نسخ ولصق ادخل الى التنسيق الشرطي - تلاقي ثابت تعامله مع العمود C فقط ولمن تركنا الرقم وهو رقم الصف بدون علامة $ قبله - فهذا يعني اننا سمحنا للسحب او النسخ و اللصق بحساب قيمة الصف وتغييرها حسب موقعها =$A$2 مهما غيرت او نسخت او سحبت تبقى تشير الى الخلية A2 فقط $A2 بالسحب او النسخ يتغير قيمة الصف ولا تتغير قيمة العمود =A$2 بالسحب او النسخ يتغير قيمة العمود ولا تتغير قيمة الصف آمل ان تكون واضحة مع التحية و التقدير

السلام عليكم بعد اذن اخي ابو نصار هذا حل باستخدام التنسيق الشرطي آمل ان يكون به الفائدة Book11.rar

ماشاء الله ابو احمد ابداع جزاك الله كل خير

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

السلام عليكم بعد اذن الأستاذ القدير الفاضل- المهندس طارق ممكن اخي سعيد تفسير جزء 50 جزء 65 جزء 75 هل الأرقام لها علاقة بالحساب او كلمة جزء المطلوبة فقط تاريخ 28/2/2012 ماهو وكيف دخل في الدالة الحسابية

وعليكم السلام اشكرك اخي ابو نصار على مرورك الكريم وملحوظة في مكنها 100×100

السلام عليكم بعد اذن اخي ابو نصار وحلة الرائع باستخدام الكود هذا حل آخر بالدوال =SUMPRODUCT((($A$16:$A$36)>=$D$12)*(($A$16:$A$36)<=$C$12)) مع التحية filter.rar

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

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

للأسف انا ماعندي غير 2003 ولكن محتاج ملف به الفكرة المطلوبة علشان اطبق علية البيانات مداها ايه التقريبي وهذه الفكرة لا تطبق على التواريخ واذا كنت تريد تطبيقها على التاريخ سوف تختلف الطريقة قليلا آمل ارفاق ملف للعمل علية

للأسف انا ماعندي غير 2003 ولكن محتاج ملف به الفكرة المطلوبة علشان اطبق علية البيانات مداها ايه التقريبي وهذه الفكرة لا تطبق على التواريخ واذا كنت تريد تطبيقها على التاريخ سوف تختلف الطريقة قليلا آمل ارفاق ملف للعمل علية

السلام عليكم و رحمة الله وبركاته سؤالي الى عباقرة المنتدى الاعزاء هل يصلح هذا النموذج لاجراء عملية البحث برقم الادخال او الاخراج واذا كان يصلح ما هي الطريقة ان شاء الله نعم يصلح الطريقة نحدد خلية لنضع فيها الرقم المطلوب نعمل كود vb يقوم بالتالي يخفي كل الأعمدة ويبحث في الصف الثاني الأعمدة المخفية اذا كان الرقم مطابق لما كتبت يقوم باظهار العمود وغير ذلك يذهب للعمود الي بعدة ونفس الطريقة يمكن تطبيقها على التاريخ مع التحية

السلام عليكم و رحمة الله وبركاته هل هناك عمود محدد للبحث هوة الطلب بهذه الصيغة حرفيا قد يكون صعب علي قليلا ولكن ممكن نلف او نلتف مع الفكرة شوية ونطوعها لتنفيذ المطلوب من وجهة نظري فقط نستخدم التصفية لإستخراج الصفوف التي بها الكلمة ثم تقف بالمؤشر على الصف الذي تريد ترحيلةوتضغط ترحيل - يترحل هذه فكرة وممكن في افكار اخرى مع التحية

السلام عليكم ماشاء الله ابداعات جميله من العباقرة دمتم بخير

السلام عليكم و رحمة الله وبركاته يجب تحديد السنة المطلوبة ومنها نعمل تسلسل الشهور بدالة Date ثم نغير تنسيق الخلايا اى اظهار اسماء الشهور فقط ونضع الدالة IF للمقارنة مع تاريخ البدأ و النهاية كما في المرفق jory.rar

السلام عليكم و رحمة الله وبركاته اخي الحبيب عبدالله مجرب اسأل الله العظيم رب العرش العظيم أن يشفيك اسأل الله العظيم رب العرش العظيم أن يشفيك اسأل الله العظيم رب العرش العظيم أن يشفيك اجر وعافية ان شاء الله

وعليكم السلام و رحمة الله وبركاته ان شاء الله ممكن وهناك عدة طرق لذلك نحتاج ملف لفهم المطلوب وعمل الكود

السلام عليكم اضغط الملف بـ Zip او Rar ثم ارفقه

السلام عليكم عندي مشكلة في الرفع للملفات بطيء جدا اذا لم يتم ارفاق الملف هذا هو الكود Sub tahwiell() 'äÞá ÇáÈíÇäÇÊ Application.Calculation = xlManual Dim FS, FR, TS, TR FS = "ÇáæÇÑÏ" TS = Sheets(FS).Range("A20") TR = Sheets(FS).Range("J20") TC = Sheets(FS).Range("K20") Sheets(TS).Unprotect Password:="ehab123" Sheets(TS).Protect Password:="ehab123" TS = Sheets(FS).Range("A21") TR = Sheets(FS).Range("J21") TC = Sheets(FS).Range("K21") Sheets(TS).Unprotect Password:="ehab123" Sheets(TS).Cells(TR, TC) = Sheets(FS).Cells(22, 9) Sheets(TS).Protect Password:="ehab123" ' - - - - - - - -- -- - -- - - - -- - -- - - - FS = "ÇáæÇÑÏ" TS = Sheets(FS).Range("A20") TR = Sheets(FS).Range("J25") TC = Sheets(FS).Range("K25") For c = 3 To 6 Sheets(TS).Cells(TR, TC + c - 3) = Sheets(FS).Cells(25, c) Next TR = Sheets(FS).Range("J27") TC = Sheets(FS).Range("K27") For c = 2 To 6 Sheets(TS).Cells(TR, TC + c - 2) = Sheets(FS).Cells(27, c) Next ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - Sheets(TS).Protect Password:="ehab123" Application.Calculation = xlAutomatic MsgBox "ÇáíãÏ ááå Êã ÇáäÞá" Sheets(FS).Select ActiveSheet.EnableSelection = xlUnlockedCells ActiveSheet.Protect End Sub

آسف المرفق Q.rar

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