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

Khalid Jnb

الخبراء
  • Posts

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

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

  • Days Won

    5

مشاركات المكتوبه بواسطه Khalid Jnb

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

    وجدت ملف لاحد الاصدقاء في المنتدى ( منقول) وهي نفس المشكله لدي في ملف الاكسيل اللي عندي 

    وهي عند فتح ملف الاكسيل الذي فية يوزر فورم  يظهر اولا  ملف الاكسل لحظه ثم يختفي ويظهر اليوزر فورم

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

    شتوية 2017.rar

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

    وجدت ملف لاحد الاصدقاء في المنتدى ( منقول) وهي نفس المشكله لدي في ملف الاكسيل اللي عندي 

    وهي عند فتح ملف الاكسيل الذي فية يوزر فورم  يظهر اولا  ملف الاكسل لحظه ثم يختفي ويظهر اليوزر فورم

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

    شتوية 2017.rar

  3. السلام عليكم
    عندي ملف اكسيل به نص متحرك على الشيت وهو يعمل بصورة جيده 
    لكن عند الكتابه على الشيت يتوقف النص 
    انا اريد ان يضل يعمل عند الكتابه على الشيت ولا يتوقف بدون عمل مفاتيح للتوقف او التشغيل
    ارجوا المساعده مع التقدير 

    33.rar

  4. اخي العزيز سليم

    انا لدي ورقة اسماء تحتوي على 700 اسم   ولا اريد عمل قائمة منسدله لصعوبة البحث فيها

    اريد خلية بحث  مثل امر find  تضع الاسم في الخليه ويذهب المؤشر للاسم بسرعة

    مع التقدير 

    2.rar

  5. عند عمل واجهة يوزر فورم بالاكسل عن طريق اسم مستخدم وكلمة مرور 
    بعد الادخال و تشغيل برنامج الاكسيل تظهر واجهة الاكسل اولا ثم تختفي وتظهر واجه اليوزر فورم 
    علما انني استخدمت الكودات التالية
    Private Sub Workbook_Open()
    Application.Visible = False
    form1.Show
    End Sub
    -----------------------------------------
    Private Sub CommandButton1_Click()
    ThisWorkbook.Save
    Application.Quit
    End Sub
    Private Sub TextBox2_Afterupdate()
    If TextBox2.Value = "123" Then
    MsgBox "open", , "open"
    form1.Hide
    Application.WindowState = xlNormal
    Application.Visible = True
    Else
    MsgBox ("ßáãÉ ÇáÓÑ ÛíÑ ÕÍíÍÉ")
    End If
    End Sub

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
    End Sub

    • Like 1
  6. ارجوا من اساتذتي تعديل الملف المرفق لحساب العلاوة السنويه

    1- بعد مرور سنة كاملة بالضبط يظهر التنيسق انه يستحق العلاوه

    2-  مرور اقل من سنة يظهر انه لايستحق

    3- بعد مرور اكثر من سنه ( لااعرف ماينبغي عمله بالداله)

    ارجوا المساعده مع التقدير

    21.rar

  7. السلام عليكم احبائي

    يرجى منكم طريقة ضبط حجم النموذج داخل الشاشة لكي يتوسطها بكل الاحوال وقياسات الشاشات

    علما انني جربت كل الطرق والاوامر  ( DoCmd.Maximize) و (resizefrom Me, 1024, 768 ) و  (Me.Form.InsideHeight = 11000 Me.Form.InsideWidth = 15000) 

    لكن النموذج لايتوسط الشاشة بالضبط

    كلمة المرور للمرفق 123

    test.rar

×
×
  • اضف...

Important Information