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

[قنديل الصياد]

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

 

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

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

[حمادة عمر]

[حمادة عمر]

[إبراهيم ابوليله]

اخى قنديل

مجهود جميل

واكواد جميله

مستفاد منها انشاء الله

بارك الله فيك

وكل عام وانت بخير

[محمد يوسف محمد1]

بارك الله لك

[hesham rayan]

مجهود رائع

واكواد جميله

مستفاد منها انشاء الله

بارك الله فيك

وعيد أضحي مبارك

 

[أبو ردينة]

انوار انورا يا استاذنا بارك الله فيك 

اكواد رائعة جدا جزاك الله خيرا 

و كل عام و انتم بخير