احمد الجزار2007

up

السلام عليكم 

عندي كود  بيعمل  locked    للحلايا بشرط 

المشكله ان الكود بيبتدي  عمله من الخليه  a1   

انا  عاوز  اعدل عليه  بحيث انه يبدي عمله  من الصف  التاسع ,  ويتجاهل  ما قبل ذلك 

الكود 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect Password:=""

If Range("a" & Target.Row & ":a" & Target.Row).Value = 1 Then

Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = True

Else
Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = False

End If

    ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 

7 دقائق مضت, سليم حاصبيا said:

الملف مفقل بكلمة سر

اسف   تم  ازالة الباس  ورد 

VentCalc V1.0 (2).rar

3 ساعات مضت, سليم حاصبيا said:

لا احد يعمل على صورة

ارفق الملف او جزء منه

==============================

تم ارفاق  ملف  

حضرتك في  خليه  E10   يوجد قايمه  منسدله  الي  بحاول  اعمله   اني  لما  اختار  الخانه  الاولي  من القايمه   ONLY FRESH   يتم   عمل  الخلايا  ( O10 - P 10 - Q 10   )       
LOCKED 

وتظل  الخلايا   ( M 10 ,  N 10  )  مفتوحه   

والعكس   عند اختيار  ONLY EXHAUST      من  القايمه  في E10  

 يتم  فتح  (  O,P,Q )      وغلق  ( M,N )  

اما  الاختيار  الثالت   تبقي  جميع  الخلايا  مفتوحه  


وهذا   يتم  تطبيقه علي   جميع  الصفوف  لنفس  الاعمده   بمعني  عند  تكرار  الصف  ليصبح  E11        يعمل  نفس  الفكره   





شكرا  جدا  علي  اهتمام   حضراتكم  



 

VentCalc V1.0.rar

ايه ياشباب  مافيش  مساعده 

السلام عليكم  

لو سمحتم  عندي شيت اكسيل   في قايئمه  منسدله  تحتوي علي  3  قيم  ( كتابيه  )  ولتكن في D9 

اريد  اعمل  شيء  
عند اختيار  الحاله الاولي  من القايمه المندسله  يعمل  LOCKED   مثلا  لعدد  من الخلايه ولتكن    N9:Q9

ويكون الكواد  ده مستمر  معاي في  كل الصفوف  


اولا  لو سمحتم  هل  في  معادله داخل الاكسيل  تعمل  كده  

ولو  VBA    ياريت  لو في كود  جاهز  او  كود مشابه  كمرجع لي  


مرفق صوره للشيت  


 

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



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

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

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

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

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


مرفق   الملف   

fresh air R2.rar

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


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

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


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

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

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


مرفق  صوره 

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

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

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

fresh air with macro.rar

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

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

 

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

السلام عليكم 

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

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

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

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

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