Mohamed Ezz

مستر على

انى اعجز عن الشكر لك فيما تقدمه لى من مساعدة انى آمل من الله سبحانه و تعالى ان يكون ذلك فى ميزان حسناتك بإذن الله .

و لك منى جزيل الشكر

تحياتى Mr. ali mohamed ali 

كيفية عمل المعادلة VLOOKUP هذه فى VBA لغة البرمجة     (IF(B12="","",VLOOKUP(B12,Sheet!A:B,2)=

VLookUP.xls

أنا سعيد جدا بمعرفتك
و بصراحة انا بشكرك يا مستر على كثيرا على ما تقدمه من مساعدات للآخرين
و اتمنى من الله ان يوفقك فى حياتك بكل خير و سعادة

برجاء المساعدة فى ايجاد حل طريقة الجمع بواسطة اف الشرطية  ؟؟؟

Summary Report.xlsx

مشكور اخى mennad sofiane
لك منى الف تحية 

جزالك الله و اياك

تحياتى لكل الأخوه الأفاضل !!!
كيفية حماية الخلية بعد الكتابة فيها على ان تكون بعد عملية حفظ الملف
حاولت كثيرا و لكنى لم انجح فيه
و الكود الذى حاولت معه و لكنى لم انجح معه 
برجاء المساعدة !!!
 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Ali_Prodc
End Sub

Private Sub Workbook_Open()

End Sub
Public Sub Ali_Prodc()
Dim Sh As Worksheet
Dim Rng As Range
Ch_P
For Each Sh In ThisWorkbook.Worksheets
If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False
If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True
 For Each Rng In Sh.UsedRange
  If Rng.Value > Empty Or Rng.HasFormula Then Rng.Locked = True
 Next
If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123"
Next
End Sub
Private Sub Ch_P()
Dim Sn As Worksheet
For Each Sn In ThisWorkbook.Worksheets
If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123"
Next
End Sub

Purchasing Analysis-Test.xlsm

Purchasing Analysis-Test.xlsm

مرفق الملف للأطلاع 
و لم تتم حتى الان معرفة السبب لعدم تشغيل الكود فى الملف

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Ali_Prodc
End Sub

Private Sub Workbook_Open()

End Sub
Public Sub Ali_Prodc()
Dim Sh As Worksheet
Dim Rng As Range
Ch_P
For Each Sh In ThisWorkbook.Worksheets
If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False
If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True
 For Each Rng In Sh.UsedRange
  If Rng.Value > Empty Or Rng.HasFormula Then Rng.Locked = True
 Next
If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123"
Next
End Sub
Private Sub Ch_P()
Dim Sn As Worksheet
For Each Sn In ThisWorkbook.Worksheets
If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123"
Next
End Sub

برجاء المساعدة !!!

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

و لكن جربت بالفعل كل المحاولات و لا اصل الى حل للمشكلة و الكود لا يعمل معى بالمطلوب و لا اعرف السبب حتى الان ؟؟؟

سلمت يداك اخى ali mohamed ali

و لكن المشكلة انى اريد الحماية بعد الحفظ و ليس بعد ادخال البيانات مباشرة حتى يستطيع المستخدم التعديل فى حالة الخطأ و بعد حفظ الملف لا يستطيع التعديل إلا بالباسورد
و لكى من اجمل كلمات الشكر و التحية ...

 ??? How To Auto lock cells after data entry when file saved 

كيفية قفل الخلايا فى اكسيل 2007 تلقائيًا بعد إدخال البيانات عند حفظ الملف ؟؟؟

السلام عليكم 
هل من مساعدة فى ايجاد الحل ؟؟؟

 

 

السلام عليكم 
أخوتى الأعزاء

بخصوص الكود السابق حاولت تجربته تكرارا ومرارا لكن يظهرلى خطأ فى الكود Rng.Locked = True

كما هو موضح بالصورة ... كيف يمكن التغلب على هذه المشكلة 

ظهرت عندى نفس المشكله بالصوره 

فهل من مساعده من اخواننا الكرام

برجاء المساعدة فى الحل لهذه المشكلة

اشكرك جزيلا مستر / سليم حاصبيا

و لكن هل يمكن للحماية ان تكون بعد الحفظ ؟؟؟

أحبائى الكرام 

كيف يمكن حماية خلية أو عدة خلايا ( تلقائياً ) بعد الكتابة فيها.. بحيث يمكن الكتابة فيها لمرة واحدة ، وكذلك لا يمكن تغييرها الا بعد فك الحمايه (( وذلك لحفظ السجلات من التغيير ))

وشكـــــراً

أشكر كل من ساهم فى ايجاد الحل 
و خصوصا الاستاذ / زيزو العجوز
و الاستاذ / ali mohamed ali
و تم الوصول للمعادلة الصحيحة 

{((MIN(IF(($E$6:$BC$6="BY QTY")*($E$10:$BC$10<>0),$E$10:$BC$10=}

ali mohamed ali
لوصوله لنفس النتيجة 
مع تحياتى ***

عزيزى و استاذى الكريم زيزو العجوز

أنا بالفعل جربت المعادلة التى ارسلتها لى و لكنها لم تنجح معى 

فهل يوجد معادلة أو حل آخر ؟؟؟

و لك جزيل الشكر 

أرجو من السادة الكرام المساعدة فى ايجاد حل للمعادلة المفرقة فى شيت الاكسيل لإيجاد اصغر رقم فى عدة خلايا متفرقة 
مرفق ملف به مكان المعادلة

و لكم جزيل الشكر

Consumption.xlsx

برجاء من احبائى الاعزاء سرعة الرد فى ايجاد الحل
و لكم جزيل الشكر
مع وافر تحياتى 

أعزك الله استاذ ali mohamed ali 
و لكن المشكلة ان الخلايا فى الملف المرسل غير مجمعة و لكنها خلايا متفرقة و بينها معادلات و ارقم اخر و لذلك لا تستطيع الدالة ايجاد الحل المطلوب

مرسل الملف و به المعادلة المطلوبة 

و اشكر كل من ساهم فى المساعدة
و لكم جزيل الشكر

Consumption.xlsx

اشكر السادة الأفاضل على الرد 

و لكن المشكلة فى ان الخلايا المتفرقة داخل دالة IF الموجودة داخل دالة MIN و لا استطيع التعمل معاها

Consumption.xlsx

كود ايجاد اصغر رقم فى عدة خلايا متفرقة

في 4/29/2017 at 13:35, ماشي حافي said:

كيفكم

لم اجد دالة AGGREGATE  في اكسل 2010

هل هناك طريقه لاضافتها

 

لا تيأس أخي فاليأس ليس من شيم الكرام

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

 

 

 

أشكرك كثيرا كثيرا --- الموضوع انها تعمل معى فى Office 2007 و office 2013 فى العمل و نظام العمل لا يسمح لى بأى تعديلات فى أنظمة العمل