الدرس الاول في الفورم التفاعلي

[ضاحي الغريب]

الدرس الاول في UserForm

عناصر الدرس

1- اضافة التبويبات الرئيسية للفورم  

2- اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module

اولا : اضافة التبويبات الرئيسية

1- نقوم باضة userForm ثم نضيف اطار Frame ونضيف داخله عدد 5 Lebel

 

بالنسبة لعنوان اكتب ما تشاء عربي انجليزي

لكن المهم  Label Name ( Btn1-Btn2-Btn3-Btn4) ا

BackStyle =0

BorderStyle=0

واليبل الخامس لتغير خلفية النص 

Name=AnlBtn

BackColor=&H8000000E&

ثم نضيف ليبل خاص بالعنوان نسميه PageNo

ثم نضيف MultiPage

ونضيف في ال Page1  

ثانيا ربط التبويبات بالفورم

نضيف Class Module

 

نكتب داخله الكود التالي

Public WithEvents LblBtn As MSForms.Label

Private Sub LblBtn_Click()
' للحركة بين التبويبات
UserForm1.AniBtn.Left = LblBtn.Left
'ربط صفحات المالتي بيج مع التبويبات
UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1
'شريط العنوان
UserForm1.PageNo.Caption = "Page No " & UserForm1.MultiPage1.Value + 1 & "     ( " & LblBtn.Caption & " )"

End Sub

وفي الفورم

Dim LblEvent(3) As New Class1

Private Sub UserForm_Initialize()
 With Me.MultiPage1
 'لتغير استايل المالتي بيج
 .Style = fmTabStyleNone: .Value = 0
 End With
 'عدد التبويبات 4 من صفر الي 3
For AddEvent = 0 To 3

Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1)
Next AddEvent
End Sub

الملف بالمرفقات

ياريت ننفذ الخطوات ولو اي استفسار ماتترد

اتمني من الله اكون بسط الشرح ويكون فيه الاستفادة

مع تحياتي

MultiPage Officana.xlsm

[ضاحي الغريب]

ان شاء الله احاول تكون الشروحات فيديو 

[Ali Mohamed Ali]

بارك الله فيك أستاذ ضاحى وبالتوفيق دائماً

[فوزى فوزى]

6 دقائق مضت, ضاحي الغريب said:

ان شاء الله احاول تكون الشروحات فيديو 

بالطبع يكون افضل الله يوفقك

 

[عبدالله بشير عبدالله]

 تبارك الله جعله الله في ميزان حسناتك . جزاك الله كل خير

[ابراهيم الحداد]

السلام عليكم و رحمة الله

شكرا جزيلا لك

[Mohamed Hicham]

جميل جدا مزيدا من التألق والابداع بادن الله

[وجيه شرف الدين]

استاذى الفاضل واخى الحبيب جزاكم الله خير وجعله الله فى ميزان حسناتك

[ابن نصار]

بسم الله وعلى بركه الله 

[saad abed]

اخى الحبيب  ضاحى

جزاكم الله خير وجعله الله فى ميزان حسناتك

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

مع ان الكنترول 1 2 3 4 الى انك اخترت فى الحلقة التكراريه من 0 1 2 3 واعلم انك اضفت واحد +1

لما لم تستخدم من 4:1 حاولت اعطتنى خطا

For AddEvent = 0 To 3

Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1)
Next AddEvent

لا اجد فى الكود ما يخفى اسماء التبويبات رغم انها تظهر فى التصميم ولا تظهر فى التشغيل page1 page2 page3 page4

 

 

تم تعديل نوفمبر 3, 2022 بواسطه saad abed

[ضاحي الغريب]

منذ ساعه, saad abed said:

اخى الحبيب  ضاحى

جزاكم الله خير وجعله الله فى ميزان حسناتك

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

مع ان الكنترول 1 2 3 4 الى انك اخترت فى الحلقة التكراريه من 0 1 2 3 واعلم انك اضفت واحد +1

