شكيب عمار

شكرا من أعماق قلبي شغالة بارك الله فيكم ودمتم لهذا المنتدى الطيب

لم تصلح الدالة ، رجاء هل يوجد حل آخر، بورك فيكم =SUBTOTAL(9,B3:B7)

شكرا على الرد، هل تعمل على أوفيس 2007 لأنها لم تظهر معي

كيفية جمع خلايا الأعمدة الظاهرة فقط ؟ بارك الله فيكم

شكرا استاذ

جزاك الله كل خير ، هذا الذي أبحث عنه، لو تشرحه بالتفصيل أخي الفاضل، (كيف اتحكم في عدد الأسطر التي أريد في صفحة الطباعة ... الخ) رائع جدا

السلام عليكم رواد هذا المنتدى الطيب مشكلة كبيرة .... هل يوجد أي طريقة، بخصوص جدول طويل في الأكسل، وعند طباعته وخلال تقسيمه على حجم الصفحة a4 يقوم الأكسل بجمع كل عمود في أسفل الصفحة 1، وفي الصفحة الموالية 2 يرحل هذه المجاميع السفلية من صفحة 1 لأعلى الصفحة 2، ثم يجمع مرة أخرى المجاميع السفلية كل عمود بنفس الطريقة في الصفحة 2 ثم الترحيل المجاميع لأعلى الصفحة 3 الموالية ، طبعا كل عمود مجاميعه لوحدها، وهكذا .... فهل من حل رجاء

هل يوجد حل لمشكل الإرتياب النسبي بين الأكسل والآلة الحاسبة الفعلية (0.01) جزاكم الله خيراً

بارك الله فيكم جميعا عندي صفحة فيها قاعدة بيانات، صفحة 1، أريد عند الطباعة يقوم بحساب المجموع الفرعي لكل صفحة ثم ترحيل مجموعها إلى رأس الصفحة الموالية لها إلى غاية الوصول إلى المجموع عام ... النموذج في الصفحة 2، يوجد برامج محاسبة عن طريق windev و delphi تقوم بهذه الطريقة الحسابية الرائعة لكن لا أدري الطريقة الصحيحة في الأكسل.شكرا لكم جميعاً. ترحيل المجاميع.xlsx

وجدت الحل وبارك الله فيكم، بعد عدة تجارب، شكرا تواريخ.xlsx

مشكل لم أجد له حلا مع دالة Datedif ويتمثل في ارتياب يوم، مثلاً الفترة من 01/07/2019 إلى غاية 30/06/2020 تعتبر سنة كاملة إلا أن الدالة تقول 0 سنة 11 شهر و29 يوم فإذا قمنا بإضافة يوم في الدالة، سيقع خطأ في حسابات أخرى، مع ملاحظة أنها تعمل جيدا في حالات أخرى، والملاحظة الأخرى والله أعلم حسب التجربة، المشكل يتولد عند الأشهر ذات 30 يوماً ننتظر رأي الأساتذة والخبراء في هذا المنتدى الطيب أخي الكريم شكر على الإجابة، لكن سؤالي واضح وهو مثلا من الفترة تبدا من 1/2/2019 إلى غاية 28/2/2020 أي واحد سيقول لك هذا شهرلكن الإكسل يقول 27 يوم هنا الخلل جزاكم الله خيرا تواريخ.xlsx تواريخ.xlsx

الطريقة هذه أعرفها ، لكنني أريد غيرها بارك الله فيكم

مشكور على الرد، جاري التجربة واخبارك

كيفية تحديث الشيت دون فتحها أو التنقل إليها، يعني يبقى في شيت معين وينفذ أمر تحديث شيت آخر، دون فتحها أو الذهاب إليها

كيفية العمل مع نسخ الويندوز التي لا تدعم اللغة العربية، فيتوقف الماكرو بسبب أسطر به بالعربية جزاكم الباري خيرا

هل يوجد طريقة ما لإيقاف تنفيذ الماكرو بعد تنفيذه، خاصة أثناء الطباعة الطويلة؟

من خلال ردك أعلاه، نبهتني لحل المشكل، والأمر تمام التمام، شكرا جزيلا وانت وأسرة الموقع

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

لم يقبل الأكسل هذا السطر Sheets("كشف التنقيط").Range("N10").FormulaR1C1 = "=" & Sheets("كشف التنقيط").Range("aa19").text فما هو الحل بارك الله فيكم

شكرا وبارك الله فيكم ومنكم نتعلم

يوجد مثال أريد العمل على صفحة معينة دون فتحها أو رؤيتها بارك الله فيكم مثال.xlsm مثال.xlsm

أريد أنقل بيانات من صفحة وتعتبر قاعدة البيانات (بعد فلترة معينة، يعني حسب حاجتي)، إلى صفحة أخرى وهي قوائم اسمية، وبعد النقل من القاعدة تحذف خاصية الفلترة المطلوب في كل هذا، وهو موجود سلفا، لكن أريد طريقة يقوم بها الإكسل دون إظهار التنقل بين الصفحات أو فتحها، يعني دون الحاجة لإظهار الصفحة التي يعمل عليها سواء قاعدة البيانات أو غيرها المهم يقوم بما طلب منه وهو النقل بعد فلترة معينة وجزاكم الله خيري الدنيا والآخرة عندنا: Sheets("قاعدة") Sheets("قوائم") Sub LISTS() ' جميع قوائم المعنيين Range("C2:C5000").Select Selection.ClearContents ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets("قاعدة").Select 'ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=67, Criteria1:= _ ' "تكفي" ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=123, Criteria1:= _ "تكفي" ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=136, Criteria1:= _ "لا" ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=137, Criteria1:= _ "لا" ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=138, Criteria1:= _ "لا" Range("Table2[1]").Select Selection.Copy ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("قوائم").Select Range("C2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Calculate ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets("قاعدة").Select ActiveSheet.ShowAllData ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("قوائم").Select Range("C2").Select نقل من صفحة.rar

عندي مشكل في الفارق بين التاريخين، وقد أرفقت الملف، ويوجود ثلاثة حلول أقربها هو الحل C لكن بقي تاريخين في الأسفل بالأحمر، الفارق بينهما لا يتفق، وبشكل عام، فالدالة datedif لم تصلح معي في بعض التواريخ، مثل: التاريخ من 2001-01-31 إلى 01-02-2001 تصبح بالناقص، وهكذا، ويوجد مجموع تواريخ للأمثلة على يمين فنرجو المساعدة، بارك الله فيكم Book2.xlsx

كيف لو نضيف عمودا آخر أخي خالد في المثال التالي، أنا أريد أفهم الصيغة جيدا، يا ريت شرح لما أضفته --فقط- وتكون صدقة جارية لك وللإخوة بارك الله فيك مشكل تعديل ونقل المعلومات-رقم5.rar

تم بنجاح شكرا لك، لو تتحفه بشرح يكون الموضوع قد أثري من قبلك فجزاك الله خيرا.