الاستاذ مجدى
فورم هوايات وانشطة بالنادى مع ترتيب الاسماء 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا فورم هوايات وانشطة بالنادى مع ترتيب الاسماء 829894
ادارة المنتدي فورم هوايات وانشطة بالنادى مع ترتيب الاسماء 103798

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Uoou_u10


الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



 
الرئيسيةالأستاذ التعليمأحدث الصورضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في الخميس يناير 01, 1970
آخر عضو مسجل Heliany فمرحبا به


 

 فورم هوايات وانشطة بالنادى مع ترتيب الاسماء

اذهب الى الأسفل 
+3
ابوعمر
rachid213
علي امير
7 مشترك
كاتب الموضوعرسالة
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالإثنين سبتمبر 09, 2019 6:31 am

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء

الفيديو


الصورة

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Aaco10


ضع رد ليظهر الرابط


_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
علي امير

علي امير


عدد المساهمات : 46
تاريخ التسجيل : 18/08/2019

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالإثنين سبتمبر 09, 2019 4:16 pm

ما شاء الله تبارك الرحمن عمل احترافي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
rachid213




عدد المساهمات : 20
تاريخ التسجيل : 23/08/2019

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالإثنين سبتمبر 09, 2019 4:43 pm

بارك الله فيك استاذ مجدي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
rachid213




عدد المساهمات : 20
تاريخ التسجيل : 23/08/2019

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالإثنين سبتمبر 09, 2019 4:48 pm

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


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالإثنين سبتمبر 09, 2019 5:29 pm

عزيزى اليك الكود

الكود:
Private Sub ComboBox1_Change()
' الكود المستخدم في البحث عن البيانات
On Error Resume Next
' ورقة العمل الذي سوف يتم فيها البحث
sheet1.Activate
'  رقم صف بداية البحث

' العمود الذي سوف يتم فيه البحث عن البيانات
'  بما اننا سوف نبحث بدلالة الاسم والذي يقع غي العمود _
((A))
Do Until sheet1.Cells("A").Text = ""
    If ComboBox1.Text = sheet1.Cells("A").Text Then
        Cells("A").Activate
' الأسم وياخذ العمود صفر
TX1 = ActiveCell.Offset(0, 0).Text
' النوع- عمود1
TX2 = ActiveCell.Offset(0, 1).Text
'العمر- عمود2
TX3 = ActiveCell.Offset(0, 2).Text
'أسم الزوج / الزوجة-عمود3
TX4 = ActiveCell.Offset(0, 3).Text
'الجنسية
TX5 = ActiveCell.Offset(0, 4).Text
'الهويات
TX6 = ActiveCell.Offset(0, 5).Text
'الحالة الأجتماعية
If Me.TX4.Value = "" Then
TX9.Value = "اعذب"
Else
TX9.Value = "متزوج"
End If

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Exit Sub
        End If
       
