محمد طاهر عرفه

قد يكون الجواب غير مناسب و لكن كثيرا ما يحدث هذا فقط بسبب السهو و أن اللغة العربية/انجليزية أو بسبب ال caps lock عموما اطلب من مسئول الشبكة ان ياتي و يتاكد من الدخول لمرة ثم اختار خيار الاحتفاظ بكلمة السر بحيث لا يسألك بعدها

لا لم نفقد شيئا بفضل من الله ، ثم بجهد أخونا محمد قطان اللهم الا اذا كانت هناك مشاركات أضيفت عند لحظة التوقف تحديداً

تم اختراق المنتدي منذ يوين و نعتذر عن الرسائل الدعائية التي تم ارسالها للأعضاء كدعاية لموقعين و الله أعلم ان كان المخترق له علاقة بهذه المنتديات ام لا و لكن الهدف كان الدعاية لها سواء عن طريق البريد الذي تم ارسالها او نوافذ دعائية تظهر كلما تصفحت المنتدي و بفضل من الله ، ثم بجهد أخونا محمد قطان تم استعادة كامل البيانات نعتذر عن التوقف و أهلا بكم مرة أخري

السلام عليكم اعتقد ان السبب هو البروكسي الذي تتصل منه

ايضا احد الاخطاء الدارجة ، هو حفظ الملفات بامتداد dot و ليس doc فلا تظهر عند محاولة فتح الملف من قائمة File open باعداداته الافتراضية و للتأكد من ذلك عند اختيار file open او ملف - فتح اختار بدلا من ملفات الوورد فى مربع الحوار الاسفل All files

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

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

سبب ظهور العلامة هو أن الخلايا التي تحسب المعادلة بناء عليها ليست خالية و لكن بها معلومة و هي علامة المسافة الفاضية space جري تحرير الخلية و اخلاؤها ستجد العلامة اختفت

السلام عليكم أخي الكريم صراحة بالنسبة لي كانت التصفية العادية تؤدي ما احتاج بنجاح عن طريق عمل تصفية علي اكثر من عمود فى نفس الوقت و اراه حل عملي جدا و ايضا التصفية في الجداول المحورية تناسب العديد من الاحتياجات ( عمل جدول محوري pivot table) ثم عمل تصفية داخله بالاختيار من القائمة المنسدلة و ايضا هناك التصفية المتقدمة التي تجري مناقشتها الان فى موضوع مستقل رجاء توضيح ما الذي تريد عمله بالكود و لا يمكن عمله بالامكانيات الجاهزة للاكسيل

تأكد من أن الماكرو لديك مفعل Tools Macro security level Medium أو Low جربت الملف و يعمل معي و المفترض ان يعمل علي النسخة العربية ايضا انزل الملف المرفق و تنقل بين ورقتي العمل و اخبرنا ماذا يحدث فان لم يعمل بعد التأكد من تفعيل الماكرو فقم يتسجيل ماكرو جديد عن طريق التسجيل و قم بحذف ال Toolbars ثم اوقف التسجيل ثم اختار تحرير الماكرو و انظر كيف تم تسجيل أسماء الادوات و اخيرنا

مرفق المثال بعد التعديل و ملاحظ اختلاف النتائج Pivot2.rar

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

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

راجع الموضوع المثبت في قسم تحليل البيانات بالارشيف http://www.officena.net/ib/index.php?showforum=49

هذا النوع من التحليل اول ما افكر فيه عندما يقابلني هو الجداول المحورية pivot tables

لابد من عمل ذلك بالكود و الله أعلم فى حدث التفعيل للشيت Private Sub Worksheet_Activate() Application.CommandBars("Forms").Visible = True Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True End Sub و طبعا الايقونات اعلاه كمثال فقط و يمكنك تحديد الايقونات التي تريدها و العكس بالنسبة للشيت الاخر IconPerSheet.zip

لنفترض أنك تريد تطبيق الفلتر علي العمود االاول بناء علي القيمة الموجودة فى الخلية a1 اكتب القيمة فى الخلية a1 ثم شغل الماكرو الكود فى الملف المرفق Selection.AutoFilter Field:=1, Criteria1:=Range("a1") Range("a1").Select filterauto.zip

مرفق مثال اختر احدي الخلايا ثم اختار قائمة التنسيق الشرطي من قائمة تنسيق لتري كيفية كتابة الشرط Format Conditional format الشرط معد بحيث ان اللون اذا كانت القيمة 7 او اكثر تلون بالازرق و ان كان اقل من 6 تلون بالاحمر و للتنفيذ اختار الخلايا المراد تلوينها و نفذ نفس التنسيق او اختار نسخ و لصق التنسيق من الخلايا فى الملف الي ملفك conditional.zip

السلام عليكم أخوتي الكرام ، بخصوص برامج فك الحماية ، الموضوع له شقان : الاول : استخدام البرنامج : اذا كان استخدام البرنامج لفك حماية الاخرين للاستفادة بجهدهم دون رغبتهم، فهذا بلا شك خطأ كبير . اما اذا كان لاسترجاع كلمة سر فقدتها ، و قد تعرضت لهذا الموقف اكثر من مرة ، او فك ملف من حق شركة مثلا و توجد كلمة سر وضعها موظف سابق ففي هذه الحالات ففك الحماية ضروري . اما الشق الثاني : و هو احقية استخدام برنامج فك الحماية دون ترخيص اري ان الاحوط تجنب ذلك من باب حقوق الاخرين و يمكن لمن يريد الحصول علي ترخيص بذلك من منتجي البرنامج و اذا كانت هناك فتاوي تبيح ذلك فنرجو وضع وصلاتها

فى الحالة العادية اذا فتح مستخدمان نفس الملف آنيا فان الثاني سيكون حالة تعامله مع الملف هي القرائة فقط اي لا يمكنهما التعديل فيه سويا اما اذا تم فتح الملف اولا بالطريقة التي ذكرها الاخ HS998 فانه سيتمكن المستخدم الاخر من التعديل فيه آنيا و عند الحفظ سيتم التنبيه بحفظ التعديلات للمستخدم الاخر ام لا بحسب ما ستختار من الخيارات المتقدمة كما سيلي لتعديل خيارات الحفظ و الاحتفاظ بتاريخ التغييرات انظر علامة التبويب الثانية المسماة متقدم ADVANCED من شاشة TOOLS SHARE WORKBOOK

http://www.officena.net/ib/index.php?showtopic=206

نعم يمكن اضافة اكثر من شيت كما يلي If MySheet.Name = "Sheet2" Or MySheet.Name = "Sheet3" Then

نعم هناك خطأ و تم تعديله و هو حذف exit for جرب الان

اضف السطر التالي بعد جملة For For Each MySheet In ActiveWorkbook.Worksheets If MySheet.Name = "Sheet2" Then و ذلك لاضافة شرط بان ورقة العمل اسمها sheet2 ثم اضف ال end , قبل end if End If End If و اغلاق جملة الشرط Find5.rar

الملف بعد التعديل ليصير البحث فى ورقة العمل الفاعلة فقط ملحوظة الملف الاصلي للاخ محمد حجازي Find4.rar