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

(تمت الاجابة) اظهار فورم تنبيه عند فتح الملف بشرط

أيهاب ممدوح

بواسطه أيهاب ممدوح
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

أيهاب ممدوح

أيهاب ممدوح

قام بنشر
  • الكاتب
قام بنشر

اخي في الله \الجزيرة

شكرا علي مجهودك ولكن الملف به مشاكل مثل التاريخ الهجري والميلادي

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

شكرا

عبدالله المجرب

عبدالله المجرب

قام بنشر
قام بنشر

اخي ايهاب

في حدث فتح الملف ضع هذا الكود


Private Sub Workbook_Open()

Application.ScreenUpdating = False

  With SEARCH_4_DOC_SPECIAL

.Label1.ForeColor = &HFF&

.ListBox1.ForeColor = &HFF&

.Label1.Caption = "بيانات الوثائق المنتهية الصلاحية"

.TextBox1.Text = "إنتهت الصلاحية من"

.Show

End With

Application.ScreenUpdating = True

End Sub

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept