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







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


شاطر | 
 

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

اذهب الى الأسفل 
انتقل الى الصفحة : 1, 2, 3 ... 9 ... 17  الصفحة التالية
كاتب الموضوعرسالة
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الخميس ديسمبر 01, 2016 4:43 pm

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

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

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

شرح بالفيديوهات مع الاكواد
ملحوظة ارسل رسالة او ابعث رد ليظهر روابط الملفات

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

Label لعرض النص الذي هو غير قابل للتعديل من قبل المستخدم، ويستخدم لوصف عناصر التحكم الأخرى. TextBox لادخال النص ويسمح للمستخدم بالادخال والتعديل من خلاله ComboBox هي قائمة من البنود التي يمكن للمستخدم الأختيار منها أو الادخال وهويعتبر مزيج من مربع النص والقائمة ListBox هي قائمة من البنود والتي تسمح للمستخدم الاختيار منها CheckBox خانة اختيار ما إذا كان اختيارها أم لا، يشير إلى القيم True أو False. تستخدم لتحديد خيارات يستبعد بعضها بعضا بمعنى. نعم / لا، تشغيل / إيقاف، ... OptionButton تستخدم لجعل اختيار واحد من خيارات متعددة. ToggleButton تنفيذ إجراء واحد عند النقر عليها أولا واجراء اخر عند النقر عليه مرة اخري Frame اطار ويستخدم لضم مجموعة مشتركة في اطار واحد مثلا CommandButton زر امر عند الضغط عليه ينفذ اوامر برمجية TabStrip هي عبارة عن مجموعة من علامات التبويب حيث كل علامة تبويب يحتوي على نفس مجموعة من الضوابط، ومحتوى التغييرات الضوابط عند تحديد علامة تبويب مختلفة. MultiPage ويتألف من واحد أو أكثر من الصفحات، تحتوي كل منها على مجموعتها الخاصة من الضوابط. اختيار الصفحة (أي جعلها مرئية) يخفي الصفحات الأخرى للتحكم متعدد الصفحات. ScrollBar يستخدم لتغيير (زيادة أو إنقاص) القيمة المعروضة من قبل عناصر التحكم الأخرى. يمكن سحب مربع التمرير لتغيير قيمة عنصر التحكم على زيادات أكبر SpinButton مشابهة لشريط التمرير، ويستخدم لزيادة أو إنقاص القيمة المعروضة من قبل عناصر التحكم الأخرى، دون مرفق السحب. Image يستخدم لعرض الصور علي الفورم RefEdit تسمح للمستخدم لتحديد نطاق ورقة عمل من مربع، أو أن يكتب في نطاق فيه.



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في الأحد مارس 12, 2017 5:22 pm عدل 2 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الخميس ديسمبر 01, 2016 4:50 pm

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

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

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

الفيديو


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

الكود:
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

شرح

UserForm1.Show يستخدم لعرض الفورم ويجب ادراجه في موديل يمكنك إنشاء زر في ورقة عمل، ثم انقر بزر الماوس الأيمن لتعيين الماكرو إلى هذا الزر، ثم حدد الماكرو الذي يظهر في UserForm Unload UserForm1 يستخدم لاخفاء الفورم وتفريغ الذاكرة Unload Me نفس وظيفة الامر السابق UserForm1.Hide يستخدم لاخفاء الفورم مؤقتا بمعني انه مازل موجود بالذاكرة UserForm1.PrintForm يستخدم لطباعة الفورم UserForm1.Show False يمكن المستخدم من العمل علي الاكسيل مع وجود الفورم End يستخدم في زر امر لانهاء الفورم UserForm1.Caption = "officena." النص الذي يظهر اعلي الفورم UserForm1.Height = 350 تعيين ارتفاع الفورم UserForm1.Width = 550 تعيين عرض الفورم UserForm1.Left = 30 المسافة بين الفورم والحافة اليسري للشاشة بالبيسكل UserForm1.Top = 50 المسافة بين الفورم والحافة العلوية للشاة بالبيسكل

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في الأحد مارس 12, 2017 5:25 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الخميس ديسمبر 01, 2016 5:00 pm

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

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

اكواد زر بحث

الكود:
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,
Me.TextBox10 = cl.Offset(0, 9)
Me.TextBox11 = cl.Offset(0, 10)
End If
Next

End Sub

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

الكود:
Private Sub CommandButton4_Click()
End
End Sub

الفيديو


_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في الخميس ديسمبر 01, 2016 5:09 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الخميس ديسمبر 01, 2016 5:06 pm

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



الكود:
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

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الخميس ديسمبر 01, 2016 5:11 pm

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


_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الخميس ديسمبر 01, 2016 5:15 pm

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

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

كود الشاشة

الكود:
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

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 02, 2016 2:43 pm

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

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

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

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

الفيديو



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في الثلاثاء ديسمبر 27, 2016 4:30 am عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 02, 2016 2:49 pm

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

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

نتعرف على  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,
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,
Me.TextBox10 = CL.Offset(0, 9)
Me.TextBox11 = CL.Offset(0, 10)
End If
Next
End Sub

ان شاء الله حنزل ملف الاكسل لكل فورم

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 02, 2016 5:29 pm

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



الكود:
Private Sub TextBox1_Change()
TextBox2.Value = ""
 TextBox3.Value = ""
 TextBox4.Value = ""
 TextBox5.Value = ""
If TextBox1.Value <> "" Then
Set aa = Range("magdi").Find(TextBox1.Value)
If Not aa Is Nothing Then
TextBox2.Text = Cells(aa.Row, 1).Value
TextBox3.Text = Cells(aa.Row, 2).Value
TextBox4.Text = Cells(aa.Row, 4).Value
TextBox5.Text = Cells(aa.Row, 5).Value
End If
End If
End Sub


الكود:
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
TextBox1.Value = ListBox1.List(i, 0)
TextBox2.Text = ListBox1.List(i, 1)
TextBox3.Text = ListBox1.List(i, 2)
TextBox4.Text = ListBox1.List(i, 3)
TextBox5.Text = ListBox1.List(i, 4)

End If
Next i
End Sub


الكود:
Private Sub TextBox6_Change()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
Sheets(1).Activate
ListBox1.Clear
ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
k = 0
For Each c In Range("B6:B" & ss)
B = InStr(c, TextBox6)
If B > 0 Then
ListBox1.AddItem
 ListBox1.List(k, 0) = Cells(c.Row, 2).Value
  ListBox1.List(k, 1) = Cells(c.Row, 1).Value
   ListBox1.List(k, 2) = Cells(c.Row, 3).Value
    ListBox1.List(k, 3) = Cells(c.Row, 4).Value
     ListBox1.List(k, 4) = Cells(c.Row, 5).Value
   k = k + 1
End If
Next c
End Sub



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في السبت ديسمبر 31, 2016 1:58 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 02, 2016 5:44 pm

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





_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في السبت ديسمبر 31, 2016 2:08 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 02, 2016 5:58 pm

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




_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في السبت ديسمبر 31, 2016 2:18 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 02, 2016 6:02 pm

رسم بيانى فى الفورم الدرس الثانى عشر




Const MyWidth As Single = 75 ' عرض الكنترول
Const MyHight As Single = 18 ' طول الكنترول

Private Sub kh_AddControlsRng()
Dim X As Range
Dim Lf As Double, Tp As Double
Dim ContColmn As Integer, r As Integer, c As Integer

Set X = Range("A1:C7")
ContColmn = X.Columns.Count
For r = 1 To X.Rows.Count
For c = 1 To ContColmn
Lf = (ContColmn - c) * MyWidth
With Me.Frame1.Controls.Add("Forms.Label.1")
.BorderStyle = 1
.Move Lf, Tp, MyWidth, MyHight
Call kh_Format(.Name, X.Cells(r, c))
End With
Next
Tp = Tp + MyHight
c = 0
Next
Set X = Nothing
End Sub

Private Sub kh_Format(iName As String, MyCel As Range)
With Me.Controls(iName)
.BackColor = MyCel.Interior.Color
.Caption = MyCel.Value
.TextAlign = 2
With .Font
.Name = MyCel.Font.Name
.Bold = True
.Size = MyCel.Font.Size
End With
End With
End Sub


Private Sub PictureChartObject()
Set CurrentChart = ورقة1.ChartObjects("مخطط 2").Chart
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)
'---------------------------------
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Frame1.SpecialEffect = 0
Me.Image1.SpecialEffect = 0

PictureChartObject
kh_AddControlsRng
End Sub



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في الإثنين أكتوبر 16, 2017 11:18 am عدل 2 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 02, 2016 6:15 pm

نتيجة بالميلادى والهجرى الدرس الثالث عشر





_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في السبت ديسمبر 31, 2016 2:49 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 02, 2016 6:40 pm

ملف الاكسل به شرح الفيديو الاول حتى الثامن

المحتوى مخفى للرد للتحميل


_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
ahmad hameed



عدد المساهمات : 3
تاريخ التسجيل : 03/12/2016

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   السبت ديسمبر 03, 2016 5:58 pm

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



عدد المساهمات : 3
تاريخ التسجيل : 03/12/2016

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   السبت ديسمبر 03, 2016 6:04 pm

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الأحد ديسمبر 04, 2016 6:25 am

الاخ احمد
شكرا لك الرابط شغال وحملت منه وعموما حملت الملف على رابط اخر

حمل من هنا

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الأحد ديسمبر 04, 2016 6:37 am

الخروج من الفورم واخفاء الاطار وصورة فى الزر الدرس الرابع عشر



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في السبت ديسمبر 31, 2016 3:13 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الأحد ديسمبر 04, 2016 10:56 am

فورم جلب صور مع ادخال بيانات وتعديلها الدرس الخامس عشر



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في السبت ديسمبر 31, 2016 3:22 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
ahmad hameed



عدد المساهمات : 3
تاريخ التسجيل : 03/12/2016

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الأحد ديسمبر 04, 2016 5:11 pm

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الأحد ديسمبر 04, 2016 8:45 pm

اى خدمة

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الثلاثاء ديسمبر 13, 2016 6:33 am


ملف الاكسل الخاص بالبحث عن القران الكريم



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في الأربعاء ديسمبر 14, 2016 2:29 am عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مجدى يونس
Admin
avatar

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الثلاثاء ديسمبر 13, 2016 7:29 am

فورم بحث سريع فى القران الكريم الدرس السادس عشر





_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في السبت ديسمبر 31, 2016 3:37 pm عدل 3 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
مازن امام



عدد المساهمات : 1
تاريخ التسجيل : 13/12/2016

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الثلاثاء ديسمبر 13, 2016 11:20 pm

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

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

مُساهمةموضوع: رد: فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد   الجمعة ديسمبر 16, 2016 7:23 am

تأثيرات على الفورم  الدرس السابع عشر



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-



عدل سابقا من قبل مجدى يونس في السبت ديسمبر 31, 2016 3:47 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
 
فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 17انتقل الى الصفحة : 1, 2, 3 ... 9 ... 17  الصفحة التالية

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