أخي
و انت في صفحة الاكسيل
قم بالضغط على
Alt+F11
و ستفتح لك شاشة الفيجوال بيسك
و من الشاشة قم باختيار
Insert
ثم
Module
و قم بنسخ الكود إلى هناك
Sub Test()
Application.DisplayFullScreen = False
End Sub
ثم اضغط
F5
ليقوم الكود بعمله مباشرة
إضافة لطريقة الاخ محمد
إذا كانت هذه القائمة ناتجة عن اضافة ملف Add-In
قم بإلغاء هذا الملف من خلال
القامئة
Tools
Add-Ins
و قم بإلغاء علامة الصح من جوار الملف الذي تم إضافته
=============
و طريق أخرى
من القائمة
Viem
ToolBars
Custmize
و ستفتح لكل شاشاة كل ما عليك هو أن تمسك بالقائمة التي تريد حذفها بالماوس و وصعها في مربع الشاشة الذي ظهر لك
و ستختفي بعدها هذه القائمة
يمكنك أيضاً أخي ان تجعل الكود مرتبط بحدث اخر مثلاً
بحدث فتح الصفحة
و أن يقوم الكود تلقائياً بالبحث في جميع الصفحات و تغيير الاسم حسب الخلية A1
في كل صفحة
كان الله في عونك و عون جميع الأخوة المدرسيين
لكل مهنة مشاكلها و متاعبها
و على رأي المثل
اللي بشوف مصيبة غيره بتهون عليه مصيبته
و نسأل الله أن يهون علينا و عليك هموم الدنيا و مصائبها
هل المدرسة التي تعمل بها داخل العاصمة عمان ام خارجها ؟؟
السلام عليكم و رحمة الله و بركاته
بعد إذن أخي خبور
يمكن اختصار المعادلة أعلاه إلى المعادلة التالية
و ستعطي نفس النتيجة إن شاء الله
=MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)
السلام عليكم و رحمة الله و بركاته
مرفق ملف به شرح بسيط عن طريق إضافة الدوائر الحمراء من خلال خاصية التحقق من صحة
Validation
أتمنى ان تفيد الأخوة في أعمالهم
Red Cyrcle.rar
السلام عليكم و رحمة الله و بركاته
هذا الموضوع كنت قد كتبته في نهاية شهر رمضان و رفعته على المنتدى
و لكن بعد الظروف التي مر بها منتدنا و فقدان بعض المواضيع
و كان هذا احد المواضيع التي فقدت
رفعته لكم مجددا
و هو استكمال لموضوع شرح الدالة SumProduct
و الملف يحتوي شرح الجزء الأول مع الجزء الثاني
الدالة SumProduct.pdf
نعم اخي محمد
هذا الكود يعمل بهذه الطريقة بفحص فقط الخلية الاولى و من ثم يقوم بحذف السطر او العمود بناءاً عليها
فهذا ما اقوم انا بعمله في الحياة العملية
فعندما استورد اي بينات على الاكسيل و و أحتاج لحذف اسطر او اعمدة يكون المعيار لدي هو الخلية الاولى في السطر او العمود
أخي عمران
إن كطنت تقصد ان يتم احتساب عمر كل ذمة لكل عميل بناء على تاريخ اليوم
فشاهد المرفق لعلى و عسى ان يفي بغرضك
مع اني قمت بعمله على ملف اخر كتجربة
اعمار الديون Officena.rar
أخي هذا برنامج شيكات كنت قد رفعته على الموقع قبل عام
http://www.4shared.com/file/66995020/dbb21fc1/____.html
و انا الآن اعمل على برنامج أخر يمكن المستخدم من تعديل ترويسة الشيك حسب الرغبة و ايضاً لأكثر من بنك
و لكني لم أنتهي منه بعد
شاهد اللمرفق لعلى و عسى أن يفيدك
أخي إن كنت تقصد ان يتم وضع قيمة اي خلية في المدى الذي قمنا بتصفيته في الخلية D4
جرب هذا الكود البسيط
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
LR = Range("F" & Rows.Count).End(xlUp).Row
If Target.Row > LR Or Target.Row <= 4 Then Exit Sub
Range("D4").Value = ActiveCell.Value
End Sub