الشهابي

الأستاذ القدير / إبراهيم أبو ليلة جزاكم الله خير على دعاؤكم لنا وبارك الله فيكم أنتم ورفع قدركم

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

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

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

ماشاء الله عليك أستاذ / محمد أبو البراء دائما سباق للخير جزاك الله خير

أخي العزيز / amm830133 بالنسبة لعملية التثبيت تستعمل علامة الدولار( $) لذلك فمثلا لو أرد تثبيت النطاق بشكل عام نضع علامة الدولار وذلك بالضغط على (SHIFT+4) قبل اسم العمود وقبل رقم الصف بهذا الشكل : $A$1:$C$4827 وإن أردت تثبيت الصف دون العمود ضعها قبل الرقم فقط بهذا الشكل : A$1:C$4827 وإن أردت تثبيت العمود دون الصف ضعها قبل العمود فقط بهذا الشكل $A1:$C4827 كما يمكنك تثبيت بداية النطاق دون نهايته أو العكس بهذا الشكل : $A$1:C4827 وهو ما يسمى بالمرجع النسبي أوالمطلق يتم اختيار المرجع حسب الحاجة كما يمكنك تحديد النطاق والضغط على (F4 ) لوضع علامة الدولار بشكل تلقائي وكذلك بالضغط مرة أخرى يتم التغير في الوضعيات أو إلغائها كليا تقبل تحياتي

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

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

أخي العزيز / أبو طارق ضع المعادلة التالية في الخلية (D5) ومنثم انسخها في بقية خلايا الجدول =IF(AND($C5<=15-COLUMN()-COLUMN(A1);$C5>15-COLUMN()-COLUMN(C1));"x";"") لاحظ المرفق, وإذا كنت ستستعمل المعادلة في خلايا أخرى استبدل المعادلة السابقة بهذه فهي أفضل ويمكن استعمالها في أي أعمدة أخرى دون خطأ =IF(AND($C5<=15-COLUMN(D1)-COLUMN(A1);$C5>15-COLUMN(D1)-COLUMN(C1));"x";"") لاحظ المرفق الثاني تحياتي وتقديري تصنيف الفئات.rar تصنيف الفئات.rar

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

أخي العزيز / ذيب اليمن يمكن ذلك فعند حدوث تغير في النطاق من العمود ( F ) إلى العمود (AJ) يتم استدعاء الكود لاحظ المرفق Book1.rar

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

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

لله درك أستاذنا الكريم وعلامتنا القدير / عبد الله باقشير وجزاك الله خير عل هذه الأعمال التي تفيد وتسهل على إخوانك أعمالهم فأنتم رمز للتميز والأبداع المنقطع النظير بارك الله فيكم أستاذنا

أخي العزيز / ذيب اليمن ما رأيك في فكرة علامتنا القدير الأستاذ / عبد الله باقشير حفظه الله بهذا الكود الذي طبقته بعد تسجيل ماكرو من أجل جلب معادلاتك إلى الكود ومن ثم يتم تحويلها إلى قيم من خلال هذا السطر .Value = .Value والكود كالتالي Sub kh_value_value() LR = Range("C10000").End(xlUp).Row With Range("C9:C" & LR).Offset(0, 34) .ClearContents .FormulaR1C1 = _ "=30-(30-(COUNTIF(RC[-31]:RC[-1],""A"")+COUNTIF(RC[-31]:RC[-1],""L"")+(COUNTIF(RC[-31]:RC[-1],""W"")*2)+(COUNTIF(RC[-31]:RC[-1],""T"")+(COUNTIF(RC[-31]:RC[-1],""C"")+(COUNTIF(RC[-31]:RC[-1],""N""))))))" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 35) .ClearContents .FormulaR1C1 = _ "=IF(SUMIF(R7C6:R7C36,""N"",RC[-32]:RC[-2])>2*(SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]<>""""))-SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]>""""))),2*(SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]<>""""))-SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]>""""))),SUMIF(R7C6:R7C36,""N"",RC[-32]:RC[-2]))" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 36) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C35,""F"",RC[-33]:RC[-4])" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 37) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C35,""H"",RC[-34]:RC[-5])" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 38) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C36,""N"",RC[-35]:RC[-5])-RC[-3]" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 39) .ClearContents .FormulaR1C1 = _ "=RC[-1]+RC[-2]+RC[-3]+RC[-4]" .Value = .Value End With End Sub وهذا الملف بعد تطبيق الكود عليه Book1.rar

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

