أ / محمد صالح

لا أدري ما السبب فيما يحدث في هذا الشيت لقد أوقف برنامج الإكسل وتجمد (هانج) والحل هو نسخ المحتويات لشيت جديد ولكن بتحديد النطاق المطلوب فقط وليس تحديد الشيت كله جرب هذا الشيت بعد التعديل 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 رجاء توضيح المشكلة بمنتهى التفصيل طالما أنه لم تصل طريقة أستاذنا سليم للمطلوب أو إرفاق الملف

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

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

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

يفضل ارفاق الملف او مثال منه للعمل عليه

بالتوفيق إن شاء الله لهذا الغرض بالذات يحتوي الكود على اسم ملف الصورة في متغير fname وأفضل حل برمجي يقوم به المحترفون لهذا الغرض هو تسمية الملف باسم الشيت ثم تاريخ ووقت التصدير بالساعة والدقيقة والثانية فيجب تغيير سطر اسم الملف fname = ActiveSheet.Name & "." & Format(Now, "yyyymmdd.hhnnss") جرب وأجبرني بالنتيجة

لم اقم بتحميل الملف إلا الآن وعمل بصورة جيدة ولا يوجد أي خطأ لأن الكود متوافق مع 2003 وما بعدها

لا يوجد أي مشكلة عندي بعد حفظ الملف بتنسيق ٩٧ - ٢٠٠٣

يمكنك وضع هذا الكود في حدث عند التغيير في الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then lr = Range("g" & Rows().Count).End(xlUp).Row For n = 3 To lr If Range("g" & n).Value = [a1] Then Range("g" & n).Select Exit Sub End If Next End If End Sub

شكرا لمروركم الكريم أحبابي في الله كل عام وانتم بخير وسعادة وراحة بال رمضان مبارك

يمكنك تسجيل ماكرو لتسيق الخلية المطلوبة بالتنسيق المطلوب وفي كل مرة يتم اللصق تقوم باستدعاء الماكرو

المطلوب غير واضح كيف يتم الربط؟ كيف يتم النسخ؟