بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
سلطان العبدالله
-
Posts
15 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه سلطان العبدالله
-
-
اخى الكريم
وبعد اذن اساتذتى جزاهم الله خيراً
اليك المطلوب ضع صفحة البداية بالخلية F2 وصفحة النهاية ب H2 (يمكن تغيير تلك الخلايا طبعاً ) ولاحظ النتائج
لجمع الكمية
=SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2")))
لجمع المبيعات
=SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!B2")))
تقبلوا خالص تحياتى
صباح الخير للجميع ..
الحقيقة لا اعلم سبب ان المعادلة تعمل على اكسل 2010 و 2013 ولا تعمل على 2007 هل هناك اختلاف في المعادلة او الفواصل
-
أخي الكريم جرب الكود التالي
Sub SUMSpecificSheets() Dim I As Long, Counter1 As Double, Counter2 As Double Dim lStart As Long, lEnd As Long If Not IsNumeric(Range("F2")) Or Not IsNumeric(Range("H2")) Or IsEmpty(Range("F2")) Or IsEmpty(Range("H2")) Then MsgBox "Invalid Input", 64: Exit Sub Application.ScreenUpdating = False With Sheets("total") .Range("A2:B2").ClearContents lStart = Application.Min(.Range("F2"), .Range("H2")) lEnd = Application.Max(.Range("F2"), .Range("H2")) For I = lStart To lEnd If Evaluate("=ISREF('" & I & "'!A1)") Then Counter1 = Application.Sum(Counter1, Sheets(I).Range("A2")) Counter2 = Application.Sum(Counter2, Sheets(I).Range("B2")) .Range("A2") = Counter1: .Range("B2") = Counter2 Else MsgBox "The Sheet " & I & " Is Not Existed", 64 End If Next I End With Application.ScreenUpdating = True End Sub
الله يعطيك العافية استاذي ياسر شاكر ومقدر اهتمامك ولكني حبيتها معادلة فقط الله يخليك
جرب هذا الملف
الله يخليك استاذي سليم شاكر ومقدر اهتمامك ممتاز جدا طريقة الملف ولكني افضل المعادلة لاني سوف استخدمها لاكثر من خليه
اخى الكريم
وبعد اذن اساتذتى جزاهم الله خيراً
اليك المطلوب ضع صفحة البداية بالخلية F2 وصفحة النهاية ب H2 (يمكن تغيير تلك الخلايا طبعاً ) ولاحظ النتائج
لجمع الكمية
=SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2")))
لجمع المبيعات
=SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!B2")))
تقبلوا خالص تحياتى
استاذي خالد شاكر ومقدر اهتمامك وسرعة استجابتك فعلا هذا هو المطلوب بيض الله وجهك
-
الله يبيض وجهك اخوي خالد على الرد
لكن اللي احتاجه انا حقيقة انه النطاق يكون بين رقمين فقط
يعني لو وضعت الرقم من 1 الى 3 يجمع جميع القيم اللي في الخلية A1 مثلا في الصفحات 1 و 2 و 3
اوضح اكثر لو كان عندي 30 ورقة احتاج اني اضع رقمين فقط بين مثلا الصفحة 10 الى 20 يعطيني المجموع
اتمنى فهمت قصدي وشاكر ومقدر اهتمامك .
-
احتاج لطريقة جمع خلايا محددة بنطاق معين بين اوراق العمل
-
بارك الله فيكم وشكر الله سعيكم
-
ما شاء الله .. من ابداع الى ابداع شكر الله سعيكم
-
1
-
-
الحمد لله
تشرفنا بك اخي الكريم في المنتدي
نسيت أن أرحب بك كما هو المعتاد لأولي مشاركاتك
أهلا ومرحبا بك بين إخوانك
ونحمد الله أن جعلنا سبب لإيجاد ماتبحث عنه
الله يخليك استاذي طارق هذا من كرم اخلاقك .. تشرفت بالجميع شكرا لك
-
اعتقد باذن الله ان وجد ضالتي بمساعدة الاستاذ طارق محمود
حيث استفدت من المعادلة في استخدام الماكرو والتعديل على السطر المحدد في لصق القيم في عمود الاجازات مع الاضافة وهو ما كنت احتاجه بحيث يضيف عدد الايام مباشرة الى الرقم الموجود في الاجازة
Sub AddVacation() Range("J4:J12").Select Selection.Copy Range("G4:G12").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd Range("h4:i12").ClearContents Range("n3").Select End Subشكرا لكم
-
اسف استاذتي ام عبدالله استعجلت بالرد ولم انتتبه الى ردك
-
بعد اذن الاساتذة
هذا احد الحلول في المرفق
وقد استخدمت الشرط if والدالة AND
حي اصبح الشرط في عمود مدة الاقامة بالساعات بهذا الشكل
=IF(AND(D9>0;E9>0);(E9-D9+1)*24;"")
شرح بسيط للكود
عندما يكون حقل تاريخ الدخول D اكبر من صفر و(AND) حقل تاريخ الخروج E اكبر من صفر يتحقق الشرط واذا لم يتحقق ضع فراغ في الحقل
-
بعد اذن الاخوة المشرفين
شوف هذي المشاركة ممكن تفيدك
http://www.officena.net/ib/index.php?showtopic=42681&p=245248
وهذه مواضيع الترحيل للاستاذ عبدالله المجرب باذن الله تجد مرادك
-
شاكر ومقدر متابعتك استاذي طارق محمود
يبدوا اني لم اوضح المطلوب بما فيه الكفاة اعتذر منك
المطلوب استاذي الكريم عندما اقوم بتعبئة التواريخ للموظف باسم سلطان على سبيل المثال والمعطيات السابقة الموجودة كالتالي
الرصيد الفعلي = 10 الاجازات = 0 ( المقصود بالاجازات هو عدد ايام الاجازات خلال السنة بالكامل ) عدد الايام = الفرق بين التاريخين من و الى مثلا اصبح عدد الايام = 5
انا اللي احتاجه فقط اذا قمت بتعبئة تاريخ من والى يظهر لدي عدد الايام سواء موظف واحد او اثنين او ثلاثه .. ولا يشترط ان يكون لكل الموظفين
عند ضغط زر حفظ يقوم بالتالي
الاجازات + عدد الايام والناتج يكون في حقل الاجازات بمعنى اخر ان حقل الاجازات بعد ضغط زر الحفظ يتغير من صفر الى 5 .
اتوقع الذي احتاجه اني انسخ حقل الاجازات وحقل عدد الايام لكل موظف ثم اقوم بجمعه وارجع الصق ناتج الجمع في حقل الاجازات مه اخرى !
اعتذر للاطاله وشكرا لك مقدما استاذي
-
السلام عليكم ورحمة الله وبركاته
اساتذتي الكرام يسعدني ويشرفني الانضمام الى المنتدى وباذن الله نفيد ونستفيد
حقيقة بعد محاولات عدّه ومتابعة هذا المنتدى ودروس للاستاذ عبدالله المجرب
لم استطع ايجاد حل لما اقوم به !
لدي ملف بدأت بتصميمه لمتابعة رصيد الاجازات للزملاء الموظفين في القسم
ولكني توقفت عند نقطه وهي موضحه في الملف المرفق
الذي اريده توجيهي لكي اعمل المطلوب وليس حله في الملف بارك الله فيكم لكي استفيد
كما قال الاستاذ عبدالله المجرب في احد دروسه اعطني سنارة ولا تعطني سمكة
شكرا لكم :)
احتاج لطريقة جمع خلايا محددة بنطاق معين بين اوراق العمل
في منتدى الاكسيل Excel
قام بنشر
lممتاز جدا استاذي ياسر الله يخليك ويجزاك خير