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

basem said

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    240

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

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

 نوع المحتوي 

مشاركات المكتوبه بواسطه basem said

    برنامج اجازات الموظفين

    في منتدى الاكسيل Excel

    قام بنشر

    شكرا على توجودكم اتمن ان احاول افيدكم على قدر ما استطيع

    للاسف انا صممت البرنامج على دقة 1024/768

    وقمت بتعديل البرنامج ليتناسب مع اى دقة وتم الغاء تعديل دقة الشاشة

    معلومة اخرى يجب بعد تسجيل بيانات الموظف يجب اغلاق البرنامج واعادة التشغيل 

    ليظهر امامك فى شاشة تسجيل اجازة لتقوم باضافة اجازة للموظف

    وشكرا مرة اخر على مشاركتكم

     

     

    الاجازات.rar

    • Like 2
    • Thanks 1

    كود رفع ملف pdf على الانترنت

    في منتدى الاكسيل Excel

    قام بنشر

    الى الاساتذة الافاضل

    هل ممكن عمل كود برمجى لرفع ملف معين من مكان محدد على الانترنت او على سيلفر محلى

    يعنى بمعنى اوضح فتح المتصفح المطلوب ووضع اسم الملف ومكان وجوده داخل التكست بوكس الموجوده داخل المتصفح

    والضغط على زرار upload الموجود داخل المتصفح

    وشكرا

     

    واسف على التطويل

     

    • Like 1

    دعوة للقضاء على مشكلة تناسب الفورم مع حجم الشاشة

    في منتدى الاكسيل Excel

    قام بنشر

    السلام عليكم

     

    جرب هذا الكود

     

    انا استخدمه في اعمالي

    يعمل على تناسب الزوم مع الطول او العرض ايهم الانسب

     

    Private Sub UserForm_Initialize()
Dim Zo%
Dim ZH#, ZW#, AL#, AT#, AH#, AW#
Dim FH!, FW!
'===========================================
AH = Application.Height: AW = Application.Width
AL = Application.Left: AT = Application.Top
FH = Me.Height: FW = Me.Width
ZH = AH - FH: ZW = AW - FW: Zo = Me.Zoom
If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW)
'===========================================
With Me
    .Move AL, AT, AW, AH
    If Zo <> 100 Then .Zoom = Zo
End With
'===========================================
End Sub

 

    في امان الله

    كود فى منتهى الجمال والروعة وحل ممتاز لمشاكل كتير

×
×
  • اضف...

Important Information

  I accept