احتاج اكواد ضرورية

[mariammohamed]

اساتذتي الكرام اساتذة المنتديأرجو من سيادتكم التفضل ووضع أكواد تمكنني من مسح بيانات في خلايا مختلفة بعيدة عن بعضهاوكذلك شرح كيفية حماية الخلية التي بها معادلة من المسح وكذلك احتاج الي كيفية عمل فرز حسب الفصل

[بن علية حاجي]

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

أخي الكريم، بالنسبة لمسح الخلايا دون المساس بالخلايا التي تحوي المعادلات يمكن اتباع الخطوات التالية:

1- تحديد كل نطاق الخلايا -الجدول- (دون العناوين)

2- الضغط على مفتاح F5

3- في النافذة المفتوحة نختار "خلايا" ثم "الثوابت" Constants (ونعين فيها ما نريده)

4- الضغط على OK أو مفتاح ENTER

5- نضغط على مفتاح Suppr أو DEL

ويتم المطلوب...

بالنسبة لعمل الفرز حسب الفصل فهنا يجب أن يكون أمامنا مثال على ذلك... (في ملف مرفق)

بن علية

تم تعديل يونيو 28, 2010 بواسطه hben

[يوسف عطا]

كود حماية الخلايا التى تحتوى على معادلات حماية مباشرة على الخلية

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

End Sub

[mariammohamed]

اشكركم اساتذتي الكرام شكرا جزيلا

تم تعديل يونيو 29, 2010 بواسطه mariammohamed

[mariammohamed]

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

[عادل حنفي]

السلام غلسكم

اخي

مرفق ملفان

احدهما لحماية الخلايا التي يكتب بها معادلات داخل نطاق محدد

و الاخر لمسح محتويات مجموعة متباعدة من الخلايا

جرب المرفق و اخبرني النتيجة

تحياتي

Desktop.rar

[mariammohamed]

لا يسعني الاأن اشكرك حضرتك استاذي العزيز وجعل الله مساعدتك لي في ميزان حساناتك

[عبد الفتاح كيرة]

السلام عليكم

صفحة كلها فوائد

كود الأخ يوسف عطا

يعمل بكفاءة

كود حماية الخلايا التى تحتوى على معادلات حماية مباشرة على الخلية

Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)

If Target.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

End Sub

و مثيله من الأخ aah_aah2008 Icon

[محمدي عبد السميع]

اخي كيماس

انت واخوانك رجال لاتزكون على الله

جزاكم الله خيرا

[عبد الفتاح كيرة]

الله يبارك فيك يا أستاذ محمدى

هذا من كريم أخلاقك

وطيب صفاتك