لما لم تستخدم من 4:1 حاولت اعطتنى خطا

For AddEvent = 0 To 3

Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1)
Next AddEvent

لا اجد فى الكود ما يخفى اسماء التبويبات رغم انها تظهر فى التصميم ولا تظهر فى التشغيل page1 page2 page3 page4

 

 

]حياك الله اخي سعد

دائما التفاعل يدفع للاستمرار انت تسال وهذا يسال  وذاك يجيب والكل يستفيد

اولا الحلقة التكرارية بدات بصفر وليس واحد لان صفحات المالتي البيج تبدا من صفر ولو غيرنا الحلة التكراريةمن صفر الي 1

الكود هايعطيك الخطا

لاحظ في الكلاسيك مودل

UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1

 

Me.MultiPage1.Style = fmTabStyleNone

السطر السابق لاخفاء تبيوبات المالتي بيج

وهذا السطر عند انطلاق الفورم تكون الصفحة الاولي هي الاكتيف
Me.MultiPage1.Value = 0

 

5 ساعات مضت, Ali Mohamed Ali said:

بارك الله فيك أستاذ ضاحى وبالتوفيق دائماً

 

5 ساعات مضت, فوزى فوزى said:

بالطبع يكون افضل الله يوفقك

 

 

4 ساعات مضت, عبدالله بشير عبدالله said:

 تبارك الله جعله الله في ميزان حسناتك . جزاك الله كل خير

 

3 ساعات مضت, ابراهيم الحداد said:

السلام عليكم و رحمة الله

شكرا جزيلا لك

 

3 ساعات مضت, Mohamed Hicham said:

جميل جدا مزيدا من التألق والابداع بادن الله

 

2 ساعات مضت, وجيه شرف الدين said:

استاذى الفاضل واخى الحبيب جزاكم الله خير وجعله الله فى ميزان حسناتك

 

1 ساعه مضت, ابن نصار said:

بسم الله وعلى بركه الله 

جزاكم الله خيرا جمعيا

[حسونة حسين]

بارك الله فيك استاذ ضاحى جعله الله في ميزان حسناتك يوم القيامه 

[كريم نظيم]

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

ومتابعين سلسلة الشروحات ومنتظرين المزيد

بالتوفيق دائما للمبدع @ضاحي الغريب والقائمين على المنتدي العظيم

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

أسأل الله تعالى لكم التوفيق والسداد

[Osama Fawzy]

شكرا استاذنا الفاضل واتمنى لحضرتك مزيد من العلم 

[Osama Fawzy]

استاذنا الفاضل ضاحى

بارك الله فيكم وزادكم علما نافعا واثابكم فى ميزان حسناتكم على افادة الناس بالعلم ... 

كنت قد تفاعلت مع حضرتك على دروس الفورم التفاعلى منذ 4 شهور تقريبا وكنت ومازلت محتاج الى هذه الفورم الجديدة ذات الشكل الجميل لتكون واجهة لى لانى مسئول فى شركتى عن سيتم وفقنى الله لعمله والاشراف عليه منذ 1/1/2017 حتى الان وهو معمول من اكسيل وكل سنة بفضل الله بقوم بتطويره من الناحية البناءية واريد هذه السنة ان اطوره من كل النواحى وخاصة الجمالية .. لذا ارجو من حضرتك ارسال يوزر فورم login  تقوم بفتح فورم مختلفة sub forms  بالاضافة الى طلب اخر وهو اريد ان اعرف كيف اضيف فى فورم ادخال البيانات اكثر من شيت اكسيل .

شكرا لكم وبارك الله فيكم وفى القائمين على هذا المنتدى العظيم

[محمد يوسف ابو يوسف]

احسنت استاذنا

جزاك الله خيراً وجعله في مزان حسناتك

[اشرف عبدالله الفقى]

