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

سعيد ابا

عضو جديد 01
  • Posts

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

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

كل منشورات العضو سعيد ابا

  1. مرفق ملف يشتمل على : - ميعاد حضور الموظف او العامل وميعاد الانصراف - ميعاد الوردية من- الى حتى لو تجاوزة منتصف الليل - فترة التاخير المسموح بها بالدقائق 15 دقيقة مثلا -لائحة جزاءات بعد 15 دقيقةتاخير خصم ربع يوم - 30 دقيقة خصم نص يوم - 60 دقيقة خصم 1 يوم ويمكن التعديل فيها من المربعات الحمراء - حساب ساعات العمل - ساعات التاخير عن ميعاد الحضور - ساعات الانصراف المبكر عن ميعاد الانصراف والكثير لعل يكون مفيد نهائىhr - Copy.rar
  2. ا / ياسر خليل ابو البراء لقد قمت بحذف الكود من ملف الاكسيل وحذف الريجيسترى ولم يظهر المربع عن فتح اى من ملفات اكسيل بحمد الله وبفضل توجيهات سيادتكم شكر مرة اخرى وندعو الله ان يحفظكم دائما
  3. السلام عليكم شكرا على سرعة الرد لكننى بعد الحذف من الريجيسترى يظهر مربع اخر يظهر به عدد مرات فتح املف مثلا1 واذا تم الحذف من الريجيسترى يظهر مربع جديد برقم 2 وهكذا الى ان ينتهى عدد المرات الموجود بالكود مثلا 10 ثم يتم ظهور مربع بالرسالة مرة اخر ى
  4. السادة خبراء اكسيل اريد المساعدة فى حذف مربع يتم ظهوره عند فتح اى ملف للاكسيل 2010 المربع ظهر عند تطبيق كود يغلق ملف الاكسيل بعد عدد معين من فتح ملف الاكسيل تم تطبيق الكود على ملف اكسيل فارغ وتم حذفه ولكن الرسالة التى تظهر بعد انتهاء عدد مرات الملف مازالت تظهر لجميع ملفات الاكسيل هل من طريق لحذفها وشكرا الكود هو Private Sub Workbook_Open() Dim Retvalue As String, GD As Integer Retvalue = GetSetting("A", "0", "Runcount") GD = Val(Retvalue) + 1 SaveSetting "A", "0", "RunCount", GD If GD > 10 Then ' الرقم (10) يحدد عدد مرات التشغيل MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج") ThisWorkbook.Close 0 End If MsgBox GetSetting("A", "0", "Runcount") End Sub
  5. اريد برنامج معرفة باسوورد الاكسيل وشكرا saidzikre@yahoo.com
×
×
  • اضف...

Important Information