مساعده في انشاء ماكرو

[احمد الجزار2007]

السلام عليكم 

لو سمحتوا  ياشباب   انا بعمل  شيت  اكسيل   بيحسب  بعض المعادلات الهندسيه 
الصف الواحد  بيتكون من  قايمه منسدله  بتسادعي بعض المعلومات من  جدول   مسجل  في  الاكسيل  

الفكره  اني   مطلوب  مني اعمل   زرار  ADD   بلضغط عليه  يضيف صف  جديد  يحتوي علي  نفس  القائمه المنسدله والمعادلات المرتبطه 

جربت  اكواد  ان  اختار  اخر  صف   

ولكن  مش  قادر  اوصل  اني  استخدم الاختيار  في  عمل  AUTOFILL    او  نسخ   في الصف  التالي 

مرفق صوره  من الملف  

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Sub iAutoFill()

Last = Cells(Rows.Count, "F").End(xlUp).Row
Range("F" & Last & ":N" & Last).AutoFill Destination:=Range("F" & Last & ":N" & Last + 1), Type:=xlFillDefault

End Sub

 

1 ساعه مضت, احمد الجزار2007 said:

السلام عليكم 

لو سمحتوا  ياشباب   انا بعمل  شيت  اكسيل   بيحسب  بعض المعادلات الهندسيه 
الصف الواحد  بيتكون من  قايمه منسدله  بتسادعي بعض المعلومات من  جدول   مسجل  في  الاكسيل  

الفكره  اني   مطلوب  مني اعمل   زرار  ADD   بلضغط عليه  يضيف صف  جديد  يحتوي علي  نفس  القائمه المنسدله والمعادلات المرتبطه 

جربت  اكواد  ان  اختار  اخر  صف   

ولكن  مش  قادر  اوصل  اني  استخدم الاختيار  في  عمل  AUTOFILL    او  نسخ   في الصف  التالي 

مرفق صوره  من الملف  

 

للمحافظة على الترتيب نضيف سطر

Range("F" & Last + 1) = Last - 9

فيصبح الكود :

Sub iAutoFill()

Last = Cells(Rows.Count, "F").End(xlUp).Row
Range("F" & Last & ":N" & Last).AutoFill Destination:=Range("F" & Last & ":N" & Last + 1), Type:=xlFillDefault
Range("F" & Last + 1) = Last - 9

End Sub

 

[احمد الجزار2007]

شكرا. جدا. بجربه واعرف حضرتك النتيجه 

[احمد الجزار2007]

شكرا  جزيلا  لحضرتك لكن قابلتني  مشكله ان  مش كل   الاعمده  داخله  في  المعادله 

ممكن  حضرتك تقولي  اغير  ايه في الكود علي  حسب  الاعمده الي عندي 

 

[احمد الجزار2007]

مرفق  ملف  الاكسيل  

fresh air with macro.rar

[أبو حنــــين]

السلام عليكم

اخي  انظر الى هذا السطر

Range("F" & Last & ":N" & Last).AutoFill Destination:=Range("F" & Last & ":N" & Last + 1), Type:=xlFillDefault

 

نسخ السطر الى الاسفل يبدأ من F  اي العمود رقم 6 حتي  N  اي العمود رقم 14

اذا اردت زيادة نطاق النسخ فما عليك سوي تغيير ارقام الاعمدة 

مثال نريد النسخ من  6  الى   23 ، اي من  F   الى   W   يصبح الكود بالشكل التالي

Range("F" & Last & ":W" & Last).AutoFill Destination:=Range("F" & Last & ":W" & Last + 1), Type:=xlFillDefault

 

fresh air with macro2.rar

[احمد الجزار2007]

شكرا جدا  حضرتك    تمام  شغال  زي الفل  


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

بمعني  اني  عندي  مجموعه  من الاصفف  تاخد  رقم   1   ومجموعه  تاخد رقم  2  ومجموعه  تاخد الرقم  3  يعمني   اطلع  مجموع  كل  الخلايا  الي  في  الصف   1  ومجموع الخلاياا   في  الصفوف  الي ليها   رقم  2  وهكذا   


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

يعني  انا   محتاج   دايما  الصف  بتاع  المجموع  يبقي  اخر  اخر  

هل  حضرتك  في  فكره  معينه  ممكن  اطبقها  


مرفق  صوره 

تمام  وصلت ليها  عن طريق  دالة  SUBTOTAL    

شكرا  جدا    لحضرتك 

[احمد الجزار2007]

السلام عليكم استاذي الفاضل 

هل  الكود الخاص  باضافة  الصف   يعمل في   حالة  كانت  الصفوف  في  جدول  

لان  عند  تطبيقه  علي  خلايا  في  جدول  
يعطي  ايرور  بعد  اضافة  سطر   

بمعني  يضيف  سطر  وفي  الثاني   يعطي  ايرور   لازم   اضغط  في  خليه  فارغه  ثم  اكرره   فيعمل   وهكذا


مرفق   الملف   

fresh air R2.rar

[أبو حنــــين]

السلام عليكم

بالنسبة للسؤال الاخير حول الجدول يصبح الكود بهذا الشكل

Sub Button2_Click()
Last = Cells(Rows.Count, "F").End(xlUp).Row
Range("F" & Last & ":W" & Last).AutoFill Destination:=Range("F" & Last & ":W" & Last + 1), Type:=xlFillDefault
Range("F" & Last + 1) = Last - 9
Range("F" & Last + 2).Select
End Sub

بالنسبة للسؤال المتعلق بالجمع  فهو غير واضح

اين هو موقع الخلايا التي تحتوي على الجمع وما هي الاعمدة الاتي تقوم بجمع قيمها

انت لم توضح ذلك في الملف المرفق

في ١٦‏/١٠‏/٢٠١٦ at 14:10, احمد الجزار2007 said:

مرفق  ملف  الاكسيل  

 

 

تم تعديل أكتوبر 17, 2016 بواسطه أبو حنــــين

[احمد الجزار2007]

2 ساعات مضت, أبو حنــــين said:

السلام عليكم

بالنسبة للسؤال الاخير حول الجدول يصبح الكود بهذا الشكل

Sub Button2_Click()
Last = Cells(Rows.Count, "F").End(xlUp).Row
Range("F" & Last & ":W" & Last).AutoFill Destination:=Range("F" & Last & ":W" & Last + 1), Type:=xlFillDefault
Range("F" & Last + 1) = Last - 9
Range("F" & Last + 2).Select
End Sub

بالنسبة للسؤال المتعلق بالجمع  فهو غير واضح

اين هو موقع الخلايا التي تحتوي على الجمع وما هي الاعمدة الاتي تقوم بجمع قيمها

انت لم توضح ذلك في الملف المرفق

 

سؤال  الجمع الحمد لله   مشكلتي  اتحلت  عن  طريق  معادلة  subtotal       وكانت  المشكله  في  جمع  الخلايا  المفلتره  


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

جربت  حاجه كده  منفعتش  
rows(ActiveCell.Row).EntireRow.Delete 

وده  كود جبته عن  طريق  macro record    ولكن  المدي  علي  صف  معين  

 

Sub Button23_Click()
'
' Button23_Click Macro
'

'
    Range("F23").Select
    Selection.ListObject.ListRows(15).Delete
End Sub



لو ينفع  اخلي  المدي  هو  الخليه  المنشطه الي  انا   واقف  عليها