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

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


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

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

عناصر الدرس

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

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

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

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

 

01.png.9d5718d5654be7602fb4595c915d964e.png

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

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

BackStyle =0

BorderStyle=0

2.png.e36c686abdecb9c1f30e02b4d388d669.png

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

3.png.cf916c09e89db50347ba910979780207.png

Name=AnlBtn

BackColor=&H8000000E&

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

ثم نضيف MultiPage

ونضيف في ال Page1  

4.png.b0f7909402527ac9e3f15d2316b36ab7.png

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

نضيف Class Module

5.png.b2217458bc08c6045816f577c7d421c8.png

 

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

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

  • Like 9
  • Thanks 6
رابط هذا التعليق
شارك

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

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

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

مع ان الكنترول 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

 

 

تم تعديل بواسطه saad abed
  • Like 1
رابط هذا التعليق
شارك

منذ ساعه, 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

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

6.png.1d8c42b453033d56cdf6fc2a9d1123a0.png

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

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:

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

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

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

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

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

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

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

  • 3 weeks later...
  • 1 month later...

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

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

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

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

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

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

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

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

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

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

 

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

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

تم تعديل بواسطه ضاحي الغريب
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

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

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

  • 2 weeks later...
في 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/

  • 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.

×
×
  • اضف...

Important Information