أ / محمد صالح

ضعهم فوق بعض واستبدل enabled إلى visible في الكود

أتمنى أن يكونهذا هوالمطلوب جدول لمشتريات.rar

جميل بارك الله لك أخي الكريم وفقك الله لكل خير

بسم الله الرحمن الرحيم انتشر لغز كم عددالمثلثات في هذا الشكل والغريب أنه يتهم أكثر من 90% من الناس أنه لم يعرف حل هذذا اللغز وساعتها قررت أن أقوم بشرح لحل هذا اللغز وطريقة حل أمثاله من الألغاز ويسعدني تلقي تعليقاتكم على الفيديو وحل أي لغز تطلبوه بهذه الطريقة التعليمية الرياضية ولا تنسوني من صالح دعائكم

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

أخي الكريم قم بتسجيل ماكرو لطباعة الصفحة الحالية ثم قم بوضع هذا الماكرو في شريط الوصول السريع quick access toolbar من خلال : الضغط على السهم في نهاية الشريط ثم اختيار أوامر أكثر more commands ثم من الناحية اليسرى اختار الأوامر من choose commands from اختر وحدات ماكرو macros ستجد جميع وحدات الماكروالتي تم تسجيلها اختر الخاص بطباعة الحالية ثم إضافة add ثم موافق ok

بارك الله فيك أخي ياسر ولإثراء الموضوع هذا رابط لمفتيح الاختصار في إكسل 2013 باللغة الإنجليزية https://support.office.com/en-us/article/Keyboard-shortcuts-in-Excel-6a4319ef-8ea9-45d1-bd98-f238bf953ba6 وهذا باللغة العربية http://support.office.microsoft.com/ar-sa/article/%D9%85%D9%81%D8%A7%D8%AA%D9%8A%D8%AD-%D8%A7%D9%84%D8%A7%D8%AE%D8%AA%D8%B5%D8%A7%D8%B1-%D9%81%D9%8A-Excel-6a4319ef-8ea9-45d1-bd98-f238bf953ba6?ui=ar-SA&rs=ar-SA&ad=SA اللهم علمنا ما ينفعنا وانفعنا بما علمتنا

مجهود رائع جزاكم الله كل خير جميعا وبلا استثناء وخاصة المهندس ياسر البنا أرى فيه نبوغا ورغبة كبيرة في العلم وإفادة الغير وفقنا الله وإياكم لكل ما يحبه ويرضاه

يمكنك ذلك من خلال: فتح مستند جديد فارغ ثم الوصول للصندوق الحواري خط font ثم اختيار نوع الخط وحجمه ولنه وأي اعدادات أخرى مطلوبة ثم الضغط على تعيين كافتراضي set as default ثم موافق ok

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

شكرا لجميع الإخوة المشاركين في الموضوع وللعلم تم تحديث المشاركة الأولى وتحديث الملف المرفق لتلافي بعض المشكلات برجاء إعادة تحميله

كما وعدت احبابي فيديو شرح كيفية استعمال الأداة الإضافية ولا ينقصني سوى دعاؤكم

لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح يرجى من السادة المشرفين حذف هذا السطر بعد تحديث المشاركة الأولى بمضمون هذه المشاركة وبإذن الله سيتم رفع فيديو لشرح كيفية استعمال الأداة MasNoPass.rar

ما شاء الله بارك الله لكم ومن الممكن وضع الكود في حدث عن تنشيط الصفحة وهذا يعني بمجرد فنح الصفحة يتم الذهاب لأول خلية فارغة في العمود h Private Sub Worksheet_Activate() ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select End Sub ولكن وضع الكود في حدث تغيير التحديد لا يفي بالغرض المطلوب

بارك الله لك أخي الكريم عبد الله وإذا سمحت لي يمكننا زيادة سرعة البحث والتعامل مع الملف بهذه التعديلات البسيطة بانتظار رأيك ورأي الإخوة الكرام أعضاء أوفيسنا ملحوظة: تم حذف جميع الأزرار واستبدالها بضغطات تم تلوين الآية في الشيت نموذج بحث سريع في القرآن الكريم1.rar

ما شاء الله بارك الله لكم جميعا ولكن لماذا العمود الإضافي الأيسر ويمكننا جمع الأرقام وهي في العمودين مباشرة بهذه المعادلة وتوضع في F14 =SUM(G8:G13;SUM(F8:F13)/100) وفقنا الله وإياكم لكل خير

أخي الكريم أولا لكي يحتوي الملف على أكواد فتح الملفات المكتوبة في الخليتين يجب أن يكون امتداده xls أو xlsm ثانيا يمكنك استعمال هذا الكود لفتح الملف Sub openfile() Workbooks.Open ("C:\" & Range("d3").Value & "-" & Range("e3").Value & ".xlsx") End Sub وفي الأخير مرفق ملفك بعد التعديل mas-AUG-4.rar

بارك الله فيك يا أم عبد الله وهذا رابط لملف إكسل على one drive بعد تعديل التصميم وتبسيطه وإكمال الصنفين الناقصين https://skydrive.live.com/redir?resid=3EF13269C8B4C11F!2433 يمكنك فتحه بدون أوفيس من المستعرض مباشرة للتعديل اضغط على edit workbook ثم edit in excel online

تفضل أخي الكريم هذا الكود كنت أستعمله في الأكسس وقمت بتجربته في الإكسل فعمل بصورة رائعة كود لجعل كلمة المرور في inputbox تظهر كنجوم تجده في المرفق ومثال على استخدامه inputbox with password mask.rar

الأخ الكريم مختار الملف بعد تعديلي يعمل 100% كما اخبرتك سابقا ولا أدري أين الخطأ عندك وهذا تسجيل للشاشة يؤكد عمل الملف وبالنسبة للكود الجديد الخاص بحذف الملف بعد دقيقة يمكنك تغييره إلى يوم بجعل الرقم 1 الموجود في السطر الثاني 1440 وهو حاصل ضرب 24 ساعة في 60 دقيقة وهكذا وأنصحك بالقراءة في مشاركات المنتدى لمعرفة الأساسيات قبل التعمق والتعديل في ملفات الزملاء

أخي الكريم مختار لقد نفذت المطلوب بدون الاهتمام باختبار الكود لكن يبدو أن الكود به بعض النقص فقمت بتغيير الإجرائين وهما يعملان 100% الإجراء الأول لوضع تاريخ اليوم في آخر خلية في الشيت إذا لم تكن موضوعة وإذا كانت موضوعة يتم اختبار المدة الموحددة في المتغير days بالأيام والإجراء الثاني لحذف الملف الحالي بعد إكمال النقص به mas_killmyself.rar

كل عام أنتم بخير المطلوب الأول يمكنك تعديل كود السطر 17 If Date > Evaluate("InitialDate") + 30 Then Kill_Myself بتعديل رقم 30 وهو عدد الأيام إلى 730 لسنتين أو 1095 لثلاث سنوات حاصل ضرب 365 في عدد السنوات المطلوب الثاني للتأكد افتح الملف أولا ليتم تحديد تاريخ اليوم كتاريخ أولي ثم قدّم تاريخ الجهاز سنة إلا دقيقة يعني سنة إلا يوم ثم اجعل الساعة 23:59 وبعد دقيقة واحدة سيتم حذا الملف المطلوب الثالث لا يوجد كود لعمل مثل هذا لأنه سيغير خصائص الويندوز لدى العميل ولكن يوجد كود بالمنتدى لتشغيل الملف من مسار معين وباسم معين وإذا تغير الاسم أو المسار يقوم بإغلاق الملف

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

حسبة برمة 301

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