بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
31 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه Mohamed Ezz
-
-
كيفية عمل المعادلة VLOOKUP هذه فى VBA لغة البرمجة (IF(B12="","",VLOOKUP(B12,Sheet!A:B,2)=
-
أنا سعيد جدا بمعرفتك
و بصراحة انا بشكرك يا مستر على كثيرا على ما تقدمه من مساعدات للآخرين
و اتمنى من الله ان يوفقك فى حياتك بكل خير و سعادة- 1
-
برجاء المساعدة فى ايجاد حل طريقة الجمع بواسطة اف الشرطية ؟؟؟
-
مشكور اخى mennad sofiane
لك منى الف تحية -
-
تحياتى لكل الأخوه الأفاضل !!!
كيفية حماية الخلية بعد الكتابة فيها على ان تكون بعد عملية حفظ الملف
حاولت كثيرا و لكنى لم انجح فيه
و الكود الذى حاولت معه و لكنى لم انجح معه
برجاء المساعدة !!!
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Ali_Prodc
End SubPrivate 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
-
مرفق الملف للأطلاع
و لم تتم حتى الان معرفة السبب لعدم تشغيل الكود فى الملفPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Ali_Prodc
End SubPrivate 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 تلقائيًا بعد إدخال البيانات عند حفظ الملف ؟؟؟
-
السلام عليكم
هل من مساعدة فى ايجاد الحل ؟؟؟ -
-
برجاء المساعدة فى الحل لهذه المشكلة
-
اشكرك جزيلا مستر / سليم حاصبيا
و لكن هل يمكن للحماية ان تكون بعد الحفظ ؟؟؟
-
أحبائى الكرام
كيف يمكن حماية خلية أو عدة خلايا ( تلقائياً ) بعد الكتابة فيها.. بحيث يمكن الكتابة فيها لمرة واحدة ، وكذلك لا يمكن تغييرها الا بعد فك الحمايه (( وذلك لحفظ السجلات من التغيير ))
وشكـــــراً
-
أشكر كل من ساهم فى ايجاد الحل
و خصوصا الاستاذ / زيزو العجوز
و الاستاذ / ali mohamed ali
و تم الوصول للمعادلة الصحيحة{((MIN(IF(($E$6:$BC$6="BY QTY")*($E$10:$BC$10<>0),$E$10:$BC$10=}
و بعد فضل الله سبحانه و تعالى
و مساعدة الاستاذ كارولس ابراهيم
و شكر خاص الى الاستاذ /ali mohamed ali
لوصوله لنفس النتيجة
مع تحياتى *** -
عزيزى و استاذى الكريم زيزو العجوز
أنا بالفعل جربت المعادلة التى ارسلتها لى و لكنها لم تنجح معى
فهل يوجد معادلة أو حل آخر ؟؟؟
و لك جزيل الشكر
-
أرجو من السادة الكرام المساعدة فى ايجاد حل للمعادلة المفرقة فى شيت الاكسيل لإيجاد اصغر رقم فى عدة خلايا متفرقة
مرفق ملف به مكان المعادلةو لكم جزيل الشكر
-
برجاء من احبائى الاعزاء سرعة الرد فى ايجاد الحل
و لكم جزيل الشكر
مع وافر تحياتى -
أعزك الله استاذ ali mohamed ali
و لكن المشكلة ان الخلايا فى الملف المرسل غير مجمعة و لكنها خلايا متفرقة و بينها معادلات و ارقم اخر و لذلك لا تستطيع الدالة ايجاد الحل المطلوبمرسل الملف و به المعادلة المطلوبة
و اشكر كل من ساهم فى المساعدة
و لكم جزيل الشكر -
اشكر السادة الأفاضل على الرد
و لكن المشكلة فى ان الخلايا المتفرقة داخل دالة IF الموجودة داخل دالة MIN و لا استطيع التعمل معاها
-
كود ايجاد اصغر رقم فى عدة خلايا متفرقة
-
في 4/29/2017 at 13:35, ماشي حافي said:
كيفكم
لم اجد دالة AGGREGATE في اكسل 2010
هل هناك طريقه لاضافتها
-
لا تيأس أخي فاليأس ليس من شيم الكرام
حاول تشوف نسخة أوفيس تانية غير اللي عندك يمكن يكون المشكلة من نسخة الأوفيس لو فضلت نفس المشكلة جرب الأوفيس اللي إنت بتسطبه على جهاز تاني لو اشتغلت على جهاز تاني يببقا المشكلة في النسخة عندك نزل ويندوز تاني غير اللي إنت بتسطبه .. لو فضلت المشكلة موجودة إن شاء الله أكيد تلاقي حل .. لأن مش معقولة شغالة مع ناس كتير إلا إنت .. إلا إذا كنت بقا من اللي بينطبق عليهم المثل (ولو حطوا على راسوا فانوس
أشكرك كثيرا كثيرا --- الموضوع انها تعمل معى فى Office 2007 و office 2013 فى العمل و نظام العمل لا يسمح لى بأى تعديلات فى أنظمة العمل
Use VLOOKUP Function In VBA
في منتدى الاكسيل Excel
قام بنشر
مستر على
انى اعجز عن الشكر لك فيما تقدمه لى من مساعدة انى آمل من الله سبحانه و تعالى ان يكون ذلك فى ميزان حسناتك بإذن الله .
و لك منى جزيل الشكر
تحياتى Mr. ali mohamed ali