اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

التعديل على الكود المرفق بالملف


الردود الموصى بها

السلام عليكم  .. 

.. أرجوا من حضراتكم  :

.. مراعاة النظر في الكود المرفق بالملف ( صيغة PDF )

.. الكود رائع جدا وبسيط 

.. لكن المشكلة تنحصر في  :

.. عندما تكون الخلية  ( b2 ) فارغة من اسم الملف  يرسل رسالة  run time error  

.. عندما تكون الخلية (b2 ) غير فارغة يتم حفظ ورقة العمل بصيغة PDF

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

شكراااا جزيلا 

كود حفظ بصيغة PDF.rar

رابط هذا التعليق
شارك

أخي الكريم :

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

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

Sub Picture2_Click()
'

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "محمد", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    
           
End Sub

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

تم تعديل بواسطه أبو إيمان
  • Like 2
رابط هذا التعليق
شارك

9 ساعات مضت, أبو إيمان said:

أخي الكريم :

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

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


Sub Picture2_Click()
'

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "محمد", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    
           
End Sub

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

السلام عليكم  .. أستاذنا الفاضل  .. أبو إيمان 

كل عام وحضرتك بخير دائما 

.. فكرة تعديل الكود جميلة ورائعة 

حيث قمت بالدخول على الكود  .. قمت بتعديل الإسم من  : محمد إلى إسمي الحقيقي  : فايز فراج 

.. تم تجربة الكود بنجاح وعلى درجة عالية من الكفاءة 

 

فايز فراج 

مدرس بالأزهر الشريف 

شكرا جزيلا لحضرتك 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information