أ / محمد صالح

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

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

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

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

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

ينقص شرطة خلفية قبل اسم الملف objChart.Export ("C:\Users\4\Desktop\saes\" & saes & ".jpg")

يوجد في نهاية المسار اسم الملف والامتداد & Fname & ".Jpg"

أكيد ممكن فقط يلزمك تعديل السطر الخاص بمسار التصدير الذي به Thisworkbook.path وتعني مسار المصنف الحالي غيرها لأي مسار ثابت تريده

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

كان مجرد اقتراح ولكن بعد التجربة لم يفلح وتم التوصل لهذا الكود تفضل export range to jpg.rar

أعتقد أن الأمر الخاص بالقوائم موجود لدعم النسخ السابقة ٢٠٠٣ وما قبلها والأفضل والأقصر هو الأمر الأول وجزاك الله كل خير أستاذ عبد الفتاح على كل ما تقدمه من معلومات نافعة كل عام والجميع بخير وسعادة ورضا

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

تفضل اخي الكريم https://www.visualstudio.com/vs/visual-studio-express/

وإياكم أستاذ عماد وفقنا الله جميعا للخير

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

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

لا أعتقد أنه يوجد كود يتحكم في هذا الأمر

File > Options > Trust Center > Trust Center Settings > Privacy Options > Remove personal information from file properties on save > OK.

بارك الله لك أستاذ خالد أنتم أروع

ربما يفيدك هذا التعديل في التنسيق والمعادلة تاريخ اخلاء2.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يرجع هذا الخطأ إلى تسمية الدالة بنفس اسم الموديول حيث أن طريقة استدعاء الدالة عموما هي module_name.function_name فأول اسم للموديول وإذا استدعينا الدالة باسم واحد فقط فيجب أن تكون باسم غير اسم الموديول بحيث يتم البحث أولا في الموديولات فإذا لم يجد هذا الاسم فإنه يبحث في الدالات كل عام وجميع الأحباب في منتدانا الرائع بكل خير

يمكنك استعمال حدث قبل الإغلاق الخاص ب thisworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) 'your code here End Sub