أستاذنا الكبير / رجب جاويش أعمالك رائعة دائما مثلك بارك الله فيك وجزاك الله خير

أخي العزيز / محمد عوض إن الترحيل لديك يعتمد أساسأ على الأسماء في العمود الثاني (Company Name) وأي تغير أو زيادة أسماء لن يتم الترحيل إليها ولن يحذف البيانات في إجدى الأوراق اللي أسماءها لابد أن تنطبق مع الأسماء في العمود (Company Name) فإذا اختلفت أسماء الأوراق عن أسماء العمود (Company Name) لن يتم الترحيل قيها ولكن ممكن توضح الآلية التي تريدها لعملية الترحيل بشكل مفصل حتى يتم تجنب الأخطاء إن شاء الله

الأستاذ / حمادة باشا الأستاذ / حسين العصلوجى ألف مبروك على الترقية المستحقة وبشهادة الجميع أتمنى أن تكون حياتكم كلها ترقيات في ترقيات وفرح في فرح وسعادة في سعادة

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

الأخ العزيز / tantawy في المرة الثانية لا تدخل موضوع على موضوع خاصة إذا لم يكن هنك ترابط بينهما وربما لا يطلع عليه الآخرون لمساعدتك المهم بالنسبة لموضوعك السبب في ذلك أنك حدد الوقت 12 مساء ثم حددت الوقت 1 صباحا وهنا 13 ساعة وليست ساعة واحدة والأمر الآخر أنك اتقلت من يوم إلى يوم آخر وهذه تحتاج إلى معادلة خاصة لحساب الوقت قمت بتعديل الوقت إلى 1 مساء والنتيجة مضبوطة إن شاء الله بالنسبة لطلبك الآخر البحث أنت استعملت في هذه الحالة معادلات الصفيف على الرغم إنه ممكن الحساب بمعادلات عادية عملت لك ماكروا للتصفية المتقدمة من خلاله يتم البحث بالاسم وبين تاريخين تحددهما قمت بذلك لأن ملفك يحتوي على أكواد فاستحسن الكود من المعادلة والعفو على تأخري الفرد لإنشغالي بعض الشيء لاحظ المرفق student 2013.rar

أستاذنا العزيز وحبيبنا الغالي ا لأستاذ / الخالدي فعلا كلامك مضبوط 100% وقد عدلت السطر السابق على النحو التالي وكان تماماً If C = 0 Then Application.Calculation = xlAutomatic: End أستاذي العزيز على الرغم من قلة تواجدك في المنتدى إلا أنك تبهرنا بردودك الصائبة والمفيدة بارك الله فيك أستاذنا وزادك الله من علمه وجعل مثواك الفردوس الأعلى في الجنة إن شاء الله تقبل تحياتي وتقديري

أخي العزيز / محمد سعيد العمدة كما أخبرتك بأن هذا الفورم هو لأستاذنا العلامة عبد الله باقشير ولم يكن لي من الأمر إلى تطبيقه على ملفك وللفائدة يمكنك الذهاب لرابط الموضوع لتطلع عليه بنفسك وتطلع على شرح الأستاذ / عبد الله باقشير أطال الله عمره تحياتي وتقديري على كلماتكم الطيبة وهذا رابط الموضوع http://www.officena.net/ib/index.php?showtopic=48811

بعد مرور سنتين على الموضوع أرفعه مرة أخرى ربما أجد الحل إن شاء الله وجزاء الله أستاذنا القدير / أحمد يعقوب زمان خيراً على رده على الموضوع وتعاونه معنا إذا أمكن التعديل عليه أو عمل كود للترتيب آخر يحل محل هذا من خلاله يتم إرجاع الحساب تلقائي بعد تنفيذه وسأرفق ملف كمثال به الكود حتى يتم العمل عليه تحياتي وتقديري لجميع الأعضاء الصف الخامس.rar

أخي العزيز / محمد عوض إليك التعديل التالي في الكود وإن شاء الله يكون سليما والعفو Copy of التصليحات2.rar