فتح الفورم بعرض الشاشة "فول اسكرين"

الطريقة الاولى

Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With
End Sub

الطريقة الثانية

Dim XLWS As XlWindowState
XLWS = Application.WindowState
Application.WindowState = xlMaximized
With UserForm1
.Top = Application.Top
.Left = Application.Left
.Width = Application.Width
.Height = Application.Height
.Show
End With
Application.WindowState = XLWS

او حمل الملف التالى بعد الرد

عدد المساهمات : 4 تاريخ التسجيل : 05/10/2017

مجدى يونس كتب:: الطريقة الاولى

Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With
End Sub

الطريقة الثانية

Dim XLWS As XlWindowState
XLWS = Application.WindowState
Application.WindowState = xlMaximized
With UserForm1
.Top = Application.Top
.Left = Application.Left
.Width = Application.Width
.Height = Application.Height
.Show
End With
Application.WindowState = XLWS

او حمل الملف التالى بعد الرد

ياريت عدم نسخ الموضوع كلمة شكر كفاية

عدد المساهمات : 1 تاريخ التسجيل : 02/11/2017

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

وعليكم السلام ورحمة الله وبركاتة
الاخت الفاضلة ام على
اشكرك جزيل الشكر على الدعاء لى بظهر الغيب واتمنى ان قناتى تكون بحسن ظنكم وتقوم على خدمتكم واهلا بك بالمنتدى وفى انتظار اعمال لك بالمنتدى وتحت امرك فى اى سؤال

عدد المساهمات : 2 تاريخ التسجيل : 10/11/2017

مجهودات مشكورة

شكرا

عدد المساهمات : 16 تاريخ التسجيل : 28/11/2017

[url=https://servimg.com/view/19818101/1][img]

شكرا

عدد المساهمات : 25 تاريخ التسجيل : 12/01/2018

احمد عباس كتب:

مجدى يونس كتب:: الطريقة الاولى

Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With
End Sub

الطريقة الثانية

Dim XLWS As XlWindowState
XLWS = Application.WindowState
Application.WindowState = xlMaximized
With UserForm1
.Top = Application.Top
.Left = Application.Left
.Width = Application.Width
.Height = Application.Height
.Show
End With
Application.WindowState = XLWS

او حمل الملف التالى بعد الرد

شكرا

عدد المساهمات : 6 تاريخ التسجيل : 06/10/2017

جزاك الله خير

شكرا

عدد المساهمات : 7 تاريخ التسجيل : 24/01/2018

جزاك الله خير

شكرا

عدد المساهمات : 15 تاريخ التسجيل : 02/10/2017

ارجو لك مزيداً من العطاء والتقدم استاذ مجدي

انتظر قريبا افكار جديدة

عدد المساهمات : 4 تاريخ التسجيل : 18/02/2018

شكرا. شكرا. شكرا.

عدد المساهمات : 2 تاريخ التسجيل : 10/02/2018

أنا مولع بالاكسيل

عدد المساهمات : 2 تاريخ التسجيل : 10/02/2018

مش عارق احمل اى ملف

عدد المساهمات : 2 تاريخ التسجيل : 18/02/2018

شكر استاذ

اى خدمة

عدد المساهمات : 15 تاريخ التسجيل : 02/10/2017

مشكور جداً

اى خدمة

عدد المساهمات : 34 تاريخ التسجيل : 17/03/2018

شكرا

» فتح الفورم مع اخفاء الشيت والدخول للشيت بزر من الفورم الدرس ال 35
» التحكم بعرض اعمدة الليست بوكس في اليوزرفورم
» صور متحركة داخل الفورم
» شرح الدخول للاكواد مع فورم بحث من خلال التكست والليست بوكس
» ليست بوكس في الفورم