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

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

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

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

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


    • نقاط

      3

    • Posts

      3724


  2. طارق محمود

    طارق محمود

    أوفيسنا


    • نقاط

      2

    • Posts

      4533


  3. عبدالله باقشير

    عبدالله باقشير

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


    • نقاط

      2

    • Posts

      4796


  4. أم عبد الله

    أم عبد الله

    الخبراء


    • نقاط

      2

    • Posts

      2166


Popular Content

Showing content with the highest reputation on 07/02/14 in all areas

  1. السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. ربطةورزمة.rar
    2 points
  2. أستخدم هذه المعدلة أخى ستحقق المطلوب =SUM(Sheet1:Sheet2!E11) تقبل تحياتى
    2 points
  3. بسم الله الرحمن الرحيم Formula To VBA ضع الماوس على الخلية التي يوجد فيها معادلة معينة وإضغط على بسم الله ستظهر لديك المعادلة محولة و جاهزة للنسخ , قم بنسخها ثم قم بوضعها داخل كود أخونا الكريم عبد الله باقشير جزاه الله خيرا . الطريقة و الكود في المرفقات لكم مني أطيب التحيات محول المعادلات السريع.rar
    1 point
  4. جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row If Not Intersect(Target, Range("A1:C" & LR)) Is Nothing Then LR = LR - 9 If LR <= 0 Then LR = 1 Range("H1").Resize(10, 1).Value = Cells(LR, "A").Resize(10, 1).Value Range("I1").Resize(10, 1).Value = Cells(LR, "B").Resize(10, 1).Value Range("J1").Resize(10, 1).Value = Cells(LR, "C").Resize(10, 1).Value End If End Sub
    1 point
  5. السلام عليكم جرب الكود التالي مع ملاخظة انه يتم وضعة في موديل الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F8:F12")) Is Nothing Then Cells(Target.Row, "G").ClearContents End If End Sub المرفق 2010 تحياتي example1+.rar
    1 point
  6. بفضل الله ثم مساعدة الاساتذة الافاضل في هذا المنتدى قمت بعمل مشابه لما تقول وانا لم يكن عندى خبره جيده بالاكسس ولكن بفضل الله ابدء بالتفكير ووضع خطه لما اريد ثم ابدء وان واجهني اي تعسر أسأل اساتذتنا الافاضل وهم بفضل الله لايدخرون جهدا في مساعدة الجميع
    1 point
  7. بعد طريقة أستاذنا الرائع ومهندس منتدانا " طارق محمود " هذه طريقة أخرى جهزة بطريقة " التنسيق " =TEXT(VALUE(B1)-VALUE(A1);"ss.000")& "00 SEC" تقبل تحياتى
    1 point
  8. السلام عليكم تفضل أخي إن شاء الله يكون ماطلبت تغيرات سعر الذهب.rar
    1 point
  9. السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك نعم يوجد طريقة سهلة بشرط أن تكون الأرقام كلها ذات طول واحد (مثلا أرقام تليفونات) الطريقة ظلل المجال كله (الذي به الأرقام) كليك يمين الماوس إختر Format Cells ثم Custom ثم في خانة Type ضع عدد الأصفار التي تريدها مثلا إذا كانت الأرقام ثمانية وتريد زيادتها للعشرة ضع عشرة أصفار 0000000000 ولزيادة علامة + بدلا من الأصفار أيضا إتبع نفس الخطوات السابقة حتي الرابعة ثم 5. ثم في خانة Type ضع + ثم 0 أو + ثم مسافة ثم 0 أيهما تفضل
    1 point
  10. السلام عليكم اخى الحبيب جرب الشاشة الافتتاحية مرة اخرى تم ايقاف زر × للخروج من الشاشة ويتم الالتزام بزر الخروج من البرنامج الموجود فى الشاشة الافتتاحية مع وجود رسالة تاكيد للخروج من البرنامج اسم المستخدم / حسام كلمة السر / 1964 الشاشة الافتتاحية.rar
    1 point
  11. أخى العزيز هل هذا ما تريد اسم المستخدم : حسام كلمة السر : 1964 ملفات مرفقة الشاشة الافتتاحية.rar
    1 point
  12. السلام عليكم ورحمة الله وبركاته لتعم الفائدة الرجاء تزويد الأعضاء بكلمة المرور ، فكثير من اعضاء المنتدى مشكورين لهم من المساهمات والافكار والبرامج لا حصر لها وكلها بدون تحفظ او تشفير ، فالمنتدى تعليمي ، وفي حالة الرفض يحق لإدارة المنتدى حذف الموضوع لانه لا جدوى له بدون معرفه الطريقه .
    1 point
×
×
  • اضف...

Important Information