اذهب الي المحتوي
أوفيسنا

حسام مصطفي

03 عضو مميز
  • Posts

    169
  • تاريخ الانضمام

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

كل منشورات العضو حسام مصطفي

  1. استاذي الجليل / طارق محمود بالفعل رووعة الرووعة ويعمل بشكل ممتاز علي الملف المرفق وسأقوم بتجربته علي ملفي واخبرك بالنتيجة ولكن لي طلب بسيط بالنسبة لكم ارجو شرح المعادلة المستخدمة هذه حيث انها توفر الكثير والكثير بالفعل =IF(OR($B$1="يوليو";$B$1="الاجمالي السنوي");0;SUM(C6:INDIRECT(ADDRESS(6;MATCH($B$1;$A$5:$P$5;0)-1)))) وهذه المعادلة ايضا =SUM(C6:INDIRECT(ADDRESS(6;MATCH($B$1;$A$5:$P$5;0)))) واعتذر لكثرة طلباتي لكني اريد التعلم بحق وارجو منك استاذي ان تشاهد موضوعي الآخر والاجابة علي استفساراتي بعنوان (( هل للكود حد اقصي في الاسطر والاوامر .. وما هذه الرساله ؟؟ )) http://www.officena.net/ib/index.php?showtopic=47661 جزاك الله خيرا
  2. بسم الله ماشاء الله هذا الموضوع كنت ابحث عنه في كل ارجاء الدنيا علي النت وها هو بين ايدينا ... وكمان بالعربي ... باروع طريقة لتوصيل المعلومة طريقة الفارس حقا فالفارس نبيل في خلقه ونسبه واصله وعلمه شكرا لك استاذي الجليل / رجب جاويش في انتظار باقي الدروس
  3. الاساتذة الافاضل كنت قد وضعت موضوع لتعديل كود طويل ويجيب علي الموضوع الاستاذ القدير / طارق محمود ولم يكتمل الموضوع بعد واعلم انه وباقي الاساتذة قادرين علي اكماله لي علي حسب وقتهم اعانهم الله http://www.officena.net/ib/index.php?showtopic=47648 ولكن هذا الموضوع مختلف ولكنه يرتبط بالكود في الموضوع علي الرابط المذكور حيث انني قمت بعمل الكود واكماله ليعمل علي عدد 20 صفحة ولكن عند حد معين من الاوامر او الاسطر ظهرت لي رسالة تفيد بان الماكرو كبير ... ( هذا هو تفسيري لها ) واليكم الرسالة فهي كما يلي والسؤال الآن هو : 1- هل للكود حد اقصي في عدد الاسطر والاوامر ؟؟ ام ان ذلك يتعلق باصدار الاوفيس ؟؟ ام ما هو معني هذه الرسالة ؟؟ *** علما بانني قد قمت بتقسيم الكود الي جزئين ووضعت احد الاجزاء في ماكرو ثم قمت بعمل استدعاء للجزء الآخر في نهاية الكود الاساسي باستخدام عبارة CALL Macro1 وقد عمل الكود بالشكل المطلوب تماما دون اي مشكلات ... مما يوضح ان ليس بالكود اي خطأ يذكر الا طول الكود 2- هل طول الكود يؤثر علي طريقة عمله فيما بعد ام انه مادام يعمل بكفاءة وكما هو مطلوب منه ؟ فلا خوف منه اوقلق علي الملف ... ارجو الافادة وارجو المعذرة حيث ااني طالب علم واريد ان انهل من بحر علمكم ... اعتذر عن الاطاله
  4. الاستاذ القدير جدا / طارق محمو اولا اشكر لسيادتكم سرعة استجابتكم لطلبي انا تلميذكم الصغير ولكن الملف المرفق ليس به الكود الجديد ولم يحذف منه الاعمدة المساعدة وايضا لم يتم تعديل المعادلة اعتقد انه قد حدث خطأ في ارفاق الملف ولكني عند تطبيق الكود علي ملفي المرفق ظهر لدي خطأ اليط صورته استاذي اعتذر عن كثرة الطلبات جزاك الله خيرا
  5. الاساتذة الافاضل قمت بعمل كود يعمل علي عدد 20 صفحة والصفحات بنفس الشكل والترتيب للاعمدة ولكن تختلف فيها عدد الصفوف وقمت انا بعمل الكود لاخفاء الاعمدة ولكن كما سترون في الكود سيكون الكود طويلا جدا فانا اريد كود مختصر ليجعل التنفيذ اسهل ... والكود بالفعل يعمل بالطريقة التي اريدها تماما ... ولكن ما يتعبني فيه طول الكود حيث قمت بعمله لعدد 2 شيت وكان طويل جدا فما بالكم بعدد 20 شيت =============== شرح آليه الكود عند فتح الملف يظهر فورم اختار منه الشهر من شهور السنة فيقوم الكود باخفاء اعمدة الشهور الاخري ويبقي علي الشهر المختار وطبعا مع عمود الكود وعمود البيان والسابق والاجمالي ويتم ذلك في كل الصفحات والتي عددها 20 شيت =============== ارجو منكم وضع كود اسهل واقصر لتنفيذ المطلوب ام ان الكو يعمل بالشكل الطبيعي ولا يمكن تغييره اليكم الكود ثم الملف المرفق الرقم السري لحماية الاوراق : 1 Private Sub CommandButton1_Click() On Error Resume Next For i = 3 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i Sheets("Sheet1").Range("B1").Value = ComboBox1.Value Application.ScreenUpdating = False '========= 'اكواد لاظهار كافة الاعمدة اولا قبل اخفاء المطلوب 'ويجب وضعها باسم كل صفحة كما يلي '========= Sheets("ta3lem").Select Columns("B:U").Select Selection.EntireColumn.Hidden = False Sheets("Amnn").Select Columns("B:U").Select Selection.EntireColumn.Hidden = False '************************ 'اكواد لاخفاء الاعمدة حسب الشهر المطلوب 'ويتم وضعها لكل شهر في كل حساب او ورقة '========= If Sheets("Sheet1").Range("B1").Value = "يوليو" Then Sheets("ta3lem").Select Columns("D:N").Select Selection.EntireColumn.Hidden = True Columns("O:O").Select Selection.EntireColumn.Hidden = True Columns("P:P").Select Selection.EntireColumn.Hidden = True Columns("R:R").Select Selection.EntireColumn.Hidden = True Columns("S:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "اغسطس" Then Sheets("ta3lem").Select Columns("E:N").Select Selection.EntireColumn.Hidden = True Columns("C:C").Select Selection.EntireColumn.Hidden = True Columns("O:O").Select Selection.EntireColumn.Hidden = True Columns("P:P").Select Selection.EntireColumn.Hidden = True Columns("R:R").Select Selection.EntireColumn.Hidden = True Columns("S:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "سبتمبر" Then Sheets("ta3lem").Select Columns("C:D").Select Selection.EntireColumn.Hidden = True Columns("F:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "اكتوبر" Then Sheets("ta3lem").Select Columns("C:E").Select Selection.EntireColumn.Hidden = True Columns("G:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "نوفمبر" Then Sheets("ta3lem").Select Columns("C:F").Select Selection.EntireColumn.Hidden = True Columns("H:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "ديسمبر" Then Sheets("ta3lem").Select Columns("C:G").Select Selection.EntireColumn.Hidden = True Columns("I:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "يناير" Then Sheets("ta3lem").Select Columns("C:H").Select Selection.EntireColumn.Hidden = True Columns("J:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "فبراير" Then Sheets("ta3lem").Select Columns("C:I").Select Selection.EntireColumn.Hidden = True Columns("K:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "مارس" Then Sheets("ta3lem").Select Columns("C:J").Select Selection.EntireColumn.Hidden = True Columns("L:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "ابريل" Then Sheets("ta3lem").Select Columns("C:K").Select Selection.EntireColumn.Hidden = True Columns("M:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "مايو" Then Sheets("ta3lem").Select Columns("C:L").Select Selection.EntireColumn.Hidden = True Columns("N:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "يونيو" Then Sheets("ta3lem").Select Columns("C:M").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If If Sheets("Sheet1").Range("B1").Value = "الاجمالي السنوي" Then Sheets("ta3lem").Select Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '*********************************************** '*********************************************** If Sheets("Sheet1").Range("B1").Value = "يوليو" Then Sheets("Amnn").Select Columns("D:N").Select Selection.EntireColumn.Hidden = True Columns("O:O").Select Selection.EntireColumn.Hidden = True Columns("P:P").Select Selection.EntireColumn.Hidden = True Columns("R:R").Select Selection.EntireColumn.Hidden = True Columns("S:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "اغسطس" Then Sheets("Amnn").Select Columns("E:N").Select Selection.EntireColumn.Hidden = True Columns("C:C").Select Selection.EntireColumn.Hidden = True Columns("O:O").Select Selection.EntireColumn.Hidden = True Columns("P:P").Select Selection.EntireColumn.Hidden = True Columns("R:R").Select Selection.EntireColumn.Hidden = True Columns("S:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "سبتمبر" Then Sheets("Amnn").Select Columns("C:D").Select Selection.EntireColumn.Hidden = True Columns("F:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "اكتوبر" Then Sheets("Amnn").Select Columns("C:E").Select Selection.EntireColumn.Hidden = True Columns("G:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "نوفمبر" Then Sheets("Amnn").Select Columns("C:F").Select Selection.EntireColumn.Hidden = True Columns("H:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "ديسمبر" Then Sheets("Amnn").Select Columns("C:G").Select Selection.EntireColumn.Hidden = True Columns("I:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "يناير" Then Sheets("Amnn").Select Columns("C:H").Select Selection.EntireColumn.Hidden = True Columns("J:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "فبراير" Then Sheets("Amnn").Select Columns("C:I").Select Selection.EntireColumn.Hidden = True Columns("K:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "مارس" Then Sheets("Amnn").Select Columns("C:J").Select Selection.EntireColumn.Hidden = True Columns("L:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "ابريل" Then Sheets("Amnn").Select Columns("C:K").Select Selection.EntireColumn.Hidden = True Columns("M:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "مايو" Then Sheets("Amnn").Select Columns("C:L").Select Selection.EntireColumn.Hidden = True Columns("N:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "يونيو" Then Sheets("Amnn").Select Columns("C:M").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If If Sheets("Sheet1").Range("B1").Value = "الاجمالي السنوي" Then Sheets("Amnn").Select Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '**************************************** '**************************************** On Error Resume Next For i = 4 To Sheets.Count Sheets(i).Select [c6:n3285].Locked = False ActiveSheet.Protect "1", True, True Next i '============= Application.ScreenUpdating = True Sheets("Sheet1").Select End End Sub اعتذر عن الاطاله ولكني احببت توضيح الصورة لكم كما اراها واريدها انا تلميذكم الصغير جدا Copy of sssssss.rar
  6. الف مليون شكر للاساتذة الكبار فهو شرف كبير لي ان يجتمع استاذين كبيرين في موضوع لي الاستاذ القدير / حمادة عمر الاستاذ القدير / رجب جاويش والموجود معنا دائما بروائعة القدير / خبور خير جزاكم الله خيرا
  7. كيف يمكن عمل زر حفظ يؤدي نفس الوظيفة في صفحة الاكسيل وفي الفورم وما هي الاوامر المطلوبة لذلك للرفع
  8. كيف يمكنني عمل زر حفظ ليقوم بنفس وظيفة الزر الموجود بالقوائم في الاكسيل وهل يمكن عمل هذا الزر في صفحة الاكسيل وان كان ذلك ممكنا فاطمع في معرفة ان كان ذلك ممكنا ايضا من خلال زر في فورم ام ان هذه الاوامر خاصة بالاكسيل نفسه ولايتم التخل فيها جزاكم الله خيرا
  9. ملاحظة رهيبة استاذ / احمد عبد الناصر والاستاذ / حمداة عمر يستاهل كل الجوايز الخبير ... المدير ... الاستاذ ... افضل اجابة ... اسرع اجابه جزاكم الله خيرا
  10. جزاك الله خيرا استاذ حمادة عمر انت بجد شخص راائع
  11. السلام عليكم الاستاذ القدير / حمادة عمر جمعة مباركة على الجميع عمل ولا اروع جزاك الله خيرا وبارك فيك تقبل حياتي وشكري
  12. اتفق مع الاستاذ / ضاحي في رأيه ولكن اري ان يتم ذلك بعد الوصول الي اول درجه في الترقيات اي بعد عدد 100 مشاركه ليعطي ذلك ايضا حافزا اكثر ( عضو * ) لزيادة المشاركه ... حيث هناك الكثيرين ومنهم انا عندما دخلت للمنتدي كنت اظن انني اعرف معظم برنامج الاكسيل ولكن بدخولي للمنتدي ومعرفتي بموضوع الاكواد وطريقتها اصبحت مبتدئ جدا في الاكسيل ولكني بتواجدي واستفساراتي واجاباتكم اصبح لدي معرفة قليله ومعلومات جميله يمكن ان افيد بها وبعد ذلك يمكنني ان احصل علي بعض النقاط التي يقصدها اخي / ضاحي ... ليتم ترقيتي مثلا وكل هذا برغم عدد مشاركاتي القليله ولكني دائم التواجد والتعلم من المنتدي واعمال اساتذته جزاكم الله خيرا
  13. الف مليون مليار مبرووووك علي الترقية المستحقة باقتداار وترقية مستحقة بالفعل وتأخرت كثيرا وشكرا للادارة علي حسن الاختيار الراائع
  14. الاستاذ المبدع الخلوق / حمادة عمر يا لروووعة مواضيعك واعمالك تقدم لنا دائما كل ما نحتاجه عن جد دون ان نطلبه فهذا المواضيع سيكون من افضل المواضيع في المنتدي علي الاطلاق اعانك الله علي اكماله شرح راائع وطريقتك اروع وسأكون من اول المتابعين للموضوع مشاركة مشاركة ودرس درس والشكر موصول للاستاذ القدير / عبد الله باقشير جزاكم الله خيرا
  15. الف مليون شكر لك استاذي المبدع / حمادة عمر والاجمل هو انك تقوم بتعليمنا خطوة خطوة ولا تعطينا السمكة وتنتهي لك مني الف مليون شكر وتحيه خاصة
  16. جزيل الشكر والتقدير للاستاذ المبدع دائما / حمادة عمر ولكن لي استفسار استاذنا القدير من اين اضع هذه الحروف ...
  17. لدي ملف قمت بنسخ صفحات فيه من ملف آخر وكلما قمت بفتحه يطلب مني تحرير الارتباطات وانا لا اريد اي ارتباطات في الملف فقد كنت انسخ بعض الصفحات التي احتاجها في الملف الجديد بدلا من كتابتها مرة اخري هل من طريقة لانهاء هذه المشكلة ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ومعذرة لم يمكنني رفع الملف
  18. الف مليون مبرووك للقدير / احمد عبد الناصر الاستاذ / عمرو ترقية مستحقة واضم صوتي لصوت الاخ / هاني بالنظر في ترقية الاستاذ القدير المبدع / حمادة عمر ... شعلة المنتدي الاستاذ ملك المعادلات / جمال عبد السميع ... محمود لي
×
×
  • اضف...

Important Information