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

نجوم المشاركات

  1. حمادة عمر

    حمادة عمر

    المشرفين السابقين


    • نقاط

      50

    • Posts

      6205


  2. جمال عبد السميع

    جمال عبد السميع

    المشرفين السابقين


    • نقاط

      22

    • Posts

      3724


  3. قنديل الصياد

    قنديل الصياد

    06 عضو ماسي


    • نقاط

      2

    • Posts

      2661


  4. محمد طاهر عرفه

    محمد طاهر عرفه

    إدارة الموقع


    • نقاط

      2

    • Posts

      8730


Popular Content

Showing content with the highest reputation on 12/29/13 in مشاركات

  1. من هنا Microsoft Virtual Academy دورات مجانية What is MVA? Successful technologists never stop learning and great technology never stops evolving. Microsoft Virtual Academy (MVA) offers online Microsoft training delivered by experts to help technologists continually learn, with hundreds of courses, in 11 different languages. Our mission is to help developers, knowledgeable IT professionals and advanced students learn the latest technology, build their skills, and advance their careers. MVA is free of charge, and the entire service is hosted on Windows Azure. Microsoft Virtual Academy تم ترقية هذه المشاركة الى مقالة
    2 points
  2. أليك أخى ماطلبت فصل أسم على عدد من الأعمدة.rar
    2 points
  3. السلام عليكم الاخ الكريم / 838383mohamed بارك الله فيك هل جربت الكود علي المرفق المرفق مني ام قمت بنسخ الكود وتنفيذه علي ملف آخر تقبل خالص تحياتي
    2 points
  4. السلام عليكم الاستاذ القدير / احمدزمان بارك الله فيك يزيدني شرفا ان الكود قد اعجبك تقبل خالص تحياتي
    2 points
  5. السلام عليكم الاخ الكريم / 838383mohamed بارك الله فيك بعد اذن استاذي القدير / احمد زمان ... جزاه الله خيرا جرب الكود التالي لتنفيذ المطلوب ( ان شاء الله ) ** ولكن يجب ملاحظة ان يكون تنسيق التاريخ في كل اعمدة التواريخ في كل الشيتات بتنسيق واحد للجميع Sub sama() Dim LastR, LastR1, LastR2, LastR3 As Long Dim StDate, xx As Date Application.ScreenUpdating = False '**************************************************** LastR = Sheet1.Cells(Rows.Count, 2).End(xlUp).Select xx = ActiveCell.Value [c1].Value = xx SText = Sheet1.Range("c1") '==== شيت توصيلات LastR1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row Sheet2.Range("b3:q" & LastR1).AutoFilter Field:=2, Criteria1:=SText '==== شيت خطوط LastR2 = Sheet4.Cells(Rows.Count, 2).End(xlUp).Row Sheet4.Range("b3:q" & LastR2).AutoFilter Field:=2, Criteria1:=SText '==== شيت خطوط مياه LastR3 = Sheet10.Cells(Rows.Count, 2).End(xlUp).Row Sheet10.Range("b3:q" & LastR3).AutoFilter Field:=2, Criteria1:=SText '**************************************************** Application.ScreenUpdating = True End Sub تقبلوا خالص تحياتي اوفسنا.rar
    2 points
  6. إستخدم دالة ( int ) أخى =INT(5.4) ستعطيك ماتريد لأنها تعطى الرقم الصحيح
    2 points
  7. السلام عليكم الاستاذ القدير العلامة الخبير / عبدالله باقشير لك مني اغلي وافضل تحية وشكر وعرفان بالجميل فأنت استاذ الجميع بلا استثناء انت كبير جدا عندي ... وفقك الله لما تحبه وترضاه ... والله اني احبك في الله كنت انتظر ردك بفارغ الصبر لعلمي بأنك اطلعت علي الموضوع امس !!! وظننت انه لم يعجبك ولكن الآن سعادتي كبيرة بشهاتكم لي ويارب ان اكون عند حسن ظن حضرتك .... فلك افضال كثيرة علي وعلي سائر اعضاء المنتدي جعله الله في ميزان حسناتك استاذنا جزاك الله خيرا
    2 points
  8. السلام عليكم الاستاذ الكبير / دغيدى ها هو عقد الخبراء يتوالي حول موضوعي البسيط بالنسبة للكبار امثالكم واعلم استاذي الكبير انها مشاركة وموضوع يعلم الله انه الغرض الاساسي منه شكركم انتم الخبراء علي ما تقدمونه لي وللمنتدي ولاعضاءه لوجه الله فكم انت كبير استاذ / دغيدي وشرف لنا ان تكون من بلدنا الحبيبة ( مصر ) فأنت فخر لاي شخص ومروركم في الموضوع شهادة مهمة لي ... واشكرك علي كل ما تعلمته منكم وما سأتعلمه باذن الله جزاك الله خيرا
    2 points
  9. السلام عليكم الاستاذ القدير الحبيب / أبو حنين الاستاذ الحبيب التميز الموجود بالعمل لم يأتي الا بك وبخبراتك فأنت أحد الخبراء الذي شكل هذا العمل علي وجه التحديد ومعظم ملفاتي عامة وانت واحد من الخبراء الذي كنت انتظر رؤيته ورأيه في هذا العمل حيث انه يهمني جداً فلقد تعلمت منك استاذي الحبيب كثيرا وانت لا تبخل علي اي شخص بعلمك زادك الله من علمه ... ووفقك الله لما تحبه وترضاه ومرور حضرتك استاذي شرف لي جزاك الله خيرا
    2 points
  10. السلام عليكم الاستاذ القدير الكبير / عباد ( أبو نصار ) اتمني من الله ان يصلك احساسي بعد مشاركتك فوالله ملكتني سعادة لا تتخيلها فشهادة استاذ عبقري مثلك ... لدي شئ كبير جدا جدا واعلم استاذي القدير ان لك عندي دين ولا اعرف كيف ارده وذلك بالتعلم كل يوم منكم شيئاً جديداً فكم انت رائع وعبقري استاذي ومرورك في موضوع لي شرف لي جزاك الله خيرا ... وجعل كل اعمالك في ميزان حسناتك يوم القيامة جعل الله كلامي بعيداً عن النفاق والرياء
    2 points
  11. السلام عليكم الاستاذ الكبير العبقري / عبدالله المجرب شهادة كبيرة جدا علي من استاذ قدير مثلك وبارك الله فيك استاذي القدير وما كان ذلك الا بكم انتم وبخبراتكم وعلمكم الذي لا تبخلون به علينا استاذي القدير جزاك الله خيرا ... وجعلكم منارة لنا دائما وملجأ في اي وقت
    2 points
  12. السلام عليكم الاستاذ الفاضل القدير / رجب جاويش اجمل ما في الفكرة ان استاذ مثلك اعجب بها شكرا لك استاذي علي تشجعيك لي جزاك الله خيرا
    2 points
  13. السلام عليكم الاستاذ / مجدى يونس الف الف شكر لمرورك وشكرا للتعديل فهذه عادتكم لافادة الآخرين دائما واعطاك الله ثواب مجهوداتك استاذي جزاك الله خيرا
    2 points
  14. السلام عليكم الاخ الحبيب / مودى محمد جزاك الله خيرا ...وهل ظهر لك السؤال بعد التعديل الذي تم م قبل الاستاذ الحبيب / مجدي يونس ام لا وعسي الله ان ينفع بها جزاك الله خيرا
    2 points
  15. الشكل النهائي ( لبرنامج قوائم الفصول) قوائم الفصول.rar
    2 points
  16. موقع رائع لتنزيل برامج مجانية لحاسبك الشخصي للدخول الي الموقع اضغط على السهم
    1 point
  17. عند تصفحي اليوم في منتدانا الرائع أوفيسنا لفت نظرى رغبة العديد من الزملاء في عمل ( قوائم الفصول ) فقررت أن أحاول المساعدة رغم روائع زملائي في هذا الصرح بهذه النوعية من البرامج إلا أننى حاولت ولي جزاء المحاولة فإن أخطأت فدون قصد وإن أصبت فالفضل لله ثم لأساتذه هذا الصرح لذلك جعلته هدية منى لزملائى وأساتذتي لعل يكون فيه الفائدة المرفق الثاني: تعديل لفصل( المنقول) عن ( المستجد ) في الأحصاءات للفرق بينهم المرفق الثالث عمل بعض التنسيقات الشرطية لتوضيح ( المسيحي ) والمسيحية) قوائم الفصول.rar قوائم الفصول.rar قوائم الفصول.rar
    1 point
  18. استمارة (1) سري لمدارس التعليم الابتدائي استمارة 1 سرى.rar
    1 point
  19. العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك اقدم لكم حركة خفيفة ولطيفة بعض الشئ باستخدام الفورم ويمكن تطويعها لألعاب اخري .. كما تشاؤون او افكار جماليه في ملفاتكم مثل استخدامها هنا لألعاب قوة الملاحظة ... كل ما عليك هو العثور علي الكرة المختلفة بين الثلاثة للانتقال للمرحلة الثانية ... ثم اختيار الكرة المختلفة للدخول لملف الاكسيل ارجو ان تنال الفكرة اعجابكم مع تحياتي ( ابوسمـــا ) جزاكم الله خيرا حركة لطيفة وخفيفة- لعبة قوة الملاحظة.rar
    1 point
  20. ( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فعذرا علي الاطالة عليكم بداية او ان اشكر كل خبراء واساتذة واعضاء ورواد هذا الصرح الكبير لما قدمه لي من علم ومساعدة ولجميع اعضاء هذا الصرح الكبير شكر خاص للاستاذ الحبيب / ابو حنين --- له فضل كبير في هذا العمل المتواضع شكر خاص للاستاذ القدير / طارق محمود --- له فضل ايضا هنا والشكر موصول لكل الخبراء امثال ( العلامة / عبد الله باقشير - الاستاذ / عباد - الاستاذ الغالي / احمد فضيله الاستاذ / عبد الله المجرب - الاستاذ / رجب جاويش - الاستاذ / محمود لي - الاستاذ / يحيي حسين - الاستاذ / عماد الحسامي - الاستاذ / دغيدي والاستاذ الكبير / محمد طاهر ...... وكل الاعضاء واساتذة هذا الصرح الحاضر والغائب لكم مني اجمل تحيه وتقدير .... وارفع القبعة لكم ارجو من كل خبراء واساتذة هذا الصرح ابداء الرأي في هذا العمل ... واخباري بجوانب القصور فيه فهي لعبة تصلح لالعاب المسابقات ( عسي الله ان ينفع بها احداً ) وجزاكم الله خيرا لعبة مسابقات اوفيسنا.rar
    1 point
  21. أستمرارا لعبقرية المعادلة هذه المعادلة تقوم بفصل ماتريد من الموضع الذى تريدة عن طريق رقم الكلمة فى العبارة ( الرقم الموجود فى نهاية المعادلة ) جرب وأبتعد عن الأكواد قليلا حدد ماتريد فصلة عن طريق رقم.rar
    1 point
  22. جرب هذا الكود Sub PDF_ALL() MyName = "D:\MR_" & Format(Date, "dd-mm-yyyy") & ".pdf" Range("C45").Select Sheets(Array("A", "B", "C", "D")).Select Sheets("A").Activate MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "تم الحفظ" Else MsgBox "لم يتم الحفظ" End If End Sub
    1 point
  23. الأبنة العزيزة / كفاح السلام عليكم ورحمة الله وبركاته أولاً أهلاً بك في منتدانا الرائع وإن شاء الله تستفادي وتفيدي غيرك . أتمنى لك كل توفيق .إليك الملف به المطلوب. Book10.rar
    1 point
  24. السلام عليكم الاخ / احمد النجار الف مليون ملياااااااار مبروك عليك الترقيه ترقيه مستحقه باذن الله وانتظر ترقيه اخرى فى القريب باذن الله فانت تستحقها بالفعل تقبل خالص تحياتي وكل الشكر للقدير العلامة الخبير - صاحب الترشيح - / عبد الله باقشير
    1 point
  25. هل هذا ماتقصدة أخى الكريم معادلةرصد.rar
    1 point
  26. السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك والله انت الاجمل والاحلي بأخلاقك العالية وبحبك الدائم لمساعدة الغير وافادة الجميع لك مني ارق وافضل تحيه جزاك الله خيرا
    1 point
  27. السلام عليكم الاخ العزيز / عبد الرحمن شفيق بارك الله فيك كلماتك كبيرة جدا وغاليه .. وانا اخي العزيز طالب علم فقط في هذا الصرح العملاق جزاك الله خيرا
    1 point
  28. السلام عليكم الاستاذ القدير / عباس السماوي بارك الله فيك ردودك دائما لها طابع خاص ... ومذاق جبار .. يسعد الجميع بوجودك وردودك والاكيد انك لسه شباب .... ربنا يعطيك الصحة والعافية دائما تقبل خالص تحياتي جزاك الله خيرا
    1 point
  29. السلام عليكم الاستاذ القدير /ياسر الحافظ بارك الله فيك ولكن استاذنا الشكر في البداية والنهاية للقدير / جعفر ترباق .... جزاه الله خيرا حيث ليس لي في العمل الا انني احببت ان يستفيد منه الجيميع حيث انه كود جديد من نوعه وحبي لاسرة هذا الصرح جعلتني اسارع في تقديمه اليكم مع علمي بأن الاستاذ / جعفر لا يبخل علي احد بأي معلومة لديه ملحوظة : مثلك لا يستأذن ابدا .... ولكن يأمر ونحن ننفذ .... سلامي للمهند ابا الحارث جزاك الله خيرا
    1 point
  30. السلام عليكم الاخت الفاضلة / أم عبد الله بارك الله فيكي وتقبلي تحياتي ردك عندي بهذا الكلام الذي لا اجد ما ارد به عليه هو اجمل من الموضوع نفسه وهذا ما تعلمناه في هذا الصرح العملاق من اساتذتنا ( ان لا ينسب الحق الا لأصحابه ) جزاك الله خيرا
    1 point
  31. السلام عليكم الاخ العزيز / سعد عابد بارك الله فيك دائما مرورك عطر علي المواضيع جزاك الله خيرا
    1 point
  32. الاستاذ / جعفر ترباق الشكر دائما موصول لك جعل الله هذا العمل في ميزان حسناتك جزاك الله خيرا
    1 point
  33. السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك مرورك علي موضوع لي يثلج قلبي ويسعدني ويفرحني كثيرا .... حتي ولو لم تعجب الموضوع فكم انت غالي عندي ... احبك في الله جزاك الله خيرا
    1 point
  34. السلام عليكم الاخ الكريم / khhanna بارك الله فيك ارجو ان ينال اعجابك هذا العمل البسيط مرورك مرور كريم جزاك الله خيرا
    1 point
  35. السلام عليكم الاخ الكريم / عمرو_ بارك الله فيك مرورك ورأيك اسعدني وشرفني وبالطبع الاستاذ / الحسامي ... استاذ الافكار والابتكار جزاك الله خيرا
    1 point
  36. السلام عليكم الاخ العزيز / عباس السماوي بارك الله فيك ودائما انت سباق للخير ... جعله الله في ميزان حسناتك الاستاذ الحبيب / أبو حنين بالفعل معك حق ... لم يكن احد يتوقع عمل ذلك ولكن بمراجعة ملفات الاستاذ / جفعر التي صادفتني ومواضيعه وجدت انه لا مستحيل معه ... مثلكم دائما في كل الردود علي الاخوة الاعضاء فالشكر الاكيد للكبير الاستاذ / جعفر ... جزاه الله خيرا وجعله الله في ميزان حسناته جزاكم الله خيرا
    1 point
  37. السلام عليكم الاساتذة والاخوة الكرام الاستاذ / خالد القدس الاخ الكريم / عمر أبو صهيب الاخ العزيز / احمد عبد الناصر شكرا جزيلا لمروركم واتمني من الله ان يكون قد افادكم الموضوع .... عن حق ... الموضوع كله افادة بارك الله فيكم وبالتأكيد ندعو جميعا للكبير / جعفر ترباق ... جزاه الله خيرا بأن يجعل هذا العمل في ميزان حسناته جزاكم الله خيرا
    1 point
  38. أخى ( إبراهيم ) فعلا كما قلت أنت وأخى ( أحمد ) ناتج المعادلة يعطى صفر وقد جربتها بمعادلة الصفيف التالية ( =SUM(IF($L$8:$L$3697=$D$6;IF($D$35:$D$3697=$G$35:$G$3697;$G$3701))) وفعلا أعطت صفر حاول تراجع القيم والشروط وربنا الموفق
    1 point
  39. أولا - شكرا جزيلا أخى على ثقتك الكبيرة فى وأن حضرتك خصتنى بالذكر هذا شرف أتمنى أن أكون أهلا له ثانيا - هناك ملحوظة هامة لحضرتك وأرجو ألا تفهمنى خطأ إن حضرتك تخصنى بالذكر زى ماقلت لحضرتك هذا شرف لى ولكن حضرتك عندما خصتنى بالذكر جعلت العديد مما يودون مساعدتك وربما تكون مساعتهم أفضل مما قدمتة بكثير يحجموا عن هذه المساعدة وربما يتضايق البعض ويرفض المساعدة بالفعل لذلك هذه أخى نصيحة لى ( أنا ) أولا وباقى الأعضاء ثانيا لأن أنا تضايقت من وجودها فى بعض المرافق أحجمت فعلا عن المساعدة وللمرة الثانية أخى أرجو من كل قلبى ألا تتضايق منى أو أى فرد يتضايق منى نأتى لمعادلة الحل: ( وهذا هو الأهم ) لدى فى المرفق ثلاث معادلات: أولهم : موجود فى عمود التسلسل ومعادلتة ( موجودة فى التنسيق الشرطى ) والغرض منها هو عمل تسلسل دون عمل معادلاتة المتعارف عليها بمعنى إنى إستخدمت التنسيق الشرطى لجعل الرقم يظهر مع وجود ( رقم الكود ) وأعطيتة لون تعبئتة هو لون خليتة وبذلك لايظهر إلا فى وجود الرقم ( معنى ذلك أن كل الأرقام موجودة فعلا ولكن نظرا لأن الخلية المرتبطة بها لاتحتوى على data لاتطهر ) ثانيهم : وهى الأهم والمبنى عليها الترحيل ( معادلة الصفيف ) الموحودة فى ( الرقم التأمينى ) زهذا بالطبع سيجعلنا نتسائل ماهى معادلات الصفيف هى دالات ( تتعامل مع الأعمدة والصفوف سواء مفردة أوفى شكل جدول ) ولابد من التفريق بين الصفيف الرأسى والصفيف الأفقى وبالطبع الحالة التى أمامنا هى حالة صفيف رأسى مفرد ولكى تقوم المعادلة الصفيف بالمطلوب منها جيدا لابد من وضع القوسيين ( } { ) التالييان قبل علامة التساوى وفى نهاية المعادلة. ويثور التساؤل هنا وكيف ذلك ( عن طريق وضع مؤشر الكتابة فى نهاية المعادلة بعد الإنتهاء من كتابتها ) والضغط على ( ctrl+shift+enter ) معا فى وقتا واحد وتتكون الدالة موضوع الشرح من جزئان : الشرط وهذا يمكن الإستغناء عنة والإستعاضة عنه بإى شرط أخر يجعل الحلية خاوية فى حالة عدم تحققة وبالطبع كذلك الجزء الخاص بدالة ( countif ) فهو أيضا مرتبط بشرط ( الدالة rows ) ثالثا - الجزء الأهم فى الدالة والذى يقوم بجلب الرقم التأمينى بنائا على الشرط المحدد والتى ترمز له خلية المرجع ( مثل ) التأخير والغياب ..... إلى ألخ وعمل دالة الصفيف أنها تقوم بتولييد سلسلة من الأرقام ( فإذا توافقت مع المطلوب أعطت ( true ) والعكس يعطى ( false ) وفى دوال الصفيف يقابل القيمة ( true ) الرقم ( 1) والرقم (0 ) للقيمة ( false ) وهكذا تتولد سلسلة أوصفيف من الأرقام إذا توافق مع الرقم المطلوب أعطى ( true ) وهو جلب القيمة المطلوبة أو الشرط المطلوب وهكذا أما الدالة ( الأخيرة ) فهى دالة ( index ) مع دالة ( match ) وهما من دوال جلب البيانات واهم جزء فيها هى الدالة ( mutch ) لأنها مسئولة عن جلب الصف التى تقع فية القيمة المطلوبة بالتقاطع مع العمود والتى ذكر رقمة صراحتا فى المعدلة إذن ماقيمة ( match ) قلت لأنها مسئولة عن جلب الصف والذى أحد شروطة ( قيمة الرقم التأمينى ) الذى قمنا بجلبة عن طريق معادلة الصفيف السابقة أتمنى أخى ألا أكون أثقلت عليك وعلى الأحوة ولعل شرحى كان مفهوما
    1 point
  40. بعد كود أستاذى ومعلمى ( رجب جاويش ) إليك الحل بالمعادلات ترحيل فى اماكن محدده.rar ترحيل فى اماكن محدده 2.rar
    1 point
  41. تم تعديل فى برنامج عمل الشهادات لإى مرحلة ليقوم بعمل نوعين من الشهادات 1 - الأولى تشمل درجات الشيت مكتمل وهذه تصلح للأخوة اللذين يتعاملوون مع عدد من المواد كبير نسبيا 2- الثانية وهى شهادات تقترب من شهادات المرحلة الإعدادي والإبتدائية وتشمل عدد أقل من المواد 3- تم إضافة معادلة المجموع الموجود فى برنامج ( ظهور النتيجة ) لجمع المجموع فى الشهادة وذلك بكتابة كلمة ( مجموع ) فقط على حسب ترتيبة فى مواد كل مرحلة فى ( عمود كتابة المواد ) فى صفحة التعبئة وستلاحظ عند كتابتها فى هذه الصفحة على حسب ترتيبة لديك فى المواد أن عمود المجموع فى شيت الدرجاتقد تم تغيير لونة إلى اللون الرصاصى حتى لاتكتب به شئ 4- كل مجموعة من الشهادات مزوذة بكود للطباعة جاهز لطباعة ( 3 ) شهادات فى كل مرة وفى النهاية أسألكم الدعاء عمل الشهادات لأى مرحلة.rar
    1 point
  42. السلام عليكم الاخ الفاضل / جلال محمد مرور اسعدني وشرفني شكرا لك علي كلماتك الرقيقة جزاك الله خيرا
    1 point
  43. أستاذي ( يوسف ) لقد وضعت هذه المشاركة لحضرتك في مشاركة سابقة ولكن يبدو إن حضرتك لم تقرئها رغم أنها من وجهة نظري هي المطلوبة لحضرتك فأثرت أن أنقلها في هذه المشاركة للتعقيب وإبداء الرأي فيما إذا كانت هي المطلوبة أم لا مقارنة بين عموديين وتلوين المكرر بينهما.rar
    1 point
  44. هل هذه المعادلة ماتقصدها أستاذي التأكد من تواجد الأسماء_2.rar
    1 point
  45. تفضل : وكما ذكر مشرفنا العزيز التقارير ليست كالنماذج في الخصائص 2.rar
    1 point
  46. كتاب جميل و شامل هذا رابط تحميل مباشر للكتاب هنـــــــــــــا
    1 point
  47. بالنسبة لطلب الاخ الكريم هذا البرنامج ان مجربو ونقريبا يعمل 95% من هنا
    1 point
  48. السلام عليكم شكرا اخى برقش على المتابعة :) ----- وقد ارفقت لك برنامج Pdf Factory وهو برنامج بسيط جدا .. تقوم بتثبيته .. ثم تجده فى قائمة الطابعات المعرفة أى انك تقوم بفتح أمر "طباعة" وتختار البرنامج وتقوم بالحفظ PDF pdf_print.rar السيريال 2ZZY-EU38-PHBR
    1 point
×
×
  • اضف...

Important Information