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

اضافة الاوامر في الازرار Uoou_u10





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


شاطر
 

 اضافة الاوامر في الازرار

اذهب الى الأسفل 
كاتب الموضوعرسالة
لاتبخل



عدد المساهمات : 14
تاريخ التسجيل : 31/03/2017

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالإثنين أبريل 03, 2017 1:39 pm

الرجاء مساعدتي في اضافة الاوامر في الازرار

الملف
الرجوع الى أعلى الصفحة اذهب الى الأسفل
لاتبخل



عدد المساهمات : 14
تاريخ التسجيل : 31/03/2017

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالإثنين أبريل 03, 2017 1:45 pm

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

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

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالثلاثاء أبريل 04, 2017 5:07 am

الاخ لا تبخل
انا شفت موضوعك الان ان شاء الله لا نبخل عليك

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

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

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالسبت أبريل 08, 2017 5:55 am

فى زر البحث ادخل الاكواد
Set sh12 = Sheets("QUOTATION BLOCKS & KERBS")
LR = sh12.[a2000].End(xlUp).Row
For Each cl In sh12.Range("a5:j" & LR)
If (Val(Me.TextBox19)) = 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, Cool
Me.TextBox10 = cl.Offset(0, 9)
Me.TextBox11 = cl.Offset(0, 10)
Me.TextBox12 = cl.Offset(0, 11)
Me.TextBox13 = cl.Offset(0, 12)
Me.TextBox14 = cl.Offset(0, 13)
Me.TextBox15 = cl.Offset(0, 14)
Me.TextBox16 = cl.Offset(0, 15)
Me.TextBox17 = cl.Offset(0, 16)
Me.TextBox18 = cl.Offset(0, 17)
End If
Next

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

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

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالسبت أبريل 08, 2017 5:57 am

فى زر خروج مع الحفظ الاخير
ThisWorkbook.Save
Unload Me
Application.quite
Application.DisplayAlerts = False

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

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

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالسبت أبريل 08, 2017 5:58 am

فى زر خروج من الفورم
Unload Me

فى زر مسح البيانات
Dim aa As Integer
If MsgBox(" هل تريد تفريغ الخلايا من علي الفورم ", vbYesNo, "GHANDOUR") = vbYes Then
For aa = 1 To 18
' الارقام 1 الي 18 تمثل التكست بوكس عندك
Me.Controls("TextBox" & aa).Value = ""
Next
Exit Sub
Else
Exit Sub
End If

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

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

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالسبت أبريل 08, 2017 6:01 am

ماذا تقصد بزر حفظ وقد عملت لك زر خروج مع الحفظ اظن ليس له معنى لوجوده
وزر حذف نهائين تقصد حذف سطر معين
باقى الازرار سابعثها بعد الرد

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



عدد المساهمات : 14
تاريخ التسجيل : 31/03/2017

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالإثنين أبريل 24, 2017 1:44 pm

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

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

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالإثنين أبريل 24, 2017 7:18 pm

ضع اخي الكريم الكود التالي في زر ( تسجيل بيانات جديدة )

Private Sub CommandButton2_Click()
'كود زر تسجيل بيانات
Dim iRow As Long
Dim ws As Worksheet
Dim ii As Integer

Set ws = Worksheets("QUOTATION BLOCKS & KERBS")
iRow = ws.Cells(Rows.Count, 2).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, Cool.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
ws.Cells(iRow, 12).Value = Me.TextBox12.Value
ws.Cells(iRow, 13).Value = Me.TextBox13.Value
ws.Cells(iRow, 14).Value = Me.TextBox14.Value
ws.Cells(iRow, 15).Value = Me.TextBox15.Value
ws.Cells(iRow, 16).Value = Me.TextBox16.Value
ws.Cells(iRow, 17).Value = Me.TextBox17.Value
ws.Cells(iRow, 18).Value = Me.TextBox18.Value

For ii = 1 To 18
Me.Controls("TextBox" & ii).Value = ""
Next
End Sub

_________________
اضافة الاوامر في الازرار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
bader



عدد المساهمات : 2
تاريخ التسجيل : 21/04/2018

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالأحد يونيو 10, 2018 9:41 am

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

Essam1

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

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالسبت مارس 23, 2019 12:03 pm

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

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

اضافة الاوامر في الازرار Empty
مُساهمةموضوع: رد: اضافة الاوامر في الازرار   اضافة الاوامر في الازرار Avatarالأحد مارس 24, 2019 12:27 pm

عفوا لكم

_________________
اضافة الاوامر في الازرار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
اضافة الاوامر في الازرار
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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