SPHINX

يرجى المساعده في تعديل الكود الاتي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("S5").Value > 179 And Target.Address <> "$s$5" Then Range("A5:R5").Interior.ColorIndex = 6 ElseIf Range("S5").Value < 180 And Target.Address <> "$s$5" Then Range("A5:R5").Interior.ColorIndex = xlNone End If End Sub الكود السابق يقوم بتلوين الصف من a5 :r5 في حاله ما اذا كان القيمة في s5 اكبر من 179 ما اريدة تطبيق نفس الكود او كود مشابه يقوم بتلوين العمود بالكامل وحذف التلوين لو تغيير الرقم

ياجماعة فعلا ابدعنوا الكود اكثر من ممتاز ولكن لي اضافة اعتقد ان الكل سوف يستفيد منها وهي 1. كيفية نعديل كود البحث ليشمل اكثر من متغير بمعنى اريد ان ابحث عن كلمة معينة عندما يكون امام هذه الكلمة في نفس الصف معامل اخر او اكثر اي بحث شرطي 2. كيفية تعديل الكود ايضا ليتم البحث بين تاريخين اي من 01/06/2006 وحتى 31/12/2006 او من 01/01/2006 الى 31/05/2006 ةهكذا يرجى من الاخوة الخبراء افادتنا بهذا الموضوع

اذا كان الكود المرفق يقوم بحماية الخلية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Locked = False Then Me.Unprotect Password:="123" Target.Locked = True Me.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub كيف اقوم باستثناء بعض الخلايا وامكانية التعديل عليها

الاخوة الاستاذه استفدت كثير من كود الاح محمد حجازي في المشاركة رقم 8249 واخيرا عملت نموذج ادخال اصبحت الان في حاجة الى التالي 1. كيفية عمل بحث باستخدام نفس النموذج او نموذج اخر 2. كيفية عمل تعديل في خلية معينة دون الخلايا الاخرة ولعدم تكرار التحميل الملف المرفق في الرابط الاتي http://www.officena.net/ib/index.php?showtopic=8249

استاذي العزيز محمد حجازي الكود السابق جدا مفيد ، ولكن ما هو الحال لو كان المطلوب ترحيل اكثر من بيان في وقت واحد على سبيل المثال يوجد بيانات في ورقة رقم 1 في الخلية A5 وبيان في الخلية d6 والخلية E7 ...........وهكذا ويراد الترحيل الى شيت اخر وفي صف واحد من A الى z وعند ترحيل بيان اخر ياخذ الصف التالي ايضا من a الى z حتى لا يتم الكتابه على بيانات موجوده مع الاخذ في الاعتبار ان هذه الورقة يستخدمها اكثر من مستخدم في وقت واحد

الاستاذ علي السحيب لقد استخدمت الكود التالي 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Range("S5").Value > 179 And Target.Address <> "$s$5" Then 'Range("A5:R5").Interior.ColorIndex = 6 'ElseIf Range("S5").Value < 180 And Target.Address <> "$s$5" Then 'Range("A5:R5").Interior.ColorIndex = xlNone 'End If 'End Sub السؤال كيف اعمم هذا الكود على جميع الخلايا في العمود "s"

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

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

شي غريب لاحظته اليوم كل ما ادخل رقم مكون من 16 رقم الرقم الاخير يتغير الي صفر مثال يرجى ادخال 1234 1234 1234 1234 عند الضغط على انتر يتغير الرقم الى 1230 1234 1234 1234 هل هناك حل لهذه المشكله غير اني اعرف الرقم على انه نص

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

اشكرك loveCandle على هذه المساعده الفعاله لكن ماذا عن هل هناك طريقه ما لربط كل ورقه برقم سري لكل مستخدم للدخول او مشاهده هذه الورقه او تعديل مع ادخال البيانات يكبر حجم الملف ويتبطاء الاب ديت هل هناك طريقه لضغط الملف

الاخ love candel و الاخ محمد حجازي بالنسبه لموضوع sharing فهذا انا مسويه والملف موجود على السيرفر track changes انا مسويه السؤال كيف اعرف اللي مسوي التعديلات السؤال الاول . هل هناك طريقه ما لربط كل ورقه برقم سري لكل مستخدم للدخول او مشاهده هذه الورقه او تعديل مع ادخال البيانات يكبر حجم الملف ويتبطاء الاب ديت هل هناك طريقه لضغط الملف

عندي ملف اكسل ومسوي عليه sharing وهناك 5 مستخدمين يقومون باستخدامه في نفس الوقت وكل مستخدم له ورقه عمل خاصه به ، وطبعا اقل شي لتحديث البيانات هي 5 دقائق بمعنى لكي اشاهد بيان ما ادخل لا بد من الانتظار خمس دقائق او اكثر كي اشاهده استفساراتي هي كالاتي 1. هل هناك طريقه ما لربط كل ورقه برقم سري لكل مستخدم للدخول او مشاهده هذه الورقه او تعديل 2. في حاله قيام المستخدم بعمل اي تعديل مسح اضافه ....هل استطيع ان اعرف من قام باجراء هذه التعديلات 3. هل هناك طريقه في حاله ما اذا كنت اريد مشاهده التعديل المدخل ( refresh( مثلا بدلا من الانتظار 5 دقائق 4. مع ادخال البيانات يكبر حجم الملف ويتبطاء الاب ديت هل هناك طريقه لضغط الملف