اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طارق محمود

أوفيسنا
  • Posts

    4,533
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    42

كل منشورات العضو طارق محمود

  1. العفو أخي محمود كلامك الطيب ينم عن اصل كريم بارك الله فيك وجزاك خيرا ولك طبعا ثواب السبق في هذا الموضوع
  2. السلام عليكم أخي العزيز بعد إذن اخي محمود جرب المرفق Book1-2.rar
  3. لايوجد مرفق وسيتم تغيير العنوان لمخالفة قواعد المنتدي
  4. السلام عليكم في هذه الحالة يمكنك تغيير الطلب ليتناسب مع امكانيات الجداول المحورية مثلا أنظر المرفق Book2-2.rar
  5. السلام عليكم أخي العزيز مرفق المطلوب باستخدام دالة بسيطة وهي: COUNTIFS وهي تقوم بعد بيانات حسب الخصائص التي تدخلها لها مثلا في ورقة "القيد الديانة الجنسية" الدالة =COUNTIFS('الصف الأول 2012'!$I:$I,B$14,'الصف الأول 2012'!$J:$J,B$15) تقوم بعد البيانات في ورقة "الصف الأول 2012" عمود (I) والتي تساوي الخلية B14 (أي ذكر) وفي نفس الوقت يكون البيان المقابل لنفس هذه البيانات في ورقة "الصف الأول 2012" في عمود (J) يتساوي مع الخلية B15 (أي مستجد) الصف الأول 2012_2.rar
  6. السلام عليكم أخي العزيز / أحمد فؤاد تفضل المرفق به الإختيار بناءا علي الورقة قائمه منسدله 4.rar
  7. السلام عليكم أخي الحبيب / محمود جزاك الله خيرا وجعلنا عند حسن ظنكم آمين
  8. السلام عليكم أخي العزيز تفضل المرفق نعم بالتأكيد ولكنه خلاف صغير ، فالكود المرفق Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$J$1" Then Exit Sub On Error Resume Next r = (WorksheetFunction.Match([J1], Range("Month_Arabic"), 0) - 1) * 195 + 24 Cells(r, "L").Select End Sub هذا الكود يعتمد أن بين جداول الشهور عدد ثابت من الصفوف (195) ولكن في الحالة الأفقية سنتعتمد علي عدد الأعمدة بين الجداول _____ ______ 3.rar
  9. أخي / khhanna أخي / أبو أنس شكرا جزيلا للمرور الطيب والدعاء ولكما مثله وأكثر
  10. السلام عليكم أخي العزيز أنظر الملف أولا به شرح ثم الفيديو المرفقين toolbar.rar
  11. السلام عليكم أخي العزيز سؤالك مقتضب جدا وعاااام أيضا يمكن هو ده السبب في عدم رد الإخوة الأعضاء حسب رسالتك الخاصة لي ، دعني أضع السؤال بالصورة التي أفضلها لتساعدني وتساعد غيري في الرد والمشاركة أنت تسأل عن كيفية عمل شريط ادوات بالشروط الآتية يظهر في بداية العمل يحتوي علي تبويبات وقوائم منسدلة تحتوي كل منها علي مجموعه من المكروهات مع كيفية تثبيت هذا الشريط في كل مرة افتح فيها هذا المصنف فقط.
  12. السلام عليكم أنا جربتها ونجحت تفضل المرفق Change Chart Range 2_noCodes_EqualAxis.rar
  13. السلام عليكم خطر في بالي حل ، بس ماعنديش وقت في كل شارت أضف عنصرين إضافيين يعني عندك 2012 ، 2011 بالإضافة إلي 2012× ،2011× مثلا ويكونان مساويان للعنصرين الأساسين أنت تضع 2012 علي الأكس الرئيسي ، فتضع 2012× علي الأكس الفرعي والعكس 2011 علي الأكس الفرعي ، فتضع 2011× علي الأكس الرئيسي ثم تجعل لون العنصرين الإضافيين مخفي (بلا لون) وتجعل حدود الأكسات أوتوماتيكية بدلا من ضبطها يدوي كما هو الحال الآن وبهذا يكون كل أكس به العنصرين ،واحد ظاهر والآخر مخفي، لكن مجال الأكس الأوتوماتيكي سيتأثر بقيم العنصرين جميعا
  14. السلام عليكم أخي FAST تفضل المرفق قائمه منسدله2.rar
  15. السلام عليكم بالنسبة للطلب الأول تفضل المرفق بالنسبة للطلب الثاني ، للأسف ليس عندي وقت الآن COSST - Tareq.rar
  16. السلام عليكم حسب مافهمت فإنك تستطيع تعديل الكود ليناسب حاجتك ولكن حيث أنك لاتريد الأكواد فهذا الحل باستخدام المدي الديناميكي (لاحظت أنك تستخدمه جيدا بالملف) أضفت لك 4 مجالات ديناميكية تتغير بتغير الخلية K2 في الورقة "F.S." المجالات هي chrt_2011 , chrt_2012 , GA_2011 , GA_2012 ومعادلاتها بالترتيب هي = OFFSET(Breakdown!$B$6,0,0,1,MONTH(F.S.!$K$2)) = OFFSET(Breakdown!$B$4,0,0,1,MONTH(F.S.!$K$2)) = OFFSET(Breakdown!$B$10,0,0,1,MONTH(F.S.!$K$2)) = OFFSET(Breakdown!$B$8,0,0,1,MONTH(F.S.!$K$2)) ثم أعدت تضبيط الشارتات علي هذا الأساس ولاداعي للأكواد تفضل المرفق بلا أكواد Change Chart Range 2_noCodes.rar
  17. السلام عليكم أخي العزيز ضع الكود التالي في حدث الورقة الأولي "Breakdown" Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$O$4" And Target.Address <> "$O$6" Then Exit Sub c = Chr(65 + Month([O4])) cc = Chr(65 + Month([O6])) With Charts("Revenues") .SeriesCollection(1).Values = "=Breakdown!$B$4:$" & c & "$4" .SeriesCollection(2).Values = "=Breakdown!$B$6:$" & cc & "$6" End With With Charts("G&A") .SeriesCollection(1).Values = "=Breakdown!$B$8:$" & c & "$8" .SeriesCollection(2).Values = "=Breakdown!$B$10:$" & cc & "$10" End With End Sub
  18. السلام عليكم بعد إذن أستاذنا رجب أخي العزيز تفضل الملف بعد التعديل إستخراج تواريخ الموظف حسب الإسم المختار طلب تعديل2.rar
  19. السلام عليكم أخي يوسف لاأدري السبب ولكن يمكنك تحميل الملف بصيغة (2007-2010) xlsm تفضل المرفق توزيع على الفصول_TAREQ_xlsm.rar
  20. السلام عليكم أخي العزيز وضعت بعض البيانات الإفتراضية في الورقة الأولي (باللون الأصفر) لتجربة الكود تفضل المرفق توزيع على الفصول_TAREQ.rar
  21. السلام عليكم كل عام وأنت بخير تفضل المرفق كشف حساب_TAREQ.rar
  22. أخي الحبيب جزاك الله خيرا لك ثواب السبق إن شاء الله عيدكم مبارك وكل عام وانتم بخير اسال الله أن يتقبّل صيامنا وقيامنا وأن يعيد علينا الشهر الكريم
  23. السلام عليكم أخي / أبا أنس إذا حضر الماء ، بطل التيمم أخي الحبيب وأستاذي /عبدالله جزاك الله خيرا عيد مبارك وكل عام وانتم بخير اسال الله أن يتقبّل صيامنا وقيامنا وأن يعيد الشهر الكريم علينا اجمعين
  24. السلام عليكم أخي العزيز كل عام وانتم بكل خير لو تقصد عمل pivot table عموما ، تستطيع البحث بالمنتدي وأنت من الأعضاء القدامي بالمنتدي ، أكيد تستطيع إيجاد أكثر من موضوع لشرحها أما في هذه المسألة تحديدا فكان لابد أولا من تجهيز البيانات لتكون بالشكل الذي يسهل معه التعامل عليها كجدول محوري علي سبيل المثال إضافة عمود جديد ليحتوي بيان إسم الفرع إلغاء صفوف العناوين حيث تم الإستغناء عنها مع إبقاء الصفوف التجميعية للإحتياج لها في معادلات العمود الرابع % OF TOTAL TRANS وفي الأخير يتم تظليل المساحة بعد تجهيزها وتقوم بعمل جدول محوري pivot table لها كالمعتاد
×
×
  • اضف...

Important Information