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

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

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

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

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


    • نقاط

      37

    • Posts

      3724


  2. محمد ابو البـراء

    محمد ابو البـراء

    05 عضو ذهبي


    • نقاط

      7

    • Posts

      1303


  3. أبو سجده

    أبو سجده

    06 عضو ماسي


    • نقاط

      4

    • Posts

      2255


  4. محمود_الشريف

    محمود_الشريف

    الخبراء


    • نقاط

      4

    • Posts

      1846


Popular Content

Showing content with the highest reputation on 02/07/14 in مشاركات

  1. هذا طلب من أحد الأعضاء وبصراحة كان طلب صعب وخاصا أنه يجب أن تكون معادلة واحدة لعمل الجدول بأكملة ولكن أستحرت الله فكانت هذه النتيجة والتى أرجو أن تكون بها الإفادة وخاصا ممن يجدون صعوبة فى عملها عن طريق الكود والأن إلى الحل حتى لاأطيل عليكم: دمج جدوليين بجدول واحد.rar
    5 points
  2. أستاذى ومعلمى وعميد منتدانا وأخى الأكبر وهذه حقيقة وليست لقب ( دغيدى ) مروركم بالنسبة لى له مذاق خاص وأهمية خاصة أيضا لأنه ثناء الأخ الأكبر لأخية الأصغر والذى يتخذة دائما كمثل أعلى ، وأى مثل هنا ليس مثلا فى العلم فقط ولكن فى كافة جوانب الحياة من أخلاق وذكاء ، وحالة إستثنائية من البشر المحب لكافة أخوتة وزملائة وأصدقائة ، وحالة أجتمع عليها كل أطياف المنتدى أنه الشخص الذى يحظى بإحترام وحب وتقدير وأعجاب كل أعضائة والشخص الذى لايستطيع أحد أن يرفض له طلب؟ وكيف ؟ وهو الشخص الذى يسأل عن الجميع ويثنى على الجميع ويقوم بلم شمل الجميع فهنيئا لمنتدانا بهذه الشخصية الفريدة من البشر فشكرا أستاذى على مروركم وكلماتكم بارك الله فيك
    4 points
  3. أختى الغالية وأستاذتنا القريبة جدا إن شاء الله ( أم عبد الله ) لم يخب ظنى فى حضرتك منذ الوهلة الأولى التى رأيت فيها أعمالك وأسئلتك تيقنت إننى أمام حالة إستثنائية من الطموح والعبقرية والتى ترغب أن تصل إلى ماتريد فى أسرع وقت ورغم ذلك بثقة وذكاء وتشهد على ذلك أعمالك المتميزة ، فى إلى الأمام دائما ، وإلى مزيدا من التفوق والأعمال الجميلة الى يستفاد منها الجميع وأنا أولهم بالطبع تقبلى تحيات : أخيكى
    4 points
  4. أخوتى مابالكم فى الأمانة العلمية والبحث عن الدقيق والخالى من الأخطاء طبعا هذا مستحيل فالوصول للأفضل يتطلب التجربة المستمرة للتأكد من عدم الخطأ فعذرا أخوتى وأصدقائى الأعزاء فهناك تكرار فى العمود الأول من الجدول الثانى لحالة الدمج فى الجدول الثالث والحمد لله قمت بتداركة وأسف مرة أخرى لكل الأصدقاء والأخوة والأساتذة ( حطأ بالطبع غير مقصود ) فعذرا وهذا هو المرفق الجديد والخطأ ليس خطير وليس خطأ فى أساس المعادلة ولكنه حطأ فى مرجع خلية والأن إلى المرفق: دمج جدوليين 2بجدول واحد.rar
    3 points
  5. أخى الحبيب ( محمود الشريف ) ماأروع كلماتكم وأعمالكم فى هذا الصرح ،فهنيئا لهذا المنتدى بأساتذتة الجدد بارك الله فيكم وجعلكم الله ( خير خلف لخير سلف ) تقبل تحيات : أخيك
    3 points
  6. أستاذى ( مجدى يونس ) شرف لهذا المرفق أن يجتمع عليه كل أساتذة وعباقرة المنتدى شكرا أستاذى على مروركم الكريم وكلماتكم الجميلة المشجعة لتلميذكم بارك الله فيكم
    3 points
  7. أستاذى ومعلمى وعبقرى الوطن العربى ( عبد الله بقشير ) مروركم وكلماتكم شرف لأى تلميذ يتمنى أن يثنى عليه أستاذة الذى يحبة ويقدرة ويتخذ منه مثلا أعلى يتمنى من كل قلبة أن يكون فى يوما من الأيام فى علمة وعبقريتة تقبل تحيات تلميذكم العاشق لكم
    3 points
  8. أخى الحبيب ( live8523 ) شكرا أخى الحبيب على مروركم وكلماتكم الجميلة بارك الله فيك وجعل فى العمل الإفادة لكم فهذا هو الهدف الحقيقى منه تقبل تحيات : أخيك
    2 points
  9. بسم الله الرحمن الرحيم وبه نستعين الساده الزملاء الافاضل قد يحتاج الامر لاستخراج قيم مختلفه بتواريخ مختلفه الامر الذى يكون فيه ارهاق ذهنى وبدنى فضلا عن إهدارالوقت لانهاء مايتطلبه ظروف العمل فى حالة حدوث ذلك بالطرق التقليدية وخاصة مع الاعداد الغفيرة والي حضراتكم هذا الملف المتواضع حيث يحتوى على استخراج قيم مختلفة حسب تواريخ إخلاء الطرف من تاريخ ثابت الى تواريخ مختلفه تقبلوا وافر احترامى وجزاكم الله تعالى خيرا
    2 points
  10. شكرا أخى الحبيب جزاك الله عنى خير الجزاء تقبل تحياتى
    2 points
  11. أستخدم هذه المعادلة أخى وأسحبها لأسفل =SUBSTITUTE(A2;" ";" "&B2) =REPLACE(A1;FIND(" ";A1);0;" "&B1) تقبل تحياتى : أخيك
    2 points
  12. السلام عليكم ورحمة الله وبركاته اخواني الأعزاء طرحت مسبقا لنموذج فاتورة عربي ونموذج فاتورة انجليزي لكن اليوم سوف اتناول الفاتورة بشكل وفكر جديد حتي تخدم شريحة كبيرة من المستخدمين مع حركات اخي الحبيب / شوقي ربيـع الجديد في النموذج فورم واحد ولكن يمكنك من خلاله الاختيار بين لغة الفاتورة (عربي - انجليزي ) ولغة الايصال (عربي - انجليزي) اختيار سهل للاصناف اختيار طريقة السداد بيان رصيد العميل واترككم مع النموذج أدعو الله سبحانه وتعالي ان يكون النموذج فيه الفائدة لكم ولا تنسونا بدعائكم بصلاح الحال بظهر الغيب فاتورة مبيعات اوفيسنا_2.rar
    1 point
  13. [ سلسلة حلول مشاكل أعمال الكنترول ] [ 1 - الشهادات ] بسم الله الرحمن الرحيم نظراً لكثرة الطلبات الخاصة ( بأعمال الكنترول ) وكنت حاولت قبل ذلك أن أقوم بكتابة موضوع ليشمل حلول أعمال الكنترول كلها _ ولكن وللأسف _ اتجه الموضوع لغير المراد ولذلك قررت أن اعمل سلسلة لحلول مشاكل أعمال الكنترول.. وستكون الطريقة _ بإذن الله _ شرح كل موضوع مستقل يكثر فيه الطلبات وسيكون الشرح للموضوع لشخص يجهل الإكسيل نهائيا حتى يصل إلى درجة الاحتراف في هذا الموضوع _ بإذن الله تعالى _ وبإذن الله سأستخدم كل الطرق للوصول إلى المعلومة فربما استخدم فيديوهات للأساتذة أو أقوم بعمل الفيديو بنفسي أو أقوم بشرحها وكأنه الشرح لشخص لأول مرة يعمل في الإكسيل والكنترول والله المستعان وها أول موضوع كثر الحديث عنه وهو [الشهادات من البداية إلى النهاية] وسيكون السير في هذا الموضوع في هذه النقاط 1 ) تصميم شهادة واحدة 2 ) جلب البيانات إليها 3 ) تصميم اكثر من شهادة وكيفية جلب البيانات إليها جميعا 4 ) الكود الخاص بطباعة شهادة واحدة فقط أو أكثر من شهادة 5 ) كيفية ربط هذا الكود مع صفحة الشهادات 6 ) كيفية تفادي أخطاء الطباعة وعمل الفنش النهائي لها فتابعونا مع شرح هذه النقاط الستة بالتفصيل في المشاركة القادمة والسلام عليكم ورحمة الله وبركاته
    1 point
  14. السلام عليكم كنت قد بدأت في وضع دروسي لشرح دوال الاكسيل في مواضيع منفصلة على اساس اني بعد الانتهاء منها ساقوم بعمل موضوع عبارة عن فهرس للدروس ولكن احد الاخوة (جزاه الله خيرا) اقترح تجميع الدروس في موضوع واحد تسهيلا للمتابعة وبعد التفكير وجدت ان هذا الموضوع فعلا سيكون الافضل لذلك سيتم تجميع جميع الدروس هنا في شكل مشاركات متفرقة والدروس استخدمت فيها Excel 2013 ولكن يمكن تطبيق معظمها على الاصدارات الاقل ارجو ان يكون الموضوع نافعا لكم وارجو الا تنسوني من دعائكم
    1 point
  15. السلام عليكم ورحمته الله وبركاته كل عام انتم بخير إطلاله متواضعة من العبد الفقيرالى الله امد الله فى عمركم تقبلوا وافر احترامى وجزاكم الله تعالى خيرالجزاء
    1 point
  16. أرجو من العارفين ـــ أكرمهم الله وغفر لهم ـــ مساعدتى فى استخلاص كشف للأيتام من جميع الصفوف فى كشف واحد كما هو موضح بالمرفق الايتام).rar
    1 point
  17. السلام عليكم ورحمة الله وبركاته واصل ابداعاتك على بركة الله . جعله الله فى ميزان حسناتك واكثر الله من امثالك
    1 point
  18. نسألك العافيه ودوام الصحه اخى وربنا يكثر من امثالك فى افعال الخير
    1 point
  19. أخي اضغط الملف الاول بصيغة rar ثم ارفعه
    1 point
  20. أخي العزيز / asdwasd بصراحة لم استطع تفهم الملف تبعك لعمل الإحصاء وكيف يمكن معرفة أصحاب العلمي من الأدبي ولا يوجد في الورقة data ما يحدد ذلك كذلك المجموعة الأولى والمجموعة الثاني أرجو التوضيح أكثر والعفو
    1 point
  21. أخى الكريم قمت بفصل اليتيم وغير اليتيم كل منهم بشيت مستقل أسأل الله عز وجل أن يكون هو المطلوب وتقبل منى وافر الإحترام والتقدير الايتام).rar
    1 point
  22. جميل جدا اتمنى شرح من بداية فتح الاكسيل وتصميم الشيت خطوة خطوة لمن هو جاهل تماما بالاكسيل اول متابع للموضوع والتطبيق اول بأول
    1 point
  23. أخى فى الله الأستاذ الكريم والحبيب / محمد ابو البراء اول مرحب بى بهذا الموقع التعليمى المبارك وبلدياتى بارك الله فيكم ومتشوق لمعرفة كل شىء عن الكنترول خاصة اننى ليس لى علاقة بالتربية والتعليم ولكن وجدت ان هناك اكثر من 200 مشاركه تتحدث عن شيت الكنترول وهو رقم ليس باليسير لذلك أسأل الله لكم أن يعينكم على ما أنتم مقدمون عليه وأن يوفقكم لما فيه الخير دمتم فى أمان الله وحفظه وتقبل منى وافر الإحترام والتقدير
    1 point
  24. ابعته من المرفقات أخي الحبيب عن طريق 1 ) في كتابة رد 2 ) ستجد اسفله المحرر الكامل 3 ) تحت محرر الرد مرفقات 4 ) ارفع الملف ثم حرر المشاركة
    1 point
  25. السلام عليكم ورحمة الله وبركاته الاستاذ والاخ / محمد ابو البراء جزاك الله خيرا اعطاك الله الصحة والعافية وزادك من علمه دمتم في رعاية الله وحفظه
    1 point
  26. أخى الحبيب ( ZMZM ) دعائك جميل تقبل الله منا ومنكم صالح الأعمال شكرا أخى الحبيب على دعائك هذا ولك مثلة أضعافا مضاعفة تقبل تحيات : أخيك
    1 point
  27. أخى الحبيب ( عباس ) دائما سباق للخير ودائما متميز فى أعمالك ومشاركاتك ، ودائما مشاركاتك تنم على الحميمية والحب لكل زملائك بارك الله فيك وأكثر الله من أمثالك تقبل تحيات أخيك
    1 point
  28. الاخ الفاضل الأستاذ// محمد طاهر السلام عليكم ورحمة الله وبركاته بارك الله فيك وجزاك خيرا علي ماتقدمه من دعم لمسيرة المنتدي وادعوا الله ان يكون سعينا وسعيكم وسعي الجميع في هذا الصرح لوجه الله تعالي خالصا يتقبله علما يتنتفع به صدقة جارية بالنسبة للشعار الذي تفضل الاخ عبدالرحمن بطرحه من السهل جدا تحويله الي صيغة png للاستفادة منه انا جربته مع البنر العلوي للمنتدي لكن لان الالوان في الشعار غامقة والاستايل درجات الازرق نتيجته غير طيبة لكن يمكن ان ارفع لكم الشعار مفتوح عسي من الاخوة يعيد تركيبه وتشكيله مرة اخري واكرر ندائي مرة اخري لجميع الاخوة في اسرة اوفيسنا لمن يريد المشاركة لدعم المنتدي والارتقاء به الباب مفتوح كل واحد في مجاله مهما كان تسويق , دعاية , اعلان, ارشفة , تصميم , دورات تدريبية .......... الخ تقبلوا تحياتي
    1 point
  29. تابع وبإذن الله سيتم عرض موضوع خاص بالشهادات من اول خطوة الى اخر خطوة بالتفصيل الممل
    1 point
  30. السلام عليكم ورحمه الله وبركاته اريد ان اعرف كيفيه ربط الشهادات بالشيت الخاص بالكنترول وكيفيه عمل زر لطباعه شهاده اوكل الشهادات او تحديد طباعه من رقم كذا الى رقم كذا وشكرآ وبارك الله فيكم جميعآ
    1 point
  31. أخى الحبيب الغالى ( الشهابى ) وحشتنى بجد وحشنى كل أعمالك الرائعة والتى تعلمت منها الكثير من الأفكار شكرا أخى الحبيب على مروركو الكريم تقبل تحيات أخيك المحب لكم
    1 point
  32. السلام عليكم اريد منكم خدمه ..... اريد قاعدة بيانات للعملاء وربط هذه القاعده بصفحه اخره ....هذه الصفحه عند كتابة اسم العميل تظهر باقي معلوماته تلقائيا المعلومات : اسم العميل :تاريخ الميلاد : رقم الهاتف : رقم البطاقه الشخصيه
    1 point
  33. جزاك الله خيرا وزادك علما و تواضعا الجزء رقم 2 2 ) لم تاتي النية بعد ليكون خالصاً كله لوجه الله لماذ ؟ ان كل اعمالك لوجه الله لهذا يجب علليك ان تحاول فى ههذه النقطة بالذات وسأظل ألح عليك حتى تشرع فى تصميم برنامج كامل مجانى لوجه الله فهذا ليس بكثير عليك احبك فى الله اخى محمد بارك الله فيك
    1 point
  34. الأخ الكريم/احمد مجدى السلام عليكم ورحمة الله وبركاته جمعة مباركة الصبر طيب - ليس كل من شاهد يملك أو يرغب بالرد - ومن رغب بالرد قد لا يملك الوقت - فإلتمس لإخوانك العذر أعود لسؤال حضرتكم الفرق بين العبارتين بإختصار : 1- تستخدم ByVal عندما تريد تمرير متغير إلي إجراء Sub ولا تريد أن يغير هذا الإجراء من قيمة المتغير 2- تستخدم ByRef عندما تريد تمرير متغير إلي إجراء وتريد أن يغير هذا الإجراء من قيمة المتغير 3- الأصل Default في آلية تمرير المتغير داخل الإجراء - عند عدم تحديد طريقة التمرير - هو ByRef . في المرفق مثال يوضح الشرح بالأعلي - تقبل تحياتي Book1-ByVal-vs-ByRef.rar
    1 point
  35. أخى الكريم تفضل ما تريده تحديدا بالمرفقات تحويل الرقم الى كتابة بالعربي و بالإنجليزى بدون تفقيط وتقبلوا منى وافر الإحترام والتقدير تحويل الرقم الى كتابة عربي و انجليزى.rar
    1 point
  36. أخي العزيز / حيان علاء الدين وبعد الحل الرائع الذي قدمه أخي الحبيب الأستاذ / محممود الشريف شرف الله قدره وأعلى منزلته وبشهادة أستاذنا الكبير مجدي يونس حفظه الله ولكن هذا حل قد أعددته سابقاً فأحببت أن أشارك أخي الأستاذ محمود به وبعد اذنه طبعا من خلال الكود التالي : Sub Add_row() Application.ScreenUpdating = False Application.Calculation = xlManual For x = 2 To 6001 Step 2 Range("A" & x).EntireRow.Insert Next x Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub For x = 2 To 6001 Step 2 غير الرقم في السطر السابق حسب عدد الصفوف المراد الإضافة فيها بالضعف فتلاحظ الرقم عندك (6001) لأنه عند الإضافة سيزيد صف وباتالي سيزيد رقم الصف الآخر المراد الإضافة بعده أو على الأصح في هذه احالة قبله ابتدأ من الصف ( 2) إدراج صفوفو في نطاق.rar
    1 point
  37. أخي العزيز / shaerhamada وبعد اذن الأساتذة الكرام محمد أبو البراء وأم عبد الله وما دام الأرقام عندك في العمود (A ) متسلسلة فالأفضل لك أن تكتب في الأعمد المطلوب جلب أرقام الجلوس فيها في الصفين الأول والثاني يدويا بدون معادلة وتسحبها إلى الأسفل وهذا لن يؤثر على المعادلات في العمود المجاور ( أعمدة الدرجات ) اكتب في السطر الأول 1 2 3 4 5 وفي السطر الثاني 6 7 8 9 10 ثم حدد الصفين بكل الأعمدة واسحبها لأسفل وإن كنت تريد الحل بالمعادلات فحل الأستاذة الفاضلة أم عبد الله ما شاء الله فيه الكفاية لاحظ المرفق ومرفق آخر شرح فديو صامت للطريقة help.rar سحب وإفلات.rar
    1 point
  38. أخى وحبيبى / أبو محمـود جاحد من ينكر ضوء الشمس ..
    1 point
  39. مليون مبروك للسيدة الفاضلة الاستاذة // ام عبدالله ويارب عقبال الترقية الكبيرة ترقية زواج ابنائك وترقية الحج الاكبر بارك الله فيكم ... تقبلى وافر احترامى
    1 point
  40. السلام عليكم ورحمة الله وبركاته اولاً : اشكر الاساتذة الافاضل استاذنا وصاحب منتدانا البشمهندس // محمد طاهر اشكر الفنان / ضاحي الغريب ثانيا : الشعارات روعة جميعها ولكن لي عدة تعليقات بسيطة 1 ) الدائرة الموجودة في يسار الصورة مادامت لوجو فهي تحتاج الى ان تكون جزء من كلمة اوفيسنا مثل هذا الشعار الذي اشرت فيه الى الاخوة في المنتدي فلتلاحظ ان حرف الo جزء من الكلمة ( officna ) بلون اخر وهكذا 2 ) كتابة موقع المنتدي الذي تقصده يا بشمهندس www.officena.net فهي توضع في الاسفل بعيد عن الكلمة العربية( اوفيسنا) الفريدة لوحدها الظاهرة 3 ) ممكن تغيير الكلمات العربية ببعض الكلمات المميزة للمنتدي وهناك خطوط انجليزية وعربية رائعة ومختلفة لتكون سمة المنتدى وطابع له 4 ) لي تعليق ككل يا بشمهندس عل البنر ككل فتشعر بوجود الوان متداخلة عند وضعها على ارضية الموقع ومن الافضل تحويل الصورة الى صيغة png حتي لا تختلف الالوان مع الوان البنر ولفهم ما اقول انظر اسفل الى توقيعي أبو البراء فهو بصيغة png لتختفي مع ارضية الموقع واللون الابيض اما لو كنت عملت لها خلفية ملونة كان سيبقى اللون شاذ أخي ولعل ما اقصده في هذه الصورة وشكراً على حسن تفهمكم جميعاً..
    1 point
  41. أخى الكريم جرب النموذج المرفق لكم لعل يكون به المطلوب وتقبلوا منى وافر الإحترام والتقدير ادراج صفوف.rar
    1 point
  42. السلام عليكم ورحمة الله وبركاته بارك الله فيك لقيامك بهذا العمل والذي بإذن الله سيكون مميزاً في المستقبل ولكن ما ساقوم به الان هو مساعدة من نوع اخر وهو على طريقة لا تعطني سمكة ولكن علمني كيف اصتادها 1 ) عليك ان تبدا استاذي الكريم خطوة خطوة بمعني انك عليك الان ان تختار ما قام به عمالقة المنتدى من اعمال الكنترول وتعمل عليه كشيت الاستاذ رجب جاويش او الاستاذ جمال الفار أو شيت الاستاذ أحمد السيد او شيت الاستاذ ايسم او احد من عمالقة المنتدي واعتذر ان نسيت احد العمالقة 2 ) عليك ان تعرف ان فكرة الشيت هي فكرة سهلة تحتاج الى بعض التفكير وثانياً التعلم وثالثاً سؤال اخواننا من لا يبخلون علينا بالاجابة 3 ) والان مرحلة التعليم وسوف استغل بعض مواضيع اخوننا ونحاول مع بعضنا البعض كيفية اصطياد الاسماك من خبرات عمالقة منتدانا أ) وهو كيفية استخراج الاوائل من اي جدول خذ هذا الموضوع مميز http://www.officena.net/ib/?showtopic=38931 ب ) نسبة المادة والاحصائية هي بطريقة بسيطة تستطيع ان تعرف نسبة اي عمود ( مادة ) بطريقة رياضية والسؤال كيف نعرف عدد الناجحين الاجابة بدالة counif وهي تعني اخرج عدد بشرط وهنا قمت بعمل مثال على مادة العربي في شيت نصف العام فذهبت في اي خلية فارغة ووضعت هذه المعادلة =COUNTIF(K8:K98;">49") والمعادلة تعني اخرج عدد الذين اكبر من حصلوا على 49 درجة والنتيجة ظهرت بشخص واحد فقط اي 1 فقط هو الناجح بعد ذلك نستطيع معرفة الاحصائية بالمعادلة الرياضية السابقة وهي عدد الناجحين =1 في 100 على عدد الطلبة =الخلية التى قمنا بها من قبل لمعرفة عدد الناجحين*100/عدد الطلبة ---------------------------------- وللتعرف اكثر على دالة countif شرح بض الاخوة http://www.youtube.com/watch?v=AaBRzH4KRU8 ----------------------------- هذا شرح بسيط للافكار وانا في خدمتك اذا اعجبتك الفكرة لتكملة باقي الموضوع..
    1 point
  43. معلومة جميلة ولكن اذا اردنا اردنا العكس
    1 point
  44. لم يرحلها شيء لإن العمود الأول فارغ ؟ والكود بيأخذ اخر صف به بيانات من العمود الأول جرب التعديل التالي Public S As String Public Sub Ali_Rn() Dim W As Workbook, Wr As Workbook Dim Sh As Worksheet Dim iC, Sn$ Dim Shet As Worksheet Dim Path$, My_F$, A_Num, i%, Lc&, L_A&, C Dim Rng As Range Dim A_Lst As Range SPd False Ali_Clr Sn = "المبيعات اليومية بالتفصيل" On Error Resume Next Set Wr = ThisWorkbook Path = ThisWorkbook.Path & Application.PathSeparator My_F = Dir(Path & "*.xlsx") Do While My_F <> "" If Not My_F = Wr.Name Then Workbooks.Open Filename:=Path & "\" & My_F Set W = Workbooks(My_F) For Each Sh In W.Worksheets With Sh SPd False Set Rng = .Range(.Cells(2, 1), .Cells(500, 35)) With Rng S = Replace(W.Name, ".xlsx", "") Set A_Lst = .Cells(2, .Columns.Count).End(xlToLeft) A_Num = A_Lst.Column End With If Sh.Name = Sn Then iC = 2 Else iC = 1 L_A = .Cells(.Rows.Count, iC).End(xlUp).Row Set Shet = Wr.Worksheets(.Name) With Wr.Worksheets(.Name) Lc = .Cells(.Rows.Count, iC).End(xlUp).Offset(1, 0).Row For C = 1 To A_Num For i = 2 To L_A .Range("A" & Lc - 1).Cells(i, C).Value = Sh.Cells(i, C).Value .Range("A" & Lc - 1).Cells(i, A_Num + 1).Value = S Next i Next End With End With A_Num = 0: R_Num = 0 Next W.Close 0 SPd True End If My_F = Dir Loop SPd True End Sub Private Function SPd(Bn As Boolean) With Application .Calculation = IIf(Bn, -4105, -4135) .EnableEvents = Bn .ScreenUpdating = Bn .DisplayAlerts = Bn End With End Function Private Sub Ali_Clr() Dim Dh As Worksheet For Each Dh In ThisWorkbook.Worksheets Dh.UsedRange.Cells.ClearContents Next End Sub ولا عليك نحنو بالخدمه لاتتردد بأي سؤال
    1 point
  45. وهذه طريقة بالمعادلات فى الخلية( B1 ) وأسحبها إلى أخر الأعمدة =INDEX(عمود!$F:$F;(INT((COLUMNS($A$2:A2)-COLUMNS($A$2))))+7;COLUMN($A$1:A1)) فى الخلية ( B2 ) وأسحبها إلى أخر الأعمدة =INDEX(عمود!$H:$H;(INT((COLUMNS($A$2:A3)-COLUMNS($A$2))))+7;COLUMN($A$1:A2)) تقبل تحيات : أخيك
    1 point
  46. اخواني اقسم بالله انني استفدت من هذا الموقع كثيرا فجزا الله القائمين عليه وجميع الاعضاء وجميع الخبراء بالاكسيل اخواني لدي طلب او مجموع طلبات لهذا البرنامج المرفق ويترتب على عمله ميزات كثيره ستشملني ان انا اكملته على الوجه المطلوب ومنها رخصه شهر ومكتب خاص فيني كعسري برتبة عريف مع مميزات اخرى في الدورات والترقيات و و و.. فأسال الله ان يوفق جميع من يساندني ويشاركني فأنا لااستغني عنكم وانتم خير معين لي بعد الله. الطلبات شاشة دخول مميزة الشكل (عسكريه) بصلاحيات 02عند نقل او تقاعد اي شخص بمجرد كتابة (منقول) بخانةالرتبه الاخيره تنتقل كامل معلوماته في شيت اخر. 03 اريد الغاء القائمه المنسدله والبحث عن المطلوب حسب الرتبه عن طريق الازرار في الاعلى 04عند امر الطباعه كتابة العنوان حسب المطلوب (مثلا) العقداء عند الضغط على الزر تظهر في ورقة الطباعه بيان العمداء وهكذا دون اكتبها كل مره 05الطباعه فقط من (a) الى (k) حتى لو اضفت خانات اخرى من بعد (k) 06عند الادراج لشخص جديديكون الترتيب حسب الآتي: أ-الرتبه ب-تاريخ الترقيه ج-الرقم حاولت يكون عن طريق الاكسس البرنامج ولكن عجزت عند ادراج شخص يكون ترتيبه في الاخير وانا اريد حسب رتبته ومن ثم حسب تاريخ الترقيه ومن ثم الرقم واذا تساوو في تاريخ الترقيه يكون الاقدم حسب الرقم .. والله اني وعدت المسئول وتفلسفت لاني كنت اشتغل على الاكسس شي بسيط وعلى الاكسيل شي بسيط ايضا كما ترون ولكن وقفت الى هنا وعجزت واحسست ان العمل غير مرضي بالنسبة لي اما بالنسبه للمسئول فأنبسط بهذا وقدم الدعم النفسي بخطاب شكر من القائد فطمعت في المزيد بمساعدتكم ولمساتكم عسى الله لايعدمني منكم...ولكم خالص شكري وعرفاني لكم.. مثال.rar
    1 point
  47. جزاك الله خيراً كيف نحسب مرتبي لمعلم خريج 1981 وحصل على الدرجة الثانية عام 24/10/1994 وعلى الدرجة الاولى عام 1/5/2002 وعلى درجة مدير عام 1/7/2008 وحصل على علاوة تشجيعية في 28/5/2000 وفي 16/5/2007 وفي 7/6/2009 ولكم جزيل الشكر.
    1 point
  48. أداة تحويل صيغ المعادلات الى اكواد بالمرفقات ملف أداة تحويل صيغ المعادلات الى اكواد Convert__formulas2Code.rar
    1 point
×
×
  • اضف...

Important Information