تعلم واقرأ وارتقِ
[img]فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Uoou910[/img]
تعلم واقرأ وارتقِ
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

تعلم واقرأ وارتقِ


 
الرئيسيةالبوابةالتسجيلدخول
غفرانك ربنا واليك المصير
رب زدني علما
سجل بالمنتدى ليظهر لك باقى المواضيع المهمه
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
علم اولادك برياض الأطفال والصفوف الأولى من التعليم الابتدائى
مجدى يونس ببورسعيد
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل arabicnet فمرحبا به

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

 

 فورم السابق والتالى والبحث واضافة البيانات فيديو 3

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

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Empty
مُساهمةموضوع: فورم السابق والتالى والبحث واضافة البيانات فيديو 3   فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Icon_minitimeالإثنين أكتوبر 14, 2019 6:57 am

فورم السابق والتالى والبحث واضافة البيانات فيديو 3


الفيديو

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
ملKINGگ OF الضDARKلام



عدد المساهمات : 5
تاريخ التسجيل : 14/10/2019

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Empty
مُساهمةموضوع: رد: فورم السابق والتالى والبحث واضافة البيانات فيديو 3   فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Icon_minitimeالإثنين أكتوبر 14, 2019 8:32 pm

جميل  دمتم بخير
الرجوع الى أعلى الصفحة اذهب الى الأسفل
ملKINGگ OF الضDARKلام



عدد المساهمات : 5
تاريخ التسجيل : 14/10/2019

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Empty
مُساهمةموضوع: رد: فورم السابق والتالى والبحث واضافة البيانات فيديو 3   فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Icon_minitimeالإثنين أكتوبر 14, 2019 8:38 pm

جزاك الله الخير  يا دكتور  وجعل هذا في ميزان حسناتك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
ملKINGگ OF الضDARKلام



عدد المساهمات : 5
تاريخ التسجيل : 14/10/2019

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Empty
مُساهمةموضوع: رد: فورم السابق والتالى والبحث واضافة البيانات فيديو 3   فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Icon_minitimeالإثنين أكتوبر 14, 2019 8:39 pm

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

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Empty
مُساهمةموضوع: رد: فورم السابق والتالى والبحث واضافة البيانات فيديو 3   فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Icon_minitimeالإثنين أكتوبر 14, 2019 11:22 pm

شكرا لكم واليك الكود

الكود:
Private Sub UserForm_Initialize()
Dim x As Integer
For x = 0 To Me.Lstmydata.ListCount - 1
If Me.Lstmydata.Selected(x) Then Me.Lstmydata.Selected(x) = False
Next x
End Sub

الكود:
Private Sub cmdadd_Click()
If control1.Value <> "" And control2.Value <> "" And control3.Value <> "" And control4.Value <> "" And control5.Value <> "" And control6.Value <> "" Then
Sheets(1).Activate
lrow = Range("b" & Rows.Count).End(xlUp).Row
Range("b" & lrow + 1).Value = control1.Value
Range("b" & lrow + 1).Offset(0, 1).Value = control2.Value
Range("b" & lrow + 1).Offset(0, 2).Value = control3.Value
Range("b" & lrow + 1).Offset(0, 3).Value = control4.Value
Range("b" & lrow + 1).Offset(0, 4).Value = control5.Value
Range("b" & lrow + 1).Offset(0, 5).Value = control6.Value
control1.Value = ""
control2.Value = ""
control3.Value = ""
control4.Value = ""
control5.Value = ""
control6.Value = ""
Else
MsgBox ("تأكد من وجود جميع البيانات")
End If
End Sub

Private Sub cmdclose_Click()
Unload Me
End Sub

Private Sub cmdrefresh_Click()
Dim x As Integer
For x = 0 To Me.Lstmydata.ListCount - 1
If Me.Lstmydata.Selected(x) Then Me.Lstmydata.Selected(x) = False
Next x
control1 = ""
control2 = ""
control3 = ""
control4 = ""
control5 = ""
control6 = ""
End Sub

Private Sub Cmdsearch_Click()
Dim crow As String
Dim i As Integer
Dim findvalue

On Error GoTo errhandler
crow = Me.Txtsearch.Value
Set findvalue = Sheet1.Range("b:b").Find(what:=crow, LookIn:=xlValues)

cnum = 6
For x = 1 To cnum
Me.Controls("control" & x).Value = findvalue
Set findvalue = findvalue.Offset(0, 1)
Next
On Error GoTo 0
Exit Sub
errhandler::
End Sub

Private Sub control1_Change()

End Sub

Private Sub Listmydata_Click()

End Sub

Private Sub control3_Change()

End Sub

Private Sub Lstmydata_Click()
Dim i As Integer
i = Me.Lstmydata.ListIndex
Me.Lstmydata.Selected(i) = True
Me.control1.Value = Me.Lstmydata.Column(0, i)
Me.control2.Value = Me.Lstmydata.Column(1, i)
Me.control3.Value = Me.Lstmydata.Column(2, i)
Me.control4.Value = Me.Lstmydata.Column(3, i)
Me.control5.Value = Me.Lstmydata.Column(4, i)
Me.control6.Value = Me.Lstmydata.Column(5, i)

End Sub

Private Sub ToggleButton1_Click()
Dim findrow
Dim i As Integer
Dim crow As Integer

On Error Resume Next

crow = Me.control1.Value
Set findrow = Sheet1.Range("b:b").Find(what:=crow, LookIn:=xlValues).Offset(-1, 0)
cnum = 6
For x = 1 To cnum

Me.Controls("Control" & x).Value = findrow
Set findrow = findrow.Offset(0, 1)
Next
On Error GoTo 0


End Sub

Private Sub ToggleButton2_Click()
Dim findrow
Dim i As Integer
Dim crow As String

On Error Resume Next

crow = Me.control1.Value
Set findrow = Sheet1.Range("b:b").Find(what:=crow, LookIn:=xlValues).Offset(1, 0)
cnum = 6
For x = 1 To cnum

Me.Controls("Control" & x).Value = findrow
Set findrow = findrow.Offset(0, 1)
Next
On Error GoTo 0
End Sub



_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
ملKINGگ OF الضDARKلام



عدد المساهمات : 5
تاريخ التسجيل : 14/10/2019

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Empty
مُساهمةموضوع: رد: فورم السابق والتالى والبحث واضافة البيانات فيديو 3   فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Icon_minitimeالثلاثاء أكتوبر 15, 2019 3:09 pm

شكرا جزيلا لك يا دكتور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
ملKINGگ OF الضDARKلام



عدد المساهمات : 5
تاريخ التسجيل : 14/10/2019

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Empty
مُساهمةموضوع: رد: فورم السابق والتالى والبحث واضافة البيانات فيديو 3   فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Icon_minitimeالثلاثاء أكتوبر 15, 2019 3:13 pm

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

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Empty
مُساهمةموضوع: رد: فورم السابق والتالى والبحث واضافة البيانات فيديو 3   فورم السابق والتالى والبحث واضافة البيانات فيديو 3 Icon_minitimeالثلاثاء أكتوبر 15, 2019 4:34 pm

انا قلت معندش حنزل الملف لان الناس بتتعب فى التحميل فريحتهم

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
 
فورم السابق والتالى والبحث واضافة البيانات فيديو 3
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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