Loop
''''''''''''''''''''''MsgBox ("!!! الرقم الذى ادخلته غير صحيح")
' مسح الفورم
Me.TX1 = ""
Me.TX2 = ""
Me.TX3 = ""
 Me.TX4 = ""
Me.TX5 = ""
Me.TX6 = ""
Me.TX7 = ""
Me.TX8 = ""
' مؤشر الماوس علي مربع نص الأسم
Me.TX1.SetFocus
End Sub

Private Sub CommandButton3_Click()
End Sub

Private Sub CommandButton4_Click()

End Sub

Private Sub CommandButton5_Click()
MultiPage1.Pages(0).Visible = True
MultiPage1.Pages(1).Visible = False
MultiPage1.Value = 0
Me.Height = 430
End Sub

Private Sub CommandButton6_Click()
Unload Me
End Sub

Private Sub CommandButton7_Click()
MultiPage1.Pages(0).Visible = False
MultiPage1.Pages(1).Visible = True
MultiPage1.Value = 1
Me.Height = 350
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub L_DateH_Click()

End Sub

Private Sub lstAge_Click()

End Sub

Private Sub SpinButton1_Change()

End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub TX2_Change()

End Sub

Private Sub TX4_Change()

End Sub

Private Sub TX9_Change()

End Sub

Private Sub UserForm_Activate()
MultiPage1.Pages(0).Visible = True
MultiPage1.Value = 0
Me.Height = 430
End Sub

Private Sub UserForm_Initialize()
' تعيين خصائص عناصر التحكم على تهيئة UserForm. _
يحصل على تحميل في UserForm على النقر فوق زر الأمر على ورقة العمل والذي يستخدم في _
UserForm عرض الأسلوب.
Dim i As Integer
Dim myArray As Variant
'وحدات السن الذي سوف تضاف الي صندوق القائمة "الليست بوكس
With Me.lstAge
For i = 20 To 60
.AddItem i
Next i

End With

'اضافة العناصر الي الكمبو بوكس
myArray = Array("مصـر", "السودان", "الأردن", "سوريا", "اليمن", "لبنان", _
"الجزائر", "تونس", "المغرب", "السعودية", "الصومال", "الفلبين", "باكستان", "الهند", _
"أندونيسيا", "بنجلاديش", "تركيا")
Me.cmbCountry.List = myArray

Me.txtSpouse.Enabled = False

' جميع _
OptionButtons _
ضمن اسم مجموعة محددة تصبح يستبعد بعضها بعضا ومكتفية ذاتيا ضمن تلك المجموعة ولا تؤثر على اختيار _
OptionButtons _
خارج تلك المجموعة
''اختيار _
OptionButton _
في مجموعة واحدة وازالة اختيار كل _
OptionButtons _
أخرى من تلك المجموعة فقط.
' تسمية مجموعة لادارة _
OptionButtons _
اولا : ادارة مجموعة اختيار النوع

optMale.GroupName = "النوع"
optFemale.GroupName = "النوع"

'  ادارة مجموعة تاريخ الاشتراك

Me.Caption = "مع تحيات مجدى يونس"
End Sub
 
Private Sub clearForm()
'لمسح الفورم
txtName.Value = ""
'الأسم
optMale.Value = False
'تحديد النوع - ذكر
optFemale.Value = False
'تحديد النوع - انثي
lstAge.ListIndex = -1
'صندوق القائمة
cmbCountry.Value = ""
'البلد
chkReading.Value = False
'الهوايات - القراءة
chkMusic.Value = False
'الموسيقي
chkMovies.Value = False
'الأفلام
chkSports.Value = False
'الرياضة
chkMarried.Value = False
'متزوج / متزوجة
txtSpouse.Value = ""
End Sub
 
Private Sub Calendar1_Click()
End Sub
 
Private Sub chkMarried_Click()
'عند اختيار الحالة الاجتماعية تمكين اوعدم تمكين مربع النص (اسم الزوج / الزوجة

If chkMarried.Value = True Then
txtSpouse.Enabled = True
Else
txtSpouse.Enabled = False
End If

End Sub
 
 
 
Private Sub cmdClear_Click()

clearForm

End Sub
 
Private Sub cmdClose_Click()
Unload Me
End Sub
 Private Sub cmdSave_Click()
'حفظ البيانات في الشيت
' تعريف المتغيرات
Dim totalrows As Long
Dim str As String
Dim endDate As String, startDate As String
' سوف نقوم بادخال الشروط اذا كان احد الادخالات غير موجود يطالب المستخدم بتصحيح الادخال كالتالي
If txtName.Text = "" Then
MsgBox "من فضلك ادخل اسم المشترك", vbOKOnly, "الأسم خطأ!"
Exit Sub
ElseIf optMale.Value = False And optFemale.Value = False Then
MsgBox "من فضلك قم بتحديد النوع", vbOKOnly, "حدد النوع!"
Exit Sub
ElseIf lstAge.ListIndex = -1 Then
MsgBox "من فضلك اختار العمر", vbOKOnly, "حدد العمر!"
Exit Sub
ElseIf cmbCountry.Value = "" Then
MsgBox "من فضلك اختار البلد", vbOKOnly, "أختار البلد!"
Exit Sub
ElseIf chkReading.Value = False And chkMusic.Value = False And chkMovies.Value = False And chkSports.Value = False Then
MsgBox "أختر الهوايات", vbOKOnly, "ادخل الهوايات!"
Exit Sub
ElseIf chkMarried.Value = True And txtSpouse.Text = "" Then
MsgBox "أدخل اسم الزوج أو الزوجة", vbOKOnly, "الحالة الأجتماعية!"
Exit Sub

End If



'شيت الادخالات شيت رقم 1 العمود _
A
' حدد اول خلية فارغة
totalrows = sheet1.Cells(Rows.Count, "A").End(xlUp).Row
' عدد الصفوف العلوية
If totalrows < 3 Then
totalrows = 3
Else
totalrows = totalrows
End If

'الاسم
sheet1.Cells(totalrows + 1, 1) = txtName.Text
' النوع ذكر او انثي
If optMale.Value = True Then
sheet1.Cells(totalrows + 1, 2) = "ذكر"
ElseIf optFemale.Value = True Then
sheet1.Cells(totalrows + 1, 2) = "أنثي"
End If
' العمر
sheet1.Cells(totalrows + 1, 3) = lstAge.Value
' الحالة الجتماعية
If txtSpouse.Text <> "" Then
sheet1.Cells(totalrows + 1, 4) = txtSpouse.Text
Else
sheet1.Cells(totalrows + 1, 4) = "أعذب"
End If
' البلد
sheet1.Cells(totalrows + 1, 5) = cmbCountry.Value
' الهويات
If chkReading.Value = True Then
str = "القراءة, "
End If
If chkMusic.Value = True Then
str = str & "الموسيقي, "
End If
If chkMovies.Value = True Then
str = str & "الأفلام, "
End If
If chkSports.Value = True Then
str = str & "الرياضة, "
End If
'deleting comma and space, the 2 characters at the end of str
str = Left(str, Len(str) - 2)
sheet1.Cells(totalrows + 1, 6) = str
' ترتيب حسب الاسم
sheet1.Range("A4:H" & totalrows + 1).Sort Key1:=sheet1.Range("A4"), Order1:=xlAscending
'  بعد الانتهاء قم بمسح الفورم _
استدعاء

clearForm

End Sub



Sub Form_Clear()
Me.TX1 = ""
Me.TX2 = ""
Me.TX3 = ""
 Me.TX4 = ""
Me.TX5 = ""
Me.TX6 = ""
Me.TX7 = ""
Me.TX8 = ""
Me.ComboBox1 = ""

End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
rachid213




عدد المساهمات : 20
تاريخ التسجيل : 23/08/2019

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالثلاثاء سبتمبر 10, 2019 5:11 pm

شكرا لك استاذ
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالثلاثاء سبتمبر 10, 2019 5:20 pm

اى خدمة

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
ابوعمر




عدد المساهمات : 56
تاريخ التسجيل : 26/02/2019

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: عمل رائع بارك الله فيك   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالجمعة سبتمبر 13, 2019 12:15 pm

مجدى يونس كتب:
فورم هوايات وانشطة بالنادى مع ترتيب الاسماء

الفيديو


الصورة

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Aaco10


ضع رد ليظهر الرابط

الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالجمعة سبتمبر 13, 2019 4:33 pm

شكرا

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالجمعة سبتمبر 13, 2019 4:37 pm

شكرا

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
khairy




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

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالثلاثاء أكتوبر 08, 2019 12:17 am

بارك الله فيك استاذ مجدي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالثلاثاء أكتوبر 08, 2019 5:18 am

الف شكر

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
توفيق عبدالمغني




عدد المساهمات : 46
تاريخ التسجيل : 27/05/2020

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالأربعاء يونيو 10, 2020 5:11 am

فورم جميل ورائع تسلم ياغالي ربنا يحفظكم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
Adel200




عدد المساهمات : 235
تاريخ التسجيل : 12/09/2021

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Empty
مُساهمةموضوع: رد: فورم هوايات وانشطة بالنادى مع ترتيب الاسماء   فورم هوايات وانشطة بالنادى مع ترتيب الاسماء Avatarالإثنين سبتمبر 20, 2021 3:08 pm

شكرا جزيلا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
فورم هوايات وانشطة بالنادى مع ترتيب الاسماء
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» فورم ترتيب الاسماء تصاعدى وتنازلى بزر ToggleButton
» فورم خاص للعمل على الجدول مع ترتيب الاسماء ابجدى
» ترتيب الاسماء ابجدى الدرس السابع
» فورم ادراج وتعديل وحذف سطور وأعادة ترتيب التسلسل وادراج صورة
» ترتيب ابجدى فورى للاسماء

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: