علي بن علي

جرب هذا الكود
يعمل على الصفوف من 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 استاذي الفاضل

انا لست خبير بالإكواد

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

مع خالص تقديري وشكري لشخصكم الكريم

استاذي الفاضل اضافة اخيرة اذا كان بالإمكان

انا لدي فورم يدرج الشعار او الصورة الى الشيت

ويسمي الصورة بالتسمية sam 

واي صورة ارفقها يقوم الفورم بحذف الصورة القديمة واستبدلها بالجديده وبنفس التسمية sam

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

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

المهم عند تغيير الصورة ان لا يتوقف عمل التعبئة للشعار على الشهائد

اذا كان هذا بالإمكان استاذي الفاضل

واذا لا يمكن فعدل على الشيت على ان يتم تعبئة صورة الشعار لجميع الشهائد . عند تنفيذ الكود

وجزاك الله الف خير ووفقك في الدنيا والأخرة

شكرا جزيلاً مرة ثانية 

السلام عليكم . اساتذتنا الكرام

في الشيت المرفق التوضيح والشرح بجوار نموذج الشهاده

المطلوب عند تعبئة الشهائد

ان يتم ايضا تعبئة الصورة المفترض ان تكون كشعار للمدرسة على جميع الشهائد

دمتم بخير . وعافية 

نسخة من اضافة صورة شعار لجميع الشهائد.xlsm

Mohamed Hicham

استاذي العزيز لدي اوفس ٢٠١٦

فتحت الملف عليه وعند ضغط زر الفرز والتصفية يعطيني خطاء بكود ران تايم ارور ٤٣٨

اساتذتي الكرام

السلام عليكم ورحمة الله وبركة

هل بالإمكان اصلاح الكود المرفق المتمثل عمله

بالفرز الأبجدي من أ الى ي

لأعمده المندوب والدوله والمنطقة

الشرح والتوضيح مرفق مع الملف .

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

فرز وتصفية.xlsb

هو المطلوب يا استاذي الفاضل  شكرا على المساعده

الاساتذة الكرام تحية طيبه

مرفق في الملف توضيح للمطلوب التعديل عليه

الفورم يعمل بشكل جيد . ولكن عند فرز وتصفية البيانات . لا يعمل

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

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

اي لا يتأثر الفورم عند البحث على التكست بوكس

وكل مشترك يأخذ بياناته بحسب مسلسله وصفه

اتمنى يكون شرحي واضح وشكرا

ااااااااااا.xlsb

الموضوع ما هو محتاج ملف

المطلوب كمثال للموضوع المطلوب

اختصار catrl+ z لتنفيذ امر تراجع

يعني هو اختصار ببساطه اذا امكن

عمل اختصار لإضهار نافذة الفرز والتصفية

شكرا

المطلوب كود او اختصار يوضع في زر

من خلاله يتم استدعاء نافذة التصفية والفرز للبيانات بحسب المطلوب

هل بالإمكان عمل هذا

استاذ حسونه

اذا كان بلإمكان

هل يمكن وضع الصوره في خلية محدده في من خلايا الشهاده

ومنها يتم طباعة الصورة على جميع الشهائد

بنفس الشكل والموضع للخليه المحدد فيها الصوره

للرفع

للرفع اساتذتنا الأفاضل