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

علي عاي

02 الأعضاء
  • Posts

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

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

مشاركات المكتوبه بواسطه علي عاي

  1. مساء الخير ... من هذا المنتدى تعلمنا الكثير والكثير 

     

    اولا شكرا لكم بحجم السماء 

     

    في الملف المرفق عندي مشكلة 

    التعديل على البيانات

    حذف البيانات 

    تفريغ البيانات 

     

    وهل ممكن تعديل طريقة البحث بطريقة افضل يكون بالاسم او رقم الهوية ايهما ويقبل ؟؟؟

     

    وعندي بيانات كثيرة احس الملف يكون ثقيل ما اعرف هل السبب من الاكواد او شي ثاني 

     

    وهل ممكن تعديله ليوزر فروم ؟؟

     

    بيانات الموظفين.xlsm

  2. السلام عليكم 

    اسعد الله اوقاتكم 

     

    عندي ملف للصادر والوارد اخذته من النت واستاذنت صاحبة للتعديل عليه وتمت الموافقة .. واضفت ارفاق ملف PDF لكن عندي اشكالية عند البحث عن الخطاب واريد اظهار ملف PDF بعد الضغط على الملف في الصادر والوارد 

     

    كلمة الدخول 1234

    كلمة الدخول للبرمجيات 1987 

     

    ولكم خالص الود

    2.jpg

    1.jpg

    الصادر والوارد.xlsm

  3. عندي مشكلة في كود التعديل في الوارد 

    اذ عدلت يسحب لليمين كل البيانات مثلا 

    هنا رقم الوارد 170 اذ عدلته لرقم اخر يروح على اليمن 

    image.png.61b8d50515c99a99bda4c68376abbe64.png

    الان عدلت 170 إلى 2020/1 راح على اليمن وصار مكان 170 - 180

    اذ عدلت في كل الصف يتلخبط 

    image.png.b73fd2791ea2706a207d63a3a620767e.png

    الكود المستخدم 

     

    Private Sub CommandButton2_Click()
    'ايقونة تعديل بعد تحديد الجزء الموارد تعدله
        On Error Resume Next
        ii = 4
        For I = 0 To Me.ListBox1.ColumnCount
            Me.ListBox1.List(ListBox1.ListIndex, I) = Me.Controls("TextBox" & ii).Value
            ii = ii + 1
        Next
        With Sheets("incoming mail")
          .Cells(TextBox4, 10).Value = TextBox4.Text
            .Cells(TextBox4, 9).Value = TextBox5.Text
            .Cells(TextBox4, 8).Value = TextBox6.Text
            .Cells(TextBox4, 7).Value = TextBox7.Text
            .Cells(TextBox4, 6).Value = TextBox8.Text
            .Cells(TextBox4, 5).Value = TextBox9.Text
            .Cells(TextBox4, 4).Value = TextBox10.Text
            .Cells(TextBox4, 3).Value = TextBox11.Text
            .Cells(TextBox4, 2).Value = TextBox12.Text
            .Cells(TextBox4, 1).Value = TextBox13.Text
        End With
        MsgBox "تم تعديل بنجاح"
    End Sub

    الرقم السري 1234

    والرقم السري الثاني 1987

    وهل ممكن طريقة اضافة ملف PDF من جهاز الكمبيوتر 

     

     

  4. اريد اضافة ملف pdf في الفروم 

    وتظهر اسفل الملفات المرفوعة وعند الضغط على ملف في المربع الاول يظهر في المربع الثاني للطباعة والمعاينة 

     

    اتمنى وضحت الفكرة 

     

    نفس فكرة الاستاذ مجدي بس الملف ما يفتح معي 

     

     

    image.png

     

    اضافة ملف PDF.xlsm

×
×
  • اضف...

Important Information