علي بن علي

جرب هذا الكود يعمل على الصفوف من 9 إلى 21 فقط Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 9 And Target.Row <= 21 Then ActiveSheet.Unprotect "45" Target.Locked = True ActiveSheet.Protect "45" End If End Sub يعمل هذا الكود عن طريق التحقق من الصف الذي تم تغييره. إذا كان الصف يقع بين 9 و 21 ، فسيتم فك حماية الورقة وتأمين الخلية وإعادة تأمين الورقة. إذا لم يكن الصف يقع بين 9 و 21 ، فلن يتم فعل أي شيء

إذا لم يعمل الكود بشكل صحيح، فقد يكون هناك أسباب عدة وراء ذلك. فيما يلي بعض النقاط التي يجب مراجعتها: 1. التأكد من أن الصفوف التي تحتوي على كلمة "تعديل" موجودة في العمود الأول من ورقة العمل. المقصود بالعمود الأول هو العمود A 2. التأكد من أن الكلمة الدلالية موجودة بالضبط كما هي مكتوبة في الكود، بما في ذلك الأحرف الكبيرة والصغيرة. 3. التأكد من أن الكود المستخدم هو بالضبط الذي تم تقديمه في الإجابة السابقة. 4. التأكد من عدم وجود أي صفوف مخفية في ورقة العمل. 5. التأكد من عدم وجود قيم فارغة أو مسافات إضافية قبل أو بعد الكلمة الدلالية في الصفوف. 6. التأكد من أن لغة Excel تعتمد على اللغة الإنجليزية، وإذا كنت تستخدم Excel بلغة أخرى فمن الممكن أن تحتاج إلى تغيير الكلمة الدلالية في الكود إلى اللغة التي تستخدمها. إذا لم تتمكن من حل المشكلة بعد مراجعة هذه النقاط، فيمكنك محاولة استخدام الكود التالي بدلاً من الكود السابق: Sub DeleteRows() Dim i As Long Dim LastRow As Long LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row For i = LastRow To 1 Step -1 If InStr(1, ActiveSheet.Cells(i, 1).Value, "تعديل") > 0 Then ActiveSheet.Rows(i).Delete End If Next i End Sub حظ موفق

على افتراض ان الشيت المطلوب حذف صفوفه هو sheet1 تفضل الكود Sub DeleteRows() Dim i As Integer For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If InStr(1, ActiveSheet.Cells(i, 1).Value, "تعديل") > 0 Then ActiveSheet.Rows(i).Delete End If Next i End Sub احفظ الملف وأغلقه، ثم أعد فتحه وابحث عن زر "تشغيل الماكرو" (المخصص للكود) وعند الضغط على هذا الزر سوف يقوم المايكرو بحذف الصفوف التي تحتوي على كلمة "تعديل". يرجى ملاحظة أن هذا الكود يحذف الصفوف بشكل دائم، لذا يجب تأكيد أن الصفوف التي تريد حذفها تحتوي على كلمة "تعديل" بالفعل قبل تشغيل الماكرو. كما يجب الحذر من استخدام هذا الكود في الصفوف الهامة التي قد يؤدي حذفها إلى فقدان البيانات. او الشيت النشط يمكن للكود حذف صفوف الشيت النشط

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

جرب الكود التالي ضعه في حدث الورقة المطلوب حماية معادلاتنها الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Set rng = Range("A2:K50") If Not Intersect(Target, rng) Is Nothing Then If Target.Value = "" Then Target.Locked = False Else Target.Locked = True End If rng.Locked = True rng.SpecialCells(xlCellTypeBlanks).Locked = False ActiveSheet.Protect Password:="password", UserInterfaceOnly:=True End If End Sub هذا الكود يعني أنه عند تغيير قيمة الخلية في النطاق المحدد (A2:K50)، يتم التحقق من حالة الخلية قبل تحديد حالة القفل عليها. إذا كانت الخلية فارغة، فسيتم إلغاء حالة القفل عنها، مما يسمح بالكتابة في الخلية. إذا تم إدخال قيمة في الخلية، فسيتم تحديد حالة القفل على الخلية، مما يعني أنه لن يتمكن أحد من تحرير أو تعديل الخلية. يتم أيضًا تحديد حالة القفل على النطاق بأكمله، ولكن يتم إلغاء حالة القفل عن جميع الخلايا الفارغة في النطاق، مما يسمح بالكتابة في هذه الخلايا الفارغة. يتم حماية الورقة بكلمة مرور "password"، ولكن باستخدام الخيار UserInterfaceOnly:=True، يتم السماح للمستخدم بتغيير القيم في الخلايا، ولكن لن يتم السماح له بإزالة الحماية أو تغيير حالة القفل على الخلايا. عند تشغيل الحماية، سيتم حماية النطاق المحدد بحيث لن يتمكن أحد من تحرير أو تعديل أي خلية في هذا النطاق، ما لم تكن الخلية فارغة حظ موفق

