محي الدين ابو البشر

اسف اسف اسف

بالغلط والله

ما بعرف كيف حصل 

بعتذر بشدة عالغلط

عودأ حميداً

مشكور على جهودك الطيبة

بارك الله بك

فغلا لكن في المرة الاولى لم انتبه

مع اني لن افهم 

فعلاً انك انسان رائع

بانتظارك استاذنا العزيز

استاذي الكريم،

المعادلة الموجودة في المرفق رائعة ولكن دالة (IsFormula) غير موجودة إلا في الملف المرفق اذا ممكن تتكرم علنا بالحصول على الكود

طريقة جميلة كنت ابحث عن هكذا طريقة بارك الله بك

هل لديك فكرة أذا كان في الشيت أكثر من عمود وفيه معادلات 

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

شكرا لك

انا اسف جداً جداً لا أدري كيف اعتذر منكم ومن هذا المنتدى الرائع فعلاً

لظروف خاصة لم استطع ان اتابع الموضوع 

اكرر اسفي 

لا ادري ماذا حصل مع أني ضغطت الملف winrar

واشكر كل من حاول مساعدتي في هذا الموضوع

وشكري الخاص للاستاذ ياسر خليل لقد استفدت من ردك وكانت النتائج جيدة 

وانا اخجل الآن من طرح اي موضوع 

مع أانه لدي الكثير من الافكار التي تتزاحم في عقلي ولا ادري كيف ابدا ها

اتابع هذا الصرح العظيم لاعمل بمفردي واعدل على أفكار اطلع عليها هنا ولكن كثرة الأفكار والمواضيع المتزاحمة تمنعني من البدء او من أين أبدأ

عذري الشديد منكم مرة اخرى

عذرا  مناك استاذ سليم

ليس هذا المطلوب ربما بالمرفق يمكن السؤال أوضح

وشكرا لك من كل قلبي

عندي سؤال محيرني من فترة

عادة دالة البحث تعيد أول قيمة في العمود الذي نبحث فيه وتهمل باقي العمود الذي نبحث عنه

سؤالي اذا كنا نبحث عن اسم ما في عمود A  مثلا ونريد إعادة القيمة الموجودة في العمود B فإذا كان ألاسم مكرراً في العمود A  ونريد إعادة مجموع ما يقابل الأسم المكرر 

هل هناك إي إمكانية لهذا العمل

أفيدوني جزاكم الله كل خير

شكرا للك للإفادة والنصائح أيضاً

أستاذ ياسر

شكراً لك من كل قلبي على مجهودك 

تعجز الكلمات عن التعبير عن تقديري لك وشكرك 

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

لا مجيب

شكراً

سيدي الفاضل ياسر خليل

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

لا أدري اذا كان بالامكان الحصور على معادلة في خلية مجموع الصفحات

شكراً لك على مساعدتك

<Sub sumpages()

 Pages = InputBox("عدد الصفحات", "جمع الصفحات")

P = Pages

For i = 26 To 34 * P Step 34

Application.Calculation = xlCalculationManual

   Range("F" & i).Select

    ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"

   Next i

      Range("f" & P * 34 - 7).Select

   ActiveCell.FormulaR1C1 = "=R[-1]C+R[-35]C+R[-69]C+R[-103]C+R[-137]C+R[-171]C+R[-205]C+R[-239]C+R[-273]C+R[-307]C+R[-341]C+R[-375]C+R[-409]C+R[-443]C+R[-477]C+R[-511]C+R[-545]C+R[-579]C+R[-613]C+R[-647]C+R[-681]C+R[-715]C+R[-749]C+R[-783]C+R[-817]C+R[-851]C+R[-885]C+R[-919]C+R[-953]C+R[-987]C+R[-1021]C+R[-1055]C+R[-1089]C+R[-1123]C+R[-1157]C+R[-1191]C+R[-1225]C+R[-1259]C+R[-1293]C+R[-1327]C+R[-1361]C+R[-1395]C+R[-1429]C+R[-1463]C+R[-1497]C+R[-1531]C+R[-1565]C+R[-1599]C+R[-1633]C+R[-1667]C"

             Application.Calculation = xlCalculationAutomatic

End Sub>

بارك الله بك أخي العزيز وآسف على خطأي

إليك المرفق مع ملاحظة أنه مثال 4 صفحات ومجموع الصفحات صحيح ولكن هناك خطأ ما

وممكن أن يكون عدد الصفحات متغيراً من وقت لاخرBook.rar

Sub sum

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

عندي الملكرو التالي ولكن كما هو واضح انه غير عملي مع أنه يعمل بشكل او باخر مع وجود خطأ ما المشكلة عند وضع معادلة الجمع ضمن الماكرو لم استطع أ، اجد اي وسيلة لادخال متغير ضمن المعادلة او ضمن حلقة for next loop

Sub sumpages()

 Pages = InputBox("عدد الصفحات", "جمع الصفحات")

P = Pages

For i = 26 To 34 * P Step 34

Application.Calculation = xlCalculationManual

   Range("F" & i).Select

    ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"

   Next i

      Range("f" & P * 34 - 7).Select

   ActiveCell.FormulaR1C1 = "=R[-1]C+R[-35]C+R[-69]C+R[-103]C+R[-137]C+R[-171]C+R[-205]C+R[-239]C+R[-273]C+R[-307]C+R[-341]C+R[-375]C+R[-409]C+R[-443]C+R[-477]C+R[-511]C+R[-545]C+R[-579]C+R[-613]C+R[-647]C+R[-681]C+R[-715]C+R[-749]C+R[-783]C+R[-817]C+R[-851]C+R[-885]C+R[-919]C+R[-953]C+R[-987]C+R[-1021]C+R[-1055]C+R[-1089]C+R[-1123]C+R[-1157]C+R[-1191]C+R[-1225]C+R[-1259]C+R[-1293]C+R[-1327]C+R[-1361]C+R[-1395]C+R[-1429]C+R[-1463]C+R[-1497]C+R[-1531]C+R[-1565]C+R[-1599]C+R[-1633]C+R[-1667]C"

             Application.Calculation = xlCalculationAutomatic

End Sub

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

اشكركم في جميع الأحوال فقد استفدت منكم الكثير الكثير