أ / محمد صالح

ينقص شرطة خلفية قبل اسم الملف 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

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

عليكم السلام ورحمة الله وبركاته يمكنك تعديل كود الإجراء إلى هذا الكود لتكرار الارتباطات في كل الصفحات حتى بعد إضافة أو حذف شيتات Sub ListAllSheets2() Dim sht As Worksheet, sh As Worksheet Dim i As Integer For Each sh In Worksheets sh.Activate i = 0 For Each sht In Worksheets i = i + 1 ActiveSheet.Hyperlinks.Add _ anchor:=Cells(i, 1), _ Address:="", _ SubAddress:="'" & sht.Name & "'" & "!a1", _ TextToDisplay:=sht.Name Next sht Next sh End Sub جرب وأخبرني بالنتيجة موفق إن شاء الله

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسعدني أن أقدم لأحبابي في الله حل مشكلة عدم ظهور الصوت sound problem في برنامج آيات Ayat في نظام التشغيل ويندوز 10 windows وخصوصا بعد تحديث برنامج adobe air إلى أحدث إصدار رابط تحميل نسخة adobe air 21 https://www.file-upload.com/ek1j4kv1mxbd آيات كأفضل برنامج للقرآن الكريم المشروع هو محاكاة الكترونية للمصحف الشريف - متوفر بسبع عشرة لغة - مع هامش لترجمة معاني القرآن الكريم لأكثر من عشرين لغة , وترجمة صوتية للغتين , وسبعة تفاسير , وتلاوات للقرآن الكريم بصوت العديد من مشاهير القراء مع إمكانية التكرار لتيسير الحفظ على الأطفال والمكفوفين خاصة iOS نسخــة الـنسخــة الأندرويــد نسخــة وينـدوز فـون نسخــة المــاك نسخــة الينيـكـس نسخـــة الوينـــدوز رابط الموقع http://quran.ksu.edu.sa/ ادعمنا بلايك وكومنت وشير والآن مع فيديو الشرح ولا تنسوني من صالح دعائكم

شكرا لكلماتك الرقيقة أستاذنا الفاضل نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا وأرجو من المشرفين وضع رابط المرفق في المشاركة ١٤ في أول الموضوع

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

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

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

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