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

spyhearts

03 عضو مميز
  • Posts

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

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

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

  1. للاسف ليس هو المطلوب

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

    فيه بحث واضافة وتعديل

    احتاج عند البحث عن القيمة المطلوبة

    تظهر البيانات وفي حالة ان التاريخ الذي تم احضارة داخل التيكست بوكس قارب على الانتهاء ( 25 يوم ) مثلا يعطي تنبيه اصفر ( للتجديد )بتلوين اللتيكست بوكس وفي حالة انتهى (يعطي منتهي )بلون احمر 

    وشكرا لاهتمامك والرد

     

  2. اخي العزيز كمال على طارق

    لو انتبهت لطلبي

    وهو استفسار 

     

    لو تكرمت ممكن استفسار

    هل يوجد كود يوضع داخل اليوزرفورم التنبيه بقرب انتهاء الوثائق ؟

    هذا استفسار عن امكانية وجود كود التنبيه بقرب انتهاء اي وثيقة داخل التيكست بوكس في اليوزرفورم

     

    وشكرا لردك

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

    لو تكرمت ممكن استفسار

    هل يوجد كود يوضع داخل اليوزرفورم التنبيه بقرب انتهاء الوثائق ؟

    بمعني يتم التنبيه قبل موعد الانتهاء ب25 يوم مثلا يعطي لون اصفر للتيكست بوكس ولو انتهى تاريخ انتهاء الوثيقة يعطي لون احمر للتيكست بوكس

    وشاكر لكم مجهودكم

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

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

    لو تكرمتم محتاج مساعدة بالملف المرفق 

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

    مرفق الملف 

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

    معاملة التأمين والاهلاك.xlsm

    وهذا رابط للمف بدون كلمة مرور

    image.jpeg

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

    اعتذر منكم 

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

    فضلا وليس امرا

    امل من ادارة الموقع نقل الموضوع لمكانة المناسب

     

    ولكم خالص الشكر والتقدير لما تقدموه لاعضاء المنتدى العريق 

  6. 28 دقائق مضت, hassona229 said:

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

    اخى @spyhearts ضع هذا في UserForm1 وجرب كتابه اي تاريخ ميلادي سوف يعطيك تاريخ اليوم هجرى اما ان كتبت التاريخ هجري سوف يكتبه لك كما كتبته

    Private Sub TextBox11_AfterUpdate()
      If Year(TextBox11.Value) > 1500 Then
            a = Format(TextBox11.Text, "0")
            TextBox11.Value = ""
            MsgBox "هذا ليس تاريخ هجري "
            VBA.Calendar = vbCalHijri
            TextBox11.Text = Format(a, "[$-1170000]yyyy-mm-dd;@")
        End If
    End Sub

    وايضا اخى كل طلب يكون له موضوع مستقل ليكون مرجع وللاستفادة المستقبليه للاعضاء

    شكرا استاذ hassona229

    تمام اتعدل معايا

    بخصوص فتح موضوع فعلا كلامك صح بعتذر منك

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

    هل فيه كدا كدا

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

    شكرا استاذ وايلي حبيب بالنسبة الى :-

    لو تكرمت ممكن طريقة ادراج التاريخ الهجري فقط في التيكست بوكس ؟

    ولكن حاولت ولم يفي بالغرض محتاج كود لا يسمح الا بكتابة التاريخ الهجري فقط

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

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

    واكون شاكر لك

×
×
  • اضف...

Important Information