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

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





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


شاطر
 

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

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

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

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

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

الفيديو


الصورة

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


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


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

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

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 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
مجدى يونس

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

فورم هوايات وانشطة بالنادى مع ترتيب الاسماء 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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
rachid213



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

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

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

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

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

اى خدمة

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

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



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

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

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

الفيديو


الصورة

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


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

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

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

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

شكرا

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

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

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

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

شكرا

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

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



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

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

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

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

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

الف شكر

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

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

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