استاذنا الفاضل واخى الحبيب جزاكم الله خير وجعله الله فى ميزان حسناتك الى يوم القايمة

[ابو الياس نبيل جمعان]

بارك الله فيك استاذ ضاحى  

[ضاحي الغريب]

في 25‏/1‏/2023 at 16:46, Osama Fawzy said:

استاذنا الفاضل ضاحى

بارك الله فيكم وزادكم علما نافعا واثابكم فى ميزان حسناتكم على افادة الناس بالعلم ... 

كنت قد تفاعلت مع حضرتك على دروس الفورم التفاعلى منذ 4 شهور تقريبا وكنت ومازلت محتاج الى هذه الفورم الجديدة ذات الشكل الجميل لتكون واجهة لى لانى مسئول فى شركتى عن سيتم وفقنى الله لعمله والاشراف عليه منذ 1/1/2017 حتى الان وهو معمول من اكسيل وكل سنة بفضل الله بقوم بتطويره من الناحية البناءية واريد هذه السنة ان اطوره من كل النواحى وخاصة الجمالية .. لذا ارجو من حضرتك ارسال يوزر فورم login  تقوم بفتح فورم مختلفة sub forms  بالاضافة الى طلب اخر وهو اريد ان اعرف كيف اضيف فى فورم ادخال البيانات اكثر من شيت اكسيل .

شكرا لكم وبارك الله فيكم وفى القائمين على هذا المنتدى العظيم

 

حياااك الله واهلين بيك وبالتوفيق ان شاء الله في عملك

وضح لي المطلوب وان شاء الله خيرا وما اقصر معاك

تم تعديل يناير 29 بواسطه ضاحي الغريب

[Osama Fawzy]

الاستاذ الفاضل ضاحى ... حياك الله

باختصار انا محتاج الاتى :

1- طريقة عمل فورم دخول login تفاعلية تفتح اكثر من فورمة داخلها وتظل هى ال interface

2- طريقة وضع شكل جمالى للفورمة مثلاا زى 3d اللى حضرتك عاملها لو هى قوالب جاهزة انا دورت عليها وماعرفتش اوصلها

3- طريقة عمل فورمة تحمل اكثر من شيت واكثر من ملف يمكن العمل عليهم فى وقت واحد 

ملحوظة :  انا عملت منذ فترة فورم دخول وباسوورد لكن لم افلح فى الفورم التفاعلية

 

استئذنك فى تذكرة .. حضرتك قمت شاكرا بارسال احد الدروس الفورم التفاعلية بس بفورمات 32 بت وللاسف مابيفتح وحضرتك قولت ستقوم بتحويله الى 64 بت

[ضاحي الغريب]

في 30‏/1‏/2023 at 03:54, Osama Fawzy said:

الاستاذ الفاضل ضاحى ... حياك الله

باختصار انا محتاج الاتى :

1- طريقة عمل فورم دخول login تفاعلية تفتح اكثر من فورمة داخلها وتظل هى ال interface

2- طريقة وضع شكل جمالى للفورمة مثلاا زى 3d اللى حضرتك عاملها لو هى قوالب جاهزة انا دورت عليها وماعرفتش اوصلها

3- طريقة عمل فورمة تحمل اكثر من شيت واكثر من ملف يمكن العمل عليهم فى وقت واحد 

ملحوظة :  انا عملت منذ فترة فورم دخول وباسوورد لكن لم افلح فى الفورم التفاعلية

 

استئذنك فى تذكرة .. حضرتك قمت شاكرا بارسال احد الدروس الفورم التفاعلية بس بفورمات 32 بت وللاسف مابيفتح وحضرتك قولت ستقوم بتحويله الى 64 بت

تم الرد علي استفسارك علي الرابط

https://www.officena.net/ib/topic/118185-create-dynamic-drop-down-menu-in-excel-userform/

[Abo Sufiyan]

بارك الله فيك

وجعلة فى ميزان حسناتك