اضف للكود في محرر الأكواد وضع هذا السطر قبل السطر الذي يشير الى الخطاء تماماً الكود On Error Resume Next

هناك عدة طرق يمكن استخدامها لتسريع عمل برنامج الإكسل، ومن بين هذه الطرق: 1. تجنب استخدام الصيغ الثقيلة: يمكن استخدام الصيغ الخفيفة والبسيطة بدلاً من الصيغ الثقيلة التي تستهلك الكثير من الموارد، مثل صيغة SUMIF و SUMIFS و COUNTIF و COUNTIFS. يمكن استخدام صيغ مثل SUM و AVERAGE و COUNT لتجميع البيانات بطريقة أسرع. 2. تقليل تعدد الصيغ المشابهة: يمكن تجنب تكرار الصيغ المشابهة في الصفوف والأعمدة المجاورة، واستخدام النماذج والنسخ الذكي عند الحاجة. 3. تقليل عدد الروابط بين الصفحات: يمكن تجنب الروابط الزائدة بين الصفحات والتأكد من استخدام الروابط المطلوبة فقط. 4. تعطيل التنسيق التلقائي: يمكن تعطيل التنسيق التلقائي لتحسين سرعة العملية. ويمكن تعطيل هذا الخيار من خلال الذهاب إلى خيارات الإكسل، ثم اختيار علامة التبويب "المراجع الخاصة"، ثم إزالة علامة الاختيار من خيار "تحديد خلايا بشكل تلقائي". 5. تحسين الأداء العام للجهاز: يمكن تحسين أداء جهاز الكمبيوتر الخاص بك عن طريق تحديث برامج التشغيل، وتنظيف الذاكرة والقرص الصلب وإلغاء تثبيت البرامج غير الضرورية، وتقليل عدد النوافذ المفتوحة وعدم تشغيل البرامج الأخرى أثناء استخدام الإكسل. 6. استخدام جداول محورية: يمكن استخدام جداول محورية لتحليل البيانات بطريقة أسرع وأكثر فعالية، ويمكن تخصيص الجداول المحورية لتلبية احتياجات البيانات المحددة. 7. استخدام البرامج الإضافية: يمكن استخدام البرامج الإضافية المتاحة لتحسين وظائف الإكسل وجعلها أكثر فعالية، مثل البرامج الإضافية التي تساعد على تحليل البيانات أو تحسين عمليات الرسوم البيانية. هذه بعض الطرق التي يمكن استخدامها لتسريع عمل برنامج الإكسل. يمكن استخدام هذه الطرق بمفردك أو مجتمعة لتحسين أداء الإكسل وجعله أكثر فعالية في إدارة البيانات. ومن اعدادات الإكسيل يمكنك تحسين أداء برنامج الإكسل من خلال بعض الإعدادات والخيارات التي تتوفر في البرنامج، ومن بين هذه الإعدادات: 1. تعطيل تحميل الصور والرسوم البيانية بشكل تلقائي: يمكن تعطيل خيار تحميل الصور والرسوم البيانية بشكل تلقائي في إعدادات الإكسل، وذلك من خلال الذهاب إلى علامة التبويب "خيارات"، ثم اختيار "تعديل الخيارات"، ومن ثم اختيار "مراجع الويب"، وإلغاء علامة الاختيار من خيار "تحميل الصور والرسوم البيانية". 2. تعطيل الإطارات الحية: يمكن تعطيل الإطارات الحية في إعدادات الإكسل، وذلك من خلال الذهاب إلى علامة التبويب "خيارات"، ثم اختيار "تعديل الخيارات"، ومن ثم اختيار "عرض"، وإلغاء علامة الاختيار من خيار "الإطارات الحية". 3. تعطيل خيارات الحماية: يمكن تعطيل بعض خيارات الحماية المتاحة في الإكسل، وذلك من خلال الذهاب إلى علامة التبويب "خيارات"، ثم اختيار "تعديل الخيارات"، ومن ثم اختيار "الأمان"، وتعيين مستوى الأمان على "متوسط" بدلاً من "عالي". 4. تقليل عدد الملفات المفتوحة: يمكن تقليل عدد الملفات المفتوحة في الإكسل في نفس الوقت، وذلك من خلال إغلاق الملفات التي لم يعد الحاجة إليها، والتأكد من عدم فتح الملفات التي تحتوي على الكثير من البيانات عندما لا تكون ضرورية. 5. تغيير حجم الصفحة: يمكن تغيير حجم الصفحة الافتراضي في الإكسل من الحجم الكامل إلى حجم أصغر، وذلك من خلال الذهاب إلى علامة التبويب "عرض"، ثم اختيار "حجم الصفحة"، وتعيين الحجم المطلوب. 6. تعطيل الترقية التلقائية: يمكن تعطيل خيار الترقية التلقائية في الإكسل، وذلك من خلال الذهاب إلى علامة التبويب "خيارات"، ثم اختيار "تعديل الخيارات"، ومن ثم اختيار "موثوقية المراجع"، وإلغاء علامة الاختيار من خيار "تحديث الرابط التلقائي". هذه بعض الإعدادات التي يمكن تعديلها في الإكسل لتحسين أدائهذه بعض الإعدادات التي يمكن تعديلها في الإكسل لتحسين أدائها. ومن المهم الإشارة إلى أنه يمكن أن تختلف هذه الإعدادات والخيارات وفقًا لإصدار الإكسل ونظام التشغيل الذي تستخدمه. لذلك، يجب أن تتحقق من المساعدة الخاصة بإصدار الإكسل الذي تستخدمه لتحديد الخيارات والإعدادات المتاحة لك.

يمكنك استخدام الكود التالي لمنع تعديل أو حذف الخلايا من A2:K2 إلا بعد فك حماية ورقة العمل: هذا كمثال فقط وانت عدل على الكود على حسب الخلايا التي او النطاق الذي لديك ضع الكود في حدث الورقه التي تريد تطبيق منع الكتابه على خلاياها بعد الادخال الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim protectedRange As Range Set protectedRange = Range("A2:K2") If Not Intersect(Target, protectedRange) Is Nothing Then Application.EnableEvents = False Application.Undo MsgBox "لا يمكن تعديل هذه الخلية، يرجى فك حماية الورقة للقيام بذلك" Application.EnableEvents = True End If End Sub يتم تنفيذ هذا الكود عند تغيير قيمة في الورقة. إذا تم تغيير أي خلية في النطاق المحدد (A2:K2)، فسيتم التحقق مما إذا كانت الورقة محمية أم لا. إذا كانت المنطقة محمية، فسيتم إلغاء التغيير وإظهار رسالة تذكيرية تطلب فك حماية الورقة. عندما تكون مستعدًا للسماح بتعديل الخلايا في هذا النطاق، يمكنك فك حماية الورقة باستخدام الأمر التالي: ActiveSheet.Unprotect Password:="mypassword" يجب استبدال "mypassword" بكلمة مرور الحماية الحالية التي تم استخدامها لحماية الورقة. بعد ذلك، يمكنك تعديل الخلايا في النطاق المحدد. بعد الانتهاء من التعديلات، يمكنك إعادة حماية الورقة باستخدام الأمر التالي: ActiveSheet.Protect Password:="mypassword" مرة أخرى، يجب استبدال "mypassword" بكلمة مرور الحماية التي تريد استخدامها. اتمنى يكون المطلوب .

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

استاذ ابو حبيبه السلام عليكم هل بإمكانك بواسطة كود او معادله ان تجعل صورة الشعار ذاتها هي الصورة للترويسة في مخطط الصفحة للتوضيح لا اريد ان يتم ادخال الصورة الى راس مخصص بواسطة تحديد مسار الصورة سوا كانت الصورة خارج الملف او داخلة . المطلوب اذا بالإمكان استاذنا . ان يتم جعل صورة شعار الشهاده في الترويسة لصفحة البيانات للطلاب عند طباعة كشوف البيانات تظهر صورة الشعار في الترويسة . المطلوب اذا كان بالإمكان ان يتم اظافة الصورة بواسطة كود . او معادلة لإستدعاء الصورة الى مربع الصورة في تخصيص الترويسه في تخطيط الصفحة اتمنى الشرح واضح ودمت بخير شعار لجميع الشهادات_جديد .xlsm

تسلم استاذنا الفاضل الف الف شكر وفقك الله واسعدايامك .

هل يمكنك ازالة المربعات الزرقاء التي امام الشعار اذا امكن ذلك مع جزيل والشكر والتقدير

لدي في النموذج ٤ شهائد ولكنه لا يضهر في كل ورقة سوى ٢ شعار مع ال٤ شهائد يظهرها في الشهاده الاولى والثانية والبقية ليس بها اي شعار

thanks

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