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

Osama-2020

02 الأعضاء
  • Posts

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

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

مشاركات المكتوبه بواسطه Osama-2020

  1. اخوانى واستاذتى الكرام

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

    واسعد الله اوقاتكم بكل خير 

    استفسار.... هل يوجد حل لاضافه الدوال الجديده الموجوده فى اوفيس 365 مثل xlookup - filter   وغيرها من الدوال الى اوفيس 2016

    او هل يمكن لاوفيس 2016 او يعمل بنفس خصائص اوفيس 365

     

    جزيل الشكر لكم.....

  2. الاخوه الافاضل

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

    واسعد الله اوقاتكم وحياتكم بكل الخير

    ارجو المساعده فى داله للبحث  للبحث وإظهار البيانات المطلوبه في حاله توافر اى من الشرو الشروط ( وليس كل الشروط ) والموجوده في الخلايا A1 او A2 او A3 

     
    فمثلا في حاله البحث برقم الوثيقه فقط يتم اظهار البيانات  المطلوبه في الحدول ادناه دون الحاجه لوجود قيم في باقى الشروط ..... او في حاله البحث باسم العميل فقط يتم نفس الامر ..... ولا يشرط توفر ال 3 شروط ..... توافر احدهم يكفى
             

    اعنى البحث بأحد الشروط وليس كل الشروط

    مرفق نموذج ملف العمل

    وجزاكم الله خيرا.............البحث بشرط او اكثر.xlsx

     
  3. استاذى الكرام

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

    واسعد الله حياتكم بكل الخير

    ارجو المساعده فى الكود الموضح بالملف المرفق

    حيث ارغب فى تعديل خصائص البحث فى COMBO BOX لبحث متعدد بكل القيم المتشابهة 

    فمثلا يوجد رقم سياره 1403 ونفس السياره مسجل لها رقم اخر هكذا 5L1403 وارغب بظهور جميع القيم التى بها الرقم  سواء تحتوى على حروف ام لا تحتوى

     

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

    Osama-Test.xlsm

  4. جزيل الشكر لك اخى @Mohamed Hicham

    لازل ال password يظهر كما هو على شكل ارقام

    ارغب فى جعله يظهر على شكل ***** بدلا من الارقام

    مع استخدام نفس الكود المرفق فى الملف وهو كالتالى:

    Private Sub CommandButton1_Click()
    Dim x
    x = InputBox("Please Enter Your Password")
    If x = "123" Then
    Sheets("Data").Activate
    Else: Exit Sub
    End If
    End Sub

  5. معذرة استاذتى الافاضل

    لازلت مبتدأ امام هذه الشروحات الممتعه.... ولم تسعفنى اقتراحتكم الرائعه فى الوصول للحل ......

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

    لكم جزيل التقدير والشكر

  6. اخوانى الافاضل

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

    واسعد الله اوقاتكم بكل خير....

    ارجو من سيادتكم المساعده فى تعديل الكود الموضح ليتم اظهار الباسورد على شكل نجوم (***) ولا يظهر الرقم السرى للمستخدم بما لايوثر على فاعليه الكود

    جزاكم الله خيرا كثيراًً.......

    رابط الملف المرفق

    Private Sub CommandButton4_Click()
    Dim x
    x = InputBox("Please Enter Your Password")
    If x = "123" Then
    Sheets("Renewal").Activate
    Else: Exit Sub
    End If
    End Sub

     

  7. الاخوة الافاضل

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

    برجاء المساعده فى اضافه (( زر ))  عند الضغط عليه يتم تحديث او نسخ البيانات كامله وبنفس الترتيب من ورقه العمل Data الى ورقه العمل الموجود بها ال (( زر )) فقط

    وايضا ارجو اضافه :

    بعد الانتهاء من تحديث او نسخ البيانات يتم ظهور رساله (( تم التحديث)) فى حاله كان هناك تعديل أو اضافه بيانات جديده..... او لا يوجد تحديث حاله لم يكن هناك اى جديد 

    جزاكم الله خيرا كثيرا 🤲🤲Share.xlsx

  8. الاخوة الافاضل

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

    ارجو من الله ثم منكم المساعده فى عمل النقاط التاليه ( مع تقديرى الكامل لوقتكم الثمين) واعلم وانه قد يأخد بعض الوقت

    1- ربط كل زر باسم الشيت الخاص به

    2- عمل رقم سرى لكل زر  عند الضغط عليه

    3- عند مشاركة ملف العمل لايتم غلق اى من TABS مثل ( DATA FILTER - Conditional formatting…........ الخ ) من خلال VBA

    4- عندفتح الملف فى كل مره يفتح على صفحة القائمة الرئيسية

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

    Data-2021.xlsm

  9. الاستاذ @سليم حاصبيا للاسف ناتج المعادلة غير صحيح

    فكما هو موضح فى الشرح داخل الملف (( المطلوب مجموع المبالغ المحصلة الواقعة بين تاريخي ( 05-09-20 الي 30-09-20) .... والمفترض ان يكون  134322.5 

    ارجو من حضرتك مراجعة المعادلة مرة اخري.....

    جزيل الشكر لحضرتك

×
×
  • اضف...

Important Information