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

لابد من عمل ذلك بالكود و الله أعلم فى حدث التفعيل للشيت 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

خريطة قناة اقرأ لشهر ديسمبر نقلتها لملف اكسيل لسهولة الطباعة و المتابعة مرفق الملف IQRA2.zip

الدوال التي ذكرتها تسترجع نتيجة واحدة و ليس كل ما يماثل الخيار المختار فما تريده يبدو ان استخدام ادوات التحليل المتقدمة انسب له مثل : الجداول المحورية او الفلاتر

و جزاكي الله خيرا أختي زهرة علي كل ما تقدمينه و نحن جميعا سعداء لوجودك بيننا

أنشئي ملف الوورد بالصورة التي تعجبك و يمكنك ادراج الصور فيه ثم بعد ذلك احفظي الملف و يستحسن كون ذلك فى مجلد منفصل ثم بعد ذلك اختاري حفظ باسم ثم اختاري نوعية الملف من مربع الحوار الذي سيظهر اسفل مكان اسم الملف نوع الملف و اختاري نوع WEB PAGE

جرب الان

أخونا المهاجر مشرف القسم و أحد أعمدة الموقع نبارك له لزواجه ألف مبروك :d بارك الله لكما و بارك عليكما و جمع بينكما فى خير

تم تعديل توقيت الخادم من لوحة التحكم و يمكن اختيار المنطقة الزمنية من اعدادت المنتدي فى لوحة التحكم للتعديل للتوقيت المحلي و كذلك التاريخ الميلادي ام الهجري

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

التحكم فى الاطار يتم عن طريق Application.WindowState و لها ثلاث قيم Application.WindowState = wdWindowStateNormal Application.WindowState = wdWindowStateMaximize Application.WindowState = wdWindowStateMinimize للعودة للوضع الطبيعي restore و التكبير و التصغير علي التوالي

يوجد بعض الحلول هنا http://www.officena.net/ib/index.php?showtopic=640 و لكن علي دالة sumif و طبعا المفهوم واحد

جرب التصدير الي ملف من الاكسبريس ثم الاستيراد منه الي الاوتلوك المفترض ان هذا لن يحدث

نعم بالفعل :( و لكن يبدو أنه يقصد الاكسيل فالاكسيس ليس به خلايا ، كما لا يمكننا التلوين فيه في وضع التشغل بطريقة مباشرة

لا يمكن الرد المباشر حيث أن صيغة ال pdf هي احدي الصيغ التي يتم التحويل اليها كمنتج نهائي و ليس كبيانات قابلة للتعديل و لنقل البيانات الي اكسيل اختار الاداة select text ثم علم الي البيانات المطلوب نقلها ثم انسخها و الصقها فى الاكسيل هذا فى الاصدار رقم 6 ال برفيشينال اما فى رقم 7 فيمكنك بعد الاختيار ان تختار خيار OCR و من بعده تنفذ النسخ و اللصق و درجة مناسبة البيانات الملصوقة سيكون مختلفا تبعا للملف نفسه

هناك برامج تستخدم لاخذ لقطات للشاشة screen shots و تحويلها الي صور ومنها برنامج snagit paintshoppro

يمكنك الانطلاق من هذا المثال و تعديله ليناسب رغبتك إختيار مجموعة خلايا عن طريق لون خلفيتها, ( فى مجال محدد ) http://www.officena.net/ib/index.php?showtopic=21&hl=