بحث مخصص من جوجل فى أوفيسنا
Custom Search
مجدى يونس

مجموعة من الفورم للبحث والتعديل واضافة بيانات شرح بالفيديو مع الاكواد

197 مشاركات في هذا الموضوع

الاخوة الزملاء

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

ساشرح اليوم بطريقة بسيطة كيفية عمل فورم بحث وتعديل واضافة بيانات

شرح بالفيديوهات مع الاكواد

تكملة لموضوع كيفية تصميم شيت اكسل على الرابط التالى

 

واليكم الفيديو الاول بداية تنفيذ شكل الفورم والدخول الى vb

 

ونتمنى ان يكون الشرح بسيط ويناسب جميع المواضيع

تم تعديل بواسطه مجدى يونس
5 اشخاص اعجابات بهذا

شارك هذه المشاركه


رابط المشاركه
شارك

شككككككككككككككككرراااااااااااااا

1 شخص اعجاب بهذا

شارك هذه المشاركه


رابط المشاركه
شارك

الاخ bmos

شكرا لك

الاخ جلال الجمال

وجزاك الله خير

شارك هذه المشاركه


رابط المشاركه
شارك

الاخوة الزملاء

اليكم الدرس الثانى

كيفية عمل زر اضافة مع ادخال الاكواد

الفيديو

الكود المستحدم فى الشرح

 

Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("بيانات")
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, 8).Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox1.SetFocus

 

1 شخص اعجاب بهذا

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم الاستاذ الفاضل مجدي يونس

الرجاء عمل هذا العمل الرائع وتطبيقه على ملف اكسيل ، وان يكون عام وليس يخص جهة ما بل يمكن تطبيقه على نماذج متعددة  عيادات ، نوادي ، مؤسسات ، افراد ، جرد عهد شحصية  ..... الخ ، كما لا ننسى ان الكثير من الزملاء ليس لهم دراية  في البرامجة وانا واحد منهم رغم ان هناك دراية كبيرة في استخدام الاكسيل لكن البرامجة لاصحاب الاختصاص مع الاحترام لشخصكم الكريم ودمتم بكل الخير  .....

اخوكم  المحب من غزة - فلسطين

شارك هذه المشاركه


رابط المشاركه
شارك

الاخ ابو عصام الغالى

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

اهلا بك بالمنتدى

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

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

تابع بافى الفيديوهات مع التطبيق على الملف بعد تعديلة

 

الاخوة الزملاء

اليكم الدرس الثالث

كيفية عمل زر بحث مع ادخال الاكواد

اكواد زر بحث

Private Sub TextBox12_Change()
Set sh12 = Sheets("بيانات")
LR = sh12.[a2000].End(xlUp).Row
For Each cl In sh12.Range("a5:a100" & LR)
If (Val(Me.TextBox12)) = cl Then
Me.TextBox1 = cl.Offset(0, 0)
Me.TextBox2 = cl.Offset(0, 1)
Me.TextBox3 = cl.Offset(0, 2)
Me.TextBox4 = cl.Offset(0, 3)
Me.TextBox5 = cl.Offset(0, 4)
Me.TextBox6 = cl.Offset(0, 5)
Me.TextBox7 = cl.Offset(0, 6)
Me.TextBox8 = cl.Offset(0, 7)
Me.TextBox9 = cl.Offset(0, 8)
Me.TextBox10 = cl.Offset(0, 9)
Me.TextBox11 = cl.Offset(0, 10)
End If
Next
End Sub

كود زر اغلاق الفورم

Private Sub CommandButton4_Click()
End
End Sub

الفيديو

 

 

ادخال بيانات واستعلام وتعديل وبحث.rar

2 اشخاص اعجابات بهذا

شارك هذه المشاركه


رابط المشاركه
شارك

الاخ ابو عصام الغالى

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

ان يكون عام وليس يخص جهة ما بل يمكن تطبيقه على نماذج متعددة  عيادات ، نوادي ، مؤسسات ، افراد ، جرد عهد شحصية  ..... الخ

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

تحياتى لاهل فلسطين ولاهل غزة جميعا احنا بنتعلم منكم لكم منا كل الاحترام والتقدير

 

 

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم اريد كود لارشفة البيانات في الاكسل والإحتفاظ بها على شكل ارشيف الملف التالي  حيث يتم الحفظ الي حسب رقم الوصل 

bon_commande_new.rar

شارك هذه المشاركه


رابط المشاركه
شارك

الاخ العزيز

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

افتح موضوعك فى موضوع جديد

شارك هذه المشاركه


رابط المشاركه
شارك

الاستاذ الفاضل مجدي يونس بارك الله في شرحك القيم ومشكور عليه وان شاء الله ينتفع به احبتنا في هذا المنتدي العظيم ، لكن نريد ان يكون  البحث بدلالة اي عنصر  غيرالرقم  ، الاسم او العمر.......الخ ، ودمتم بالف خير

10628339_1568557963422064_6217582212316400727_n.jpg

شارك هذه المشاركه


رابط المشاركه
شارك

الاخ ابو عصام الغالى

شكرا على الكرت الرائع

انت مستعجل ليه انا مخلصتش شرح

لازم البداية تكون بسيطة

ولو لاحظت حتلاقى انا منزل فيديو الثالث

وفيديو الخامس الموجود به الرد عليك يعنى فيه فيديو لسه منزلش الرابع

وبالمناسبة عند الضغط على زر تعديل بيانات رص مجموعة بيانات ودى لان بالخطأ

اثناء الشرح ليك تم تغير التكست 12 برقم 11 وهو سبب المشكلة التى ظهرت فى الفيديو

انتظر الشرح على ComboBox1 فيه عددة طرق للبحث ببيانات مختلفة

شارك هذه المشاركه


رابط المشاركه
شارك

ربنا يعطيك الصحة والعافية استاذنا الاخ مجدي يونس ، وان  شاء الله يكون لنا لقاء ونحضر الفيديو الرابع لانني غدا سادخل المستشفي لاجراء عملية جراحيةدعواتكم لنا ولجميع المسلمين بالشفاء ودمتم بكل الخير وجميع الاخوة الاداريين والاعضاء في هذا الموقع الممتاز ونفع بكم المسلمين وجعل ما تقدمونه من علم صدقة جارية ينتفع بها المسلمين والناس،دائما نبتسمم لكل البشر وخصيصا المسلمين البسمة في وجه اخيك صدقة .مع خالص الحب للجميع

 

890.jpg

شارك هذه المشاركه


رابط المشاركه
شارك

الاخ ابو عصام

سلامتك الف سلامة ربنا يشفيك ويعافيك

وتقوم بالسلامة وبصحة جيدة وطمنا عليك

85dd73ef8942045818ed445bd75556.jpg

 

اليك الفيديو الرابع تعديل البيانات

 

 

Dim i As Integer
For i = 1 To 200
If Val(TextBox12.Value) = Cells(i, 1) Then
Cells(i, 1) = TextBox1.Text
Cells(i, 2) = TextBox2.Text
Cells(i, 3) = TextBox3.Text
Cells(i, 4) = TextBox4.Text
Cells(i, 5) = TextBox5.Text
Cells(i, 6) = TextBox6.Text
Cells(i, 7) = TextBox7.Text
Cells(i, 8) = TextBox8.Text
Cells(i, 9) = TextBox9.Text
Cells(i, 10) = TextBox10.Text
Cells(i, 11) = TextBox11.Text
End If
Next
MsgBox "تمت الأضافة بنجاح"
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
 TextBox1.SetFocus

معلش انا اسف انا بجهز الفيديو السادس عن   ComboBox

 الفيديو بياخد 3 ساعات رفع على اليوتيوب بسبب ضعف النت فى مصر

 

 

شارك هذه المشاركه


رابط المشاركه
شارك

 

 

الاخوة الزملاء

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

فورم بحث وتعديل واضافة بيانات الدرس السادس بشاشة رئيسية بسرى

كود الشاشة

 

If TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox "الرجاء ادخال المعلومات كاملة "
    Else
    If TextBox1.Value = "مجدى" And TextBox2.Value = "123" Then
MsgBox "مرحبا بكم في برنامج شيت كنترول مع تحياتي / مجدى عبد المنعم يونس - بورسعيد "
Unload Me

Else
MsgBox "خطأ بكلمة المرور أو إسم المستخدم .... فضلا أعد المحاولة تحياتى / مجدى يونس"
Application.Quit
End If

End If

 

كود فتح الفورم

Private Sub CommandButton7_Click()
magdi.Hide
rr.Show
End Sub

مع تحياتى للجميع

 

شارك هذه المشاركه


رابط المشاركه
شارك

الاخوة الزملاء

مع الفيديو السابع

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

{ وَقُلِ اعْمَلُوا فَسَيَرَى اللَّهُ عَمَلَكُمْ وَرَسُولُهُ وَالْمُؤْمِنُونَ }

الفيديو

 

الملف بالكامل على الرابط التالى

حمل من هنا

1 شخص اعجاب بهذا

شارك هذه المشاركه


رابط المشاركه
شارك

اخى واستاذى مجدى

مجهود كبير

وشرح جميل

عمل اكثر من رائع

بارك الله فيك

تقبل تحياتى

شارك هذه المشاركه


رابط المشاركه
شارك

الاخوة الزملاء

احب ان اشكر كل الزملاء بالمنتدى على مجهودهم الذى استفدت منه

وان شاء الله ساستعين فى الشرح القادم  بمجهودهم مع بعض التعديلات

وذلك لشرح الطرق المتعددة للفورم للاستفادة منها

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

نتعرف على ComboBox 

 

البحث برفم الجلوس
Private Sub ComboBox1_Change()
Set sh12 = Sheets("بيانات")
Lr = sh12.[a2000].End(xlUp).Row
For Each CL In sh12.Range("a5:b" & Lr)
If (Val(Me.ComboBox1)) = CL Then
Me.TextBox1 = CL.Offset(0, 0)
Me.TextBox2 = CL.Offset(0, 1)
Me.TextBox3 = CL.Offset(0, 2)
Me.TextBox4 = CL.Offset(0, 3)
Me.TextBox5 = CL.Offset(0, 4)
Me.TextBox6 = CL.Offset(0, 5)
Me.TextBox7 = CL.Offset(0, 6)
Me.TextBox8 = CL.Offset(0, 7)
Me.TextBox9 = CL.Offset(0, 8)
Me.TextBox10 = CL.Offset(0, 9)
Me.TextBox11 = CL.Offset(0, 10)
End If
Next
End Sub

 

 

البحث برقم الجلوس مع اظهار عمودين الرقم والاسماء
Private Sub ComboBox2_Change()
Set sh12 = Sheets("بيانات")
Lr = sh12.[a2000].End(xlUp).Row
For Each CL In sh12.Range("a5:c" & Lr)
If (Val(Me.ComboBox2)) = CL Then
Me.TextBox2 = CL.Offset(0, 1)

Me.TextBox1 = CL.Offset(0, 0)
Me.TextBox3 = CL.Offset(0, 2)
Me.TextBox4 = CL.Offset(0, 3)
Me.TextBox5 = CL.Offset(0, 4)
Me.TextBox6 = CL.Offset(0, 5)
Me.TextBox7 = CL.Offset(0, 6)
Me.TextBox8 = CL.Offset(0, 7)
Me.TextBox9 = CL.Offset(0, 8)
Me.TextBox10 = CL.Offset(0, 9)
Me.TextBox11 = CL.Offset(0, 10)
End If
Next
End Sub

 

 

1 شخص اعجاب بهذا

شارك هذه المشاركه


رابط المشاركه
شارك

فورم بحث وتعديل واضافة بيانات الدرس العاشر

ادخال قرعة ارقام واسماء

 

 

رابط التحميل

ملفات الاكسل لكل المواضيع المشروحة على الرابط التالى

 

http://magdi54.forumegypt.net/t249-topic#501

 

 

قرعة.rar

1 شخص اعجاب بهذا

شارك هذه المشاركه


رابط المشاركه
شارك

  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه