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







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


شاطر | 
 

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

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



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

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

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

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



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

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

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

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

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

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

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

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

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

مُساهمةموضوع: رد: اضافة الاوامر في الازرار   السبت أبريل 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

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

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

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

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

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

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

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

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

مُساهمةموضوع: رد: اضافة الاوامر في الازرار   السبت أبريل 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

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

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

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

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

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

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

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



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

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

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

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

مُساهمةموضوع: رد: اضافة الاوامر في الازرار   الإثنين أبريل 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

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

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

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