أبو سجده قام بنشر سبتمبر 8, 2014 الكاتب قام بنشر سبتمبر 8, 2014 (معدل) الاستاذ الفاضل // شوقى ربيع السلام عليكم بعد إذن سيادتكم مع اضافة الاعمدة المظلله باللون الرمادى حدث خلل فى الترقيم التلقائى حيث انتهى الكشف الثانى برقم 20 والمفترض ان ينتهى برقم 40 لذا يرجى عمل اللازم وجزاكم الله خيرا وبارك فيكم الساده الافاضل السلام عليكم ورحمته الله وبركاته وجزاكم الله خيرا تم تعديل سبتمبر 9, 2014 بواسطه سعيد بيرم
شوقي ربيع قام بنشر سبتمبر 10, 2014 قام بنشر سبتمبر 10, 2014 الاستاذ الفاضل // شوقى ربيع السلام عليكم بعد إذن سيادتكم مع اضافة الاعمدة المظلله باللون الرمادى حدث خلل فى الترقيم التلقائى حيث انتهى الكشف الثانى برقم 20 والمفترض ان ينتهى برقم 40 لذا يرجى عمل اللازم وجزاكم الله خيرا وبارك فيكم السلام عليكم غير الكود السابق الخاص بنسخ الجدول بهذا الكود Sub Copeir_Tebel() 'لنسخ الجدول ايضا بنفس ارتفاع الصفوف Dim sh As Worksheet: Set sh = Sheets("data") Dim sh2 As Worksheet: Set sh2 = Sheets("مكافاة الثانوية العامة") Dim lr As Long: lr = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 2 Dim i As Integer sh2.Rows("8:28").Copy sh2.Range("A" & lr + 5).Select ActiveSheet.Paste Dim Lrw As Long: Lrw = sh2.Cells(sh2.Rows.Count, 2).End(xlUp).Row Dim x As Integer: x = sh2.Range("A" & lr - 2) + 1 For i = lr + 5 To Lrw sh2.Range("A" & i) = x x = x + 1 Next ActiveSheet.PageSetup.PrintArea = "$A$1:$As" & Lrw Dim Str As Byte: Str = 34 FinalRow = Range("A65536").End(xlUp).Row For i = Str To Lrw Step 26 ActiveSheet.HPageBreaks.Add before:=Cells(i, 1) Next i End Sub تحياتي
أبو سجده قام بنشر سبتمبر 10, 2014 الكاتب قام بنشر سبتمبر 10, 2014 (معدل) اخى العزيز المحترم // شوقى ربيع السلام عليكم اسعدك الله فى الدارين وبارك فيكم وفى ذريتكم والى لقاء قريب بحول الله فى افكارا أخرى والشكرلجميع الساده الافاضل ممن ساهموا معنا فى هذا الموضوع تم رفع الموضوع بموضوع مستقل على الرابط http://www.officena.net/ib/index.php?showtopic=55519&hl= وجزاكم الله خيرا تم تعديل سبتمبر 10, 2014 بواسطه سعيد بيرم
أبو سجده قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 (معدل) السلام عليكم ورحمته الله وبركاته برجاء الاطلاع على المرفق التالى المطلوب تعديل بسيط على هذا النحو اولا الكشف الاول الذى يبدأ من 1001 وحتى 1020 يبقى كما هو مع الاجمالى ثانيا ادراك صف بداية من الكشف الثانى لجعل هذا الصف لاجمالى ماقبله " جملة الكشف الاول " ثم تبدأ عملية الترقيم من بعد هذا الصف الذى تم إدراكة ليبدأ من 1021 حتى 1040 مع الاجمالى وهكذا باقى الكشوف بمعنى أدق اننى أريد ان يكون هناك عملية تلحيق تلقائى لعملية الجمع هذا هو تصورى للمطلوب حسب التوضيح بالملف المعنون تحت اسم " التعديل المطلوب " فيرجى فضلا عمل اللازم كما يترائى لسيادتكم وجزاكم الله خيرا وبارك فيكم وحفظكم من كل سوء وتفضلوا سيادتكم قبول وافر احترامنا وتقديرنا وجزاكم الله خيرا تم تعديل مارس 12, 2015 بواسطه سعيد بيرم 1
شوقي ربيع قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 بسم الله الرحمان الرحيم السلام عليكم تم عمل المطلوب بمشيئة الله جرب المرفق وأعلمني ان كان هناك اي اضافات او تعديلات اخرى تحياتي للجميع التعديل المطلوب.xlsb.rar
أبو سجده قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 (معدل) بسم الله الرحمن الرحيم وبه نستعين أخى العزيز الاستاذ الفاضل // شوقى ربيع السلام عليكم ورحمته الله وبركاته بداية جزاكم الله خيرا وبارك فيكم تم مراجعة المرفق فضلا برجاء الاطلاع على إجماليات العمود E بالخلايا ذات اللون الازرق حيث من المفترض ان جملة الكشف رقم 1 = 210.00 وجملة الكشف رقم 2 = 420.00 وجملة الكشف رقم 3 = 630.00 وهكذا مع مراجعة الترقيم التلقائى حيث لوحظ ان الكشف رقم 2 انتهى عند رقم 1020 والمفترض ان ينتهى عند 1040 و الكشف رقم 3 ينتهى عند رقم 1060 وهكذا أرجو بأن لاأكون قد أثقلت عليكم ولحين التفكير فى وضع حل أمثل لعملية التفقيط فأنى فى انتظار ردكم .... الله أسأل ان يديم علينا نعمة الحابب فى الله ... وجزاكم الله خيرا تم تعديل مارس 12, 2015 بواسطه سعيد بيرم
شوقي ربيع قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 تم مراجعة المرفق فضلا برجاء الاطلاع على إجماليات العمود E بالخلايا ذات اللون الازرق حيث من المفترض ان جملة الكشف رقم 1 = 210.00 وجملة الكشف رقم 2 = 420.00 وجملة الكشف رقم 3 = 630.00 وهكذا تم الحل لاكن النتائج تكون قيم وليست معادلة كما كانت سابقا مع مراجعة الترقيم التلقائى حيث لوحظ ان الكشف رقم 2 انتهى عند رقم 1020 والمفترض ان ينتهى عند 1040 و الكشف رقم 3 ينتهى عند رقم 1060 وهكذا تم تصحيح الامر سؤال هل محتوى الصفحات المنسوخة ثابة يعني لما تضغط F2 وتنشئ التذيل ثم تظغط اوك لانشاء الجدول ,الجدول الجديد يحمل نفس النتائج السابقة هل تغيرها يدويا ام تبقى ثابة التعديل المطلوب.xlsb.rar
أبو سجده قام بنشر مارس 13, 2015 الكاتب قام بنشر مارس 13, 2015 (معدل) بسم الله الرحمن الرحيم وبه نستعين اخى العزيز الاستاذ الفاضل // شوقى ربيع تحية الله عليك بشأن الترقيم فتم تصويبة على النحو المطلوب أما بشأن استفساركم فأنه مايتم تسجيله يدويا هو العمود D فقط على اعتبار أن اساسيات المرتب متغيرة وحسب ماتفضلت أن الحل تم كقيم دون معادلات وهذا ماتم بالكشف رقم 1 فقط دون غيره مع تغيير أساسى المرتب مع ملاحظة عدم تلحيق الاجمالى ببداية الكشف الثانى اما مع تغير اساسى المرتب بالكشف الثانى والثالث لايتم تغيير الجملة وهكذا باقى الكشوف ...... أرجو من الله تعالى أن يوفقكم لما يحب ويرضى وفى انتظاركم بحول الله تعالى .... وافر تقديرى واحترامى ... وجزاكم الله خيرا تم تعديل مارس 13, 2015 بواسطه سعيد بيرم
شوقي ربيع قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 وحسب ماتفضلت أن الحل تم كقيم دون معادلات وهذا ماتم بالكشف رقم 1 فقط دون غيره مع تغيير أساسى المرتب مع ملاحظة عدم تلحيق الاجمالى ببداية الكشف الثانى اما مع تغير اساسى المرتب بالكشف الثانى والثالث لايتم تغيير الجملة وهكذا باقى الكشوف ...... أرجو من الله تعالى أن يوفقكم لما يحب ويرضى وفى انتظاركم بحول الله تعالى .... وافر تقديرى واحترامى ... وجزاكم الله خيرا ارجو التوضيح اكثر لاني بصراحة لم استوعب الامر ومخي اليوم شويا ملبد
أبو سجده قام بنشر مارس 13, 2015 الكاتب قام بنشر مارس 13, 2015 (معدل) أخى العزيز الاستاذ الفاضل // شوقى ربيع السلام عليكم ورحمته الله وبركاته بالملف المرفق بالمشاركة رقم 33 فضلا قم بتغيير محتوى الخلية D27 ولاحظ تغير الجملة بالخلية E28 والامرعائد لوجود معادلة الجمع أما مع تغيرمحتوى الخلية D54 لايتم تغير الجملة بالخلية E55 والامر عائد لعدم وجود معادلة الجمع مرفق ملف توضيحى لعملية الجمع وتلحيق الجمع وافر تقديرى واحترامى وجزاكم الله خيرا تم تعديل مارس 13, 2015 بواسطه سعيد بيرم
شوقي ربيع قام بنشر مارس 16, 2015 قام بنشر مارس 16, 2015 السلام عليكم بعد جهدا جهيد تم حل مشكلة ادراج المعادلات والحمد لله ارجو ان يكون هذا المطلوب راجع المرفق واعلمني باي مستجدات تحياتي التعديل المطلوب.xlsb.rar
أبو سجده قام بنشر مارس 16, 2015 الكاتب قام بنشر مارس 16, 2015 (معدل) بسم الله الرحمن الرحيم وبه نستعين أخى العزيزالمحترم جدا جدا // ابوربيع السلام عليكم ورحمته الله وبركاته جارى الاطلاع وإفادة سيادتكم قبل الخوض بأخر جزئية فى الموضوع جزاكم الله خيرا وبارك فيكم تم تعديل مارس 17, 2015 بواسطه سعيد بيرم
أبو سجده قام بنشر مارس 17, 2015 الكاتب قام بنشر مارس 17, 2015 (معدل) بسم الله الرحمن الرحيم وبه نستعين أخى العزيزالمحترم جدا جدا // ابوربيع السلام عليكم ورحمته الله وبركاته يشهد الله تعالى أننى لم أجد من الكلمات التى توافيك حقك الله أسأل ان يديم عليك نعمة الصحة والعافية وأن يرزقكم وإيانا من حيث لانحتسب أخى العزيزالغالى نعم هذا هو المطلوب وبقيت الخطوة الاخيرة الا وهى عملية التفقيط ولكنها فى حاجة إلى فنجان قهوة " تلقيمة بن محوج " ههههههههههههههه " أحلى ابتسامة لآحلى شوقى بالجزائرالشقيقة " حتى تكتمل مسيرة عطائكم الذى احتسبها عند المولى العلى القدير فى موازيين حسناتكم بإذن الله تعالى يوم لاينفع مالا ولابنون إلا من أتى الله بقلب سليم ولحين تعديل المرفق على الوضع الذى سيتم العمل عليه وحتى لايكون هناك إرهاق ذهنى عليك أخى الحبيب اسمح لى بهذا التوضيح فلكل عمل هدف معين بشأن عملية التفقيط هنا وحتى لايكون هناك اى تلاعب من اى نوع وخاصة ممن ليس لهم أدنى ضميرفى مجال عملهم وتجنبا لحدوث مالا يحمد عقباه فيجب ان يكون التفقيط هنا فى أخر الكشف وعلى محتوى الخلية الخاص بالصافى والذى على اساسة يتم إصدار شيك بقيمة المبلغ تمهيدا لصرفه للساده العاملين مثالا على ذلك وليكن لديك كشف واحد فقط سيتم من خلاله صرف المبلغ فيجب هنا ان تتم عملية التفقيط على صافى المبلغ بهذا الكشف على اعتبار انه كشف واحد دون سواه ومن ثم نقوم بطباعته أما لو هناك أكثر من كشف ولنعتبر ان هناك 2 كشفان جاهزان للطباعه فيجب هنا تجاهل التفقيط بالكشف الاول ومن ثم يأتى التفقيط نهاية الكشف رقم 2 بهذا التوضيح أخى الحبيب ارجو أن أكون وضحت لسيادتكم المطلوب بشأن عملية التفقيط وسأترك لك حرية اختيار الكود الملائم أوالمعادلة الملائمة لتنفيذ ذلك الله أسأل أن يوفقكم وإيانا لما يحب ويرضى .... بارك الله فيك واسعدك فى الدارين ... وجزاكم الله خيرا تم تعديل مارس 17, 2015 بواسطه سعيد بيرم
أبو سجده قام بنشر مارس 17, 2015 الكاتب قام بنشر مارس 17, 2015 (معدل) بسم الله الرحمن الرحيم وبه نستعين اخى العزيز الاستاذ الفاضل // ابو ربيع السلام عليكم ورحمته الله وبركاته تم تعديل الملف حيث تم تقليص عدد الاعمدة على الوضع الذى يتم العمل عليه ولاحظ أخى الفاضل عند الضغط على F2 تظهر رسالة خطأ والامر عائد الى تغيير الــ RANGE بهذه السطور sh2.Cells(Rw3, 5).Formula = "=IF(SUM(E" & Rw1 & ":E" & Rw2 & ")=0,"""",SUM(E" & Rw1 & ":E" & Rw2 & "))" sh2.Cells(Rw3, 5).Select Selection.AutoFill Destination:=Range("E" & Rw3 & ":AC" & Rw3), Type:=xlFillDefault sh2.Range("E" & Rw3 & ":AC" & Rw3).Select وبالرغم من تعديل الــ RANGE ولكن نفس رسالة الخطأ فتركت الامورلسيادتكم حتى نسيرعلى الدرب الصحيح اما بشأن التفقيط يرجى عمل اللازم على النحو المبين بالمشاركة السابقة بارك الله فيكم وجزاكم خيرا تم تعديل مارس 17, 2015 بواسطه سعيد بيرم
أبو سجده قام بنشر مارس 29, 2015 الكاتب قام بنشر مارس 29, 2015 (معدل) السلام عليكم ورحمته الله وبركاته المطلوب بإذن الله تعالى ان تبدأ عملية الجمع والتلحيق من العمود N حتى العمود W وجزاكم الله خيرا تم تعديل مارس 29, 2015 بواسطه سعيد بيرم
أبو سجده قام بنشر مارس 31, 2015 الكاتب قام بنشر مارس 31, 2015 (معدل) السلام عليكم ورحمته الله وبركاته نظرا لارتباط السطر التالى Dim Rw1 As Long, Rw2 As Long, Rw3 As Long بهذه السطور والمتعلقه بعملية الجمع والتلحيق Rw2 = Lrw: Rw3 = Lrw + 1 sh2.Cells(Rw3, 5).Formula = "=IF(SUM(N" & Rw1 & ":N" & Rw2 & ")=0,"""",SUM(N" & Rw1 & ":N" & Rw2 & "))" sh2.Cells(Rw3, 5).Select Selection.AutoFill Destination:=Range("N" & Rw3 & ":W" & Rw3), Type:=xlFillDefault sh2.Range("N" & Rw3 & ":W" & Rw3).Select مع تغير معادلة الجمع بالكود بداية من العمودالــ N الى العمود w تظهر رسالة الخطأ لذا نرجو فضلا عمل اللازم نحو التعديل المطلوب وافر احترامى وتقديرى ......وجزاكم الله خيرا تم تعديل مارس 31, 2015 بواسطه سعيد بيرم
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان