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

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

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

    قنديل الصياد

    06 عضو ماسي


    • نقاط

      1

    • Posts

      2661


  2. احمد مجدى

    احمد مجدى

    03 عضو مميز


    • نقاط

      1

    • Posts

      237


  3. ابو محمد العربي

    ابو محمد العربي

    02 الأعضاء


    • نقاط

      1

    • Posts

      86


  4. احمد فضيله

    احمد فضيله

    أوفيسنا


    • نقاط

      1

    • Posts

      3210


Popular Content

Showing content with the highest reputation on 12/13/13 in all areas

  1. السلام عليكم ورحمة الله و بركاته الاخوه الاحباب بالمنتدي أسألكم الدعاء للاخ العزيز الاستاذ / رجب جاويش ... بالشفاء العاجل أسأل الله العظيم رب العرش العظيم أن يشفيه
    1 point
  2. 1 point
  3. السلام عليكم عثرت فى المنتدى الرائع على هذا الملف وحاولت على قدر استطاعتى التغير فيه الى الشكل الذى يناسب عملى ومشكلتى فى التالى 1-فى فورم الادخال اريد بعد اختيار الكود الموجود Combobox يظهر تلقائيا فى Textbox العنصر ويرحل الى الشيت dd 2- فى فورم البحث عن الاستعلام عن الكود يظهر الكود البحث فقط مثلا البحث عن الكود1 يظهر الكود 1و1212 واريد ابدال زر الموجود فى الفورم الى زر طباعة هذا التقرير مع التنسيق فى جداول وجزاكم الله خيرا
    1 point
  4. السلام عليكم ورحمة الله وبركاته السادة مديرى واعضاء المنتدى تواجهنى مشكلة فى هذا البرنامج المطلوب من حضراتكم الدخول الى البرنامج حيث ان اسم المستخدم magdy والباسورد 12345 ثم الضغط على زر الشاشة الرئيسية ومن ثم اختيار فاتورة نقدى وادخال تفاصيل فاتورة ثم الضغط على ترحيل ثم عمل نفس الفاتورة بكل تفاصيلها مرة اخرى فعند الضغط مثلا على كود المتعامل واختيار نفس الكود السابق فان البرنامج لا يستجيب وهذا ينطبق على جميع العناصر التى بها اختيار وشكرا الايصالات-sama1.rar
    1 point
  5. أخى الحبيب ( أكرم ) المعادلة تقوم أساسا على فصل الكلمة بنائا على المسافة التى يتم تركها بين كلمة وأخرى لذلك ففى حالة الأسم المركب لاتترك مسافة بن الأسميين المركبين أو تفصل بينهم بنقطة بحيث لاتكون المسافة ( الفراغ بين الكلمتين موجود ) ولاتطهر فى الطباعة تقبل تحياتى
    1 point
  6. السلام عليكم ضع هذا الكود في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [F7:F1000]) Is Nothing Then For i = 2 To 6 Target.Offset(0, i).FormulaR1C1 = Cells(4, Target.Offset(0, i).Column).FormulaR1C1 Target.Offset(0, i).Value = Target.Offset(0, i) Next End If End Sub
    1 point
×
×
  • اضف...

Important Information