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

seaf mohamed

عضو جديد 01
  • Posts

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

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

مشاركات المكتوبه بواسطه seaf mohamed

  1. السلام عليكم ورحمة الله وبركاتة 

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

    وجزاكم الله خيرا

    عقد جديد - .doc

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

    كلما اقوم بفتح شيت اكسل لكتابة medial يظهر عتدة كود Ribbenx code 

    Entry point for RibbonX button click
    Sub ShowATPDialog(control As IRibbonControl)
        Application.Run ("fDialog")
    End Sub
    'Callback for RibbonX button label
    Sub GetATPLabel(control As IRibbonControl, ByRef label)
        label = ThisWorkbook.Sheets("RES").Range("A10").Value
    End Sub

    ما هو الحل لحذفة نهائى ولا يظهر لى مرة اخرى 

  3. السلام عليكم ورحمة الله وبركاتة 

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

    وشكرا  

    attend-v4 (1).xlsm

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

    لدى شيت  اجازات للموظفين يعمل بالمعادلات ارغب فى استبدال المعادلات بكود بالفجوال بيسك بسبب تكرار نوع الاجازة للموظف وبالثالى لا يمكن الاعتماد على المعادلات وشكرا

    انتبه من فضلك تم تعديل واعادة رفع الملف بإمتداد XLSM طالما انك تريد الإجابة بالأكواد

    attend-v4.xlsm

  5. 'Entry point for RibbonX button click
    Sub ShowATPDialog(control As IRibbonControl)
        Application.Run ("fDialog")
    End Sub
    
    'Callback for RibbonX button label
    Sub GetATPLabel(control As IRibbonControl, ByRef label)
        label = ThisWorkbook.Sheets("RES").Range("A10").Value
    End Sub

    السلام عليكم وجدت هذا الكود عندى فى جميع شيتات الاكسل ومش عارف بيعمل اية وللاسف مش عارف امسحة ممكن اعرف دة اية وازاى امسحه وشكرا  .... تــــم رفــع الملـــف

    New Microsoft Excel Worksheet (3).xlsx

×
×
  • اضف...

Important Information