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

وائل احمد المصري

الخبراء
  • Posts

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

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

  • Days Won

    4

مشاركات المكتوبه بواسطه وائل احمد المصري

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

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

    XLSM

    ج2 : بمعنى اية اضافة تفاصيل

    ج3: لأن المعادلة تعمل مع الأرقم الصحيحة فقط بمعنى شهر كامل اما أذا اردتيها تعمل بالأيام ونقسمها على متوسط شهر 30 يوم فيمكن ذلك لكن بصفة عامة معادلة الفرق بين تاريخين

    ارجوا ان اكون وفقت في التوضيح

    تحياتي

  2. اخي وائل اشكرك على الرد انا اريد اوضح لك سؤالي اكثر الشهادة المرفقة لكم هيا رسمية خاصة بالوزارة ونحن نكتب البيانات باليد يعني بالقلم العادي واردت ان اطور الفكرة بان تكتب البيانات بالكمبيوتر يعني اكتب في ملف اكسل اووورد ثم اطبع البيانات على نفس الشهادة الرسمية المرفقة فيتم طباعة البيانات عليها بس المشكلة اريد ان يتم طباعة كل خانة في خانتها الصحيحة في الشهادة الرسمية 

    اخي ابو عبد الله اعلم ماتقصد وقد قمت بادراج الشهادة في ملف الاكسيل ثم بدأت اضع الخلايا لتتناسب مع اعمدة ومربعات الشهادة لذا طلبت منك ان تطبع نسخة من الملف ك تجربة اما عن تعبئة تلك الخلايا فيتم بربطها بملفك الاصلي ارجوا ان تكون الفكرة قد وضحت بالاضافة انة تم اضافة كود التفقيط بمعنى عند الكتابة في خانة رقم سيتم تفقيط القيمة

  3. أخي الكريم فضل 1 (أرجو أن تغير رقم 1 في اسم الظهور بلقبك ..)

    بالنسبة لطلبك ..جرب الدالة المعرفة التالية ...

    Function IsCountGTE(ByVal Rng As Range)
        Dim Cnt As Long
        Dim Data As Variant
        Dim Item As Variant
    
        Application.Volatile
        Data = Rng.Value
    
        If Application.WorksheetFunction.CountIf(Rng, "غ") = 0 Then IsCountGTE = "": Exit Function
    
        For Each Item In Data
            If IsEmpty(Item) Then
                Cnt = 0
            ElseIf Item = "غ" Then
                Cnt = Cnt + 1
            End If
            If Cnt = 5 Then
                IsCountGTE = "متتالي"
                Exit Function
            End If
        Next Item
    
        IsCountGTE = "غير متتالي"
    End Function

    وإليك الملف المرفق يوضح كيفية استخدامها

     

    Count Contiguous Cells Only.rar

    ولا اروع بارك الله في علمك

    • Like 1
  4.  اتفضلي اختي العزيزة المرفق لعلة يكون فية طلبك

    تم عمل معادلة لحساب الاجمالي للعام المحدد

    MyFees

    بالاضافة للشهر

    MonthFees

    اما عن كيفية تشغيلها

    https://youtu.be/Y5eyL8-5bEY

    أذا كان مطابق لطلبك برجاء التعليق تم 

    تحياتي

     

     

     

     

    Annual fees.rar

    • Like 2
  5. في الويندوز 7 لو مالقيتهوش دور علية على الانتر نت

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

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

    cCalendar.rar

    ملفك مرفق به الكاليندر

    ضرائب جديد2015.rar

  6. لو عاوز الكاليندر دور عليها في البروجرام فايلز اسم الملف

    MSCAL.OCX

    او ممكن تجيبها من النت واتبع واعمل لها ريجيستر

    ازاي:

    ح تفتح ستارت وتكتب في ال 

    run

    الامر التالي

    regsvr32 %SystemRoot%\syswow64\mscal.ocx

    حيث تمثل

    syswow64

    الفولدر اللي فية ال ocx

    جرب وشوف

     

     

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

  7. تحياتي واشكرك على عباراتك واشكرك على دعواتك جعل الله لك مثلها واكثر

    تحياتي

    هية المشكلة في الكاليندر او الرزنامة بالتاكيد الجهاز اللي علية اكس بي متسطب عليه اكسيس والكاليندر بتنزل اوتوماتيك

    بينما هية غير موجودة مع نسخة الاوفيس اللي ع الجهاز اللي علية ويندوز 7

    طبت وكل عام وانت بخير

×
×
  • اضف...

Important Information