أ / محمد صالح

أخي الكريم أولا لكي يحتوي الملف على أكواد فتح الملفات المكتوبة في الخليتين يجب أن يكون امتداده 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

وهذا هو الشكل الجديد للصفحة بعد استعمال الأجاكس واستدعاء الدالة عند كل تغيير في مكونات النموذج https://officena.net/team/mas/tafkeet/ وفقنا الله وإياكم لكل ما يحب ويرضى

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

بسم الله الرحمن الرحيم أنا مش فاهم المطلوب بالضبط هل هو عدم فتح ملف مفتوح فهذا موجود بالفعل فالإكسل يظهر رسالة يقول لا يمكن فتح الملف لأنه مفتوح وإذا كان المطلوب هو إمكانية فتح أكثر من نسخة من الملف فهذا موجود من خلال فتح الملف في نافذة جديدة ويظهر في آخر اسم الملف 1 أو 2 أو 3 حسب عدد النوافذ ياريت مزيد من التوضيح للمطلوب وما استخدامه الفعلي ربما يجد الأخ السائل ما يسره

بسم الله الرحمن الرحيم يسعدني أن أقدم لأحبتي في الله رواد أوفيسنا برنامج إكسل يمكنك من حساب النقاط في كأس الأمم الإفريقية 2013 ولا تنسوني من صالح دعائكم

عذرا أخي الموسى نظرا لانشغالي أتمنى أن يفيدك هذا الرابط http://www.accessmvp.com/KDSnell/EXCEL_Import.htm وهو يخص الكثير من طرق الاستيراد من الإكسل

موقع جريدة الفجر http://fajr.tagipedia.net/

شكرا لك أخي يوسف تصحيح بسيط لموقع اليوم السابع http://natega5.youm7.com/nategathanawy2012.aspx

أخي الكريم أبا ردينة هذا هو الكود الخاص بالصفحة لمن يريد وضعه في موقعه newprayer.rar

ما شاء الله بارك الله لك أخي عبد الله وزادك الله من علمه وكل عام أنتم جميعا بكل خير

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

بارك الله لك أخي أحمد ذكرتنا بمجد مضى وبالنسبة لسؤال الأخ أبو ردينة تسمى غرائب الشعر وترجع إلى مستوى إتقان الشاعر للغة العربية وتمكنه من مفرداتها ومنها أيضا : قول القاضي الأرجاني مودته تدوم لكل هول ..... وهل كل مودته تدوم هذا البيت يقرا من الجهتين من بداية السطر إلى نهايته، كما يقرأ من نهايته إلى بدايته، دون اعتبار لتشكيل الحروف. جزء من القصيده الرجبيّه حلموا فما ساءَت لهم شيـم ..... سمحوا فما شحّت لهم مننُ سلموا فلا زلّـت لهم قـــدمُ ..... رشدوا فلا ضلّت لهم ســــننُ لها ميزة عجيبه هي: ان الأبيات، أبيات مدح وثناء ولكن عندما تقرأ بالعكس ولكن كلمة كلمة تكون أبيات هجائيه موزونة ومقفّاة. وسوف تكون الابيات بعد قلبها كالتالي: مننٌ لهم شحّت فما سمحوا ..... شيمٌ لهم ساءَت فما حلموا سننٌ لهم ضلّت فلا رشــدوا ..... قدمٌ لهم زلّت فلا ســلمـوا قصيدة مدح لنوفل بن دارم اذا اكتفيت بقراءة الشطر الأول من كل بيت. فإن القصيدة تنقلب رأساً على عقب. وتغدو قصيدة ذم لا مدح. قصيدة المدح: إذا أتيـت نوفـــــــل بــن دارم ..... امير مخزوم وسيف هاشـم وجدتـه أظلـــم كـل ظالــــم ..... على الدنانيـــر أو الدراهـــم وأبخل الأعـراب والأعاجــــم ..... بعرضــــه وســــره المكـــاتـم لا يستحي من لوم كل لائـم ..... إذا قضى بالحق في الجرائم ولا يراعــي جانب المكــارم ..... في جانب الحق وعدل الحاكم يقرع من يأتيه سـن النـادم ..... إذا لم يكن مـن قـدم بقـادم قصيدة الذم: إذا أتيت نوفـــل بن دارم ..... وجــدته أظلــم كل ظالــم وأبخل الأعراب والأعاجم ..... لا يستحي من لوم كل لائم ولا يراعي جانب المكارم ..... يقرع من يأتيه ســن النادم وفقنا الله وإياكم لكل ما يحب ويرضى

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

بارك الله لك أخي عبد الله وإذا سمحت لي بهذه الإضافة كود توسيط النموذج بالنسبة للتطبيق حتى لا يظهر في أعلى يسار الشاشة Private Sub UserForm_Initialize() Me.StartUpPosition = 0 Me.Top = Application.Top + ((Application.Height - Me.Height) / 2) Me.Left = Application.Left + ((Application.Width - Me.Width) / 2) End Sub

بارك الله لكم جميعا إخوتي وبعد إذن أخونا رجب يمكن اختصار الكود إلى هذه الجملة Shell "calc" وتعني استدعاء الحاسبة بغض النظر عن مسارها المذكور في مثال الأخ أبو حنين لأنه يختلف من نظام تشغيل إلى آخر ومن مستخدم لآخر حسب القرص المثبت عليه نظام التشغيل وفقنا الله وإياكم لكل ما يحب ويرضى

بارك الله لك أخي عبد الله مجهود رائع وعمل ممتاز

بارك الله لك أخي أحمد وإذا سمحت لي بتعديل بسيط حتى لا تظهر الفاصلة في نهاية السطر وخاصة في حالة عدم وجود أحد بعده Dim X As Integer, n As Integer For X = 0 To Cont.Value If [Select].Value = -1 Then Text6.Value = Text6.Value & IIf(n > 0, " , ", "") & Emp_Name.Value n = n + 1 End If لاحظ استخدام متغير آخر وجملة if لوضع الفاصلة قبل الثاني وما بعده وليس قبل الأول وفقنا الله وإياكم لكل ما يحب ويرضى