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

اريد شرح كيفيه اضافه رساله ترحيب عند فتح شيت الاكسيل


zorp

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

                   

 

السلام عليكم

 

انا خبراتى قليله فى كيفيه استخدام لغه البرامجه VBA

لكن اريد ان اتعلم اريد شرح كيفيه اضافه رساله ترحيب عند فتح شيت الاكسيل

ولكم الشكر ارجو ان يكون الشرح مصورا

 مثال توضيحى

post-40057-0-67819500-1405610777_thumb.j

رابط هذا التعليق
شارك

اخى

اولا

اوجه اليك دعوه لتغير الاسم الى اللغه العربيه

التزاما بتعليمات وقواعد المنتدى

بارك الله فيك

ثانيا

1-قم بالدخول الى محرر الاكواد

2-قم بالضغط مرتين على ThisWorkbook

   لفتح النافذه الخاصه به

3-قم باضافة الكود الاتى

' هذا السطر هو المختص بتنفيذ اى شء نريده عند فتح الملف
Private Sub Workbook_Open()
'MsgBox  الكود المختص فى كتابة الشئ الذى نريده
' h  عباره عنالرساله التى سوف تظهر عند فتح الملف
' ويمكنك تغيرها الى اى شئ تريده
' "" ولكن بشرط الحفاظ على علامتى التنصيص
MsgBox "h"
' هذا السطر هو المختص بنهاية عمل الكود
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