أ / محمد صالح

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

سوف يرسل لهم بريد بكلمة المرور الخاصة بهم من حسابك في جي ميل

تفضل أخي الكريم هذا مثالك بعد بعض التعديلات فقط يلزمك وضع بريدك في جميل وكلمة مروره في الكود الخاص بزر الإرسال mas_forgetpassword_email.rar

شكرا لمروركم الكريم أحبتي في الله ولكلماتكم الرقيقة وفقنا الله وإياكم لكل خير

بارك الله لك على حرصك على التعلم والتطبيق والجواب سهل جدا فقط يلزمك تغيير الاخاصية column width عرض العمود إلى 0,3 وتعني أن العمود الأول لا يظهر فعرضه 0 زالعمود الثاني (الاسم) يظهر وعرضه 3 سم لاحظ هذا المرفق mas_Networks.rar

بعد اذن أستاذنا خالد الحل سهل جدا ضع في الخلية C2 =LEFT(B2,1) واسحب المعادلة لأسفل

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

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

لا أدري ما السبب فيما يحدث في هذا الشيت لقد أوقف برنامج الإكسل وتجمد (هانج) والحل هو نسخ المحتويات لشيت جديد ولكن بتحديد النطاق المطلوب فقط وليس تحديد الشيت كله جرب هذا الشيت بعد التعديل 2222.rar

المنتدى خدمات مساعدة لصاحب البرنامج وتقديم الاستشارات في نقاط بسيطة وليس في البرنامج كله أحي الكريم ابدأ بالتعلم والقراءة والبحث والتنفيذ بنفسك وتذكر دائما Easy come easy go ما يأتي بسهولة يذهب بسهولة

ما الأعمدة التي تريد إخفاءها؟ وما شرط إخفائها؟ وأعتقد كل الصفوف ظاهرة بصورة طبيعية رجاء توضيح السؤال

حدد الكود وانسخه CTRL+C كلك يمين على الشيت cash ثم تختار view code ثم تلصق الكود ...................... مع ملاحظة أن امتداد الملف الحالي لا يصلح لاحتواء أكواد وبعدها يجب حفظ الملف بنوعية macro enabled workbook

ممكن تستعمل حدث عند تغيير تحديد الحلايا للرجوع للخلية المطلوبة جرب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [f8] = "" Then [f8].Select End Sub

موفق إن شاء الله هدية رائعة وتصميم أروع

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

معنى هذا أن shapes.addchart موجودة في إكسل 2007 وما بعده وربما يفيد هذا الإجراء من يستخدمون 2003 مع تغيير في الآلية وهي تصدير النطاق المحدد إلى مجلد اسمه folder موجود على سطخ المكتب Sub SelectionToJpg() fpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\folder\" & Format(Now, "yyyymmdd.hhnnss") & ".jpg" Selection.CopyPicture xlScreen, xlPicture With ActiveSheet Dim chtObj As ChartObject Set chtObj = .ChartObjects.Add(0, 0, Selection.Width, Selection.Height) chtObj.Name = "TempChart" .ChartObjects("TempChart").Activate ActiveChart.Paste ActiveChart.Export fpath chtObj.Delete End With MsgBox "ok" End Sub وفي الأخير أنصح كل من يستخدم أوفيس 2003 بألا يحرم نفسه من سهولة ومميزات الإصدارات الأحدث فقد صدر بعده 4 إصدارات 2007 2010 2013 2016

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

وطبعا لإذن الإضافة فقط يلزمك تغيير هذا السطر إلى أصغر من صفر If Cells(i + 9, 10).Value < 0 Then كل عام وانتم جميعا بخير وسعادة ورضا

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

ليس لدي نسخة من اوفيس ٢٠٠٣ مثبتة على جهازي والبرنامج يعمل بكفاءة عالية على أوفيس ٢٠١٦ وبعد تجربة الأستاذ بن علية للبرنامج على أوفيس ٢٠٠٣ يمكننا القول بإصلاح repair او إعادة تثبيت أوفيس ٢٠٠٣ ربما يحل المشكلة

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

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

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

ياريت تصور نص الرسالة قبل الدخول لشاشة الفيجوال بيزك مثل هذه

ممكن رسالة الخطأ التي تظهر قبل الدخول لشاشة الكود تساعدنا مثل هذه