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

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

قام بنشر

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

 

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

Sub k()
Application.Caption = "قنديل الصياد"
End Sub

كود تصغير حجم البرنامج على الشاشة

Sub kkkkkkk()
Application.WindowState = xlNormal
End Sub

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

Sub kkkkkkkk()
Application.WindowState = xlMaximized
End Sub

كود تصغير البرنامج على شريط المهام

Sub kkkkkk()
Application.WindowState = xlMinimized
End Sub

كود اخفاء شريط الصيغة

Sub kk()
Application.DisplayFormulaBar = False
End Sub

كود اظهار شريط الصيغة

Sub kkk()
Application.DisplayFormulaBar = True
End Sub

كود ملء الشاشة

Sub kkkk()
Application.DisplayFullScreen = True
End Sub

كود تراجع عن ملء الشاشة

Sub kkkkk()
Application.DisplayFullScreen = False
End Sub

كود حذف ورقة عمل

Sub kkkkkkkkkkkkk()
Worksheets("ورقة4").Delete
End Sub

كود اضافة ورقة عمل

Sub kkkkkkkkkkkk()
Worksheets.Add
End Sub

كود اخفاء ورقة عمل

Sub kkkkkkkkk()
Worksheets("ورقة2").Visible = False
End Sub

كود اظهار ورقة عمل

Sub kkkkkkkkkk()
Worksheets("ورقة2").Visible = True
End Sub

كود تغيير اسم ورقة عمل

Sub kkkkkkkkkkk()
Worksheets(1).Name = "منتديات اوفيسنا"
End Sub

مرفق ملف به التطبيق على الاكواد السابقة

 

أكواد.rar

  • Like 1

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