أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





تحويل الملف الى PDF ثم طباعته

السلام عليكم و رحمة الله و بركاته أريد أن أعمل كود VBA من أجل 1/- إذا وجد في الخلية B2 كلمة quot;EXCELLENTquot; او quo ..



28-05-2020 12:24 مساء
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 

السلام عليكم و رحمة الله و بركاته
أريد أن أعمل كود VBA من أجل 
1/- إذا وجد في الخلية B2 كلمة  "EXCELLENT" او "TRES BIEN" يقوم بحذف الصفحة الثالثة ثم  يقوم بحفظ الورقة "TEST" الى ملف PDF ثم يقوم بطباعة هذا الملف (03 صفحات)
2/- اما إذا وجد في الخلية B2 كلمة مثلا "MAUVAIS" فيقوم بحفظ الورقة "TEST" الى ملف PDF ثم يقوم بطباعة هذا الملف وهذا بدون حذف اي صفحة
و بارك الله فيكم

 
 
 
  Code Impression Page.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(10.933) KB


28-05-2020 12:31 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تحويل الملف الى PDF ثم طباعته
وعليكم السلام
هل يمكن أن ترينا ما توصلت إليه حتى الآن ؟؟؟ وفي أي نقطة تعثرت ..

28-05-2020 08:54 مساء
مشاهدة مشاركة منفردة [2]
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 
look/images/icons/i1.gif تحويل الملف الى PDF ثم طباعته
هذا هو الكود الذي استعملته الذي اشعر انه كثير جدا

Private Sub IMPRIMER_Click()
Application.ScreenUpdating = False
On Error Resume Next
Set ws = ThisWorkbook.Worksheets("TEST")
ws.Activate
If Me.TextBox1.Text = "EXCELLENT" Or Me.TextBox1.Value = "TRES BIEN" Then
ws.Range("B2") = Me.TextBox1.Text
ws.Select
    ws.Copy Before:=Sheets(2)
    Rows("43:84").Select
    Selection.Delete Shift:=xlUp
    Range("A36").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersNoureddineDesktopCode Impression Page.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Sheets("TEST (2)").Select
    ActiveWindow.SelectedSheets.Delete
    ws.Select
    Range("B2").Select
    
ElseIf Me.TextBox1.Text = "MAUVAIS" Then
ws.Range("B2") = Me.TextBox1.Text

ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersNoureddineDesktopCode Impression Page.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

End If

End Sub

ولكن تاتيني رسالة فأنا اريد ان اتفادها

 


28-05-2020 08:58 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تحويل الملف الى PDF ثم طباعته
لإيقاف الرسائل التحذيرية استخدم الخاصيةDisplaya l e r ts وهي من خصائص التطبيق Application واجعل القيمة تساوي False في بداية الكود ، ثم نفس السطر مع تغيير القيمة False إلى True لإرجاع الخاصية كما كانت.

29-05-2020 11:55 صباحا
مشاهدة مشاركة منفردة [4]
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 
look/images/icons/i1.gif تحويل الملف الى PDF ثم طباعته
بارك الله فيك و جزاك الله خيرا

29-05-2020 12:07 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تحويل الملف الى PDF ثم طباعته
وجزيت بمثله أخي الكريم والحمد لله الذي بنعمته تتم الصالحات

29-05-2020 02:06 مساء
مشاهدة مشاركة منفردة [6]
أحمد يوسف
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 483
الجنس : ذكر
الدعوات : 2
يتابعهم : 4
يتابعونه : 11
قوة السمعة : 1129
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif تحويل الملف الى PDF ثم طباعته
Noureddine70
هل انت من أنصار عدم الضغط على الإعجاب وتقدير مجهود الأساتذة الذين لهم الفضل عليك بعد ربنا فى حل مشكلتك وهذا اقل ما يقدم لهم على مجهوداتهم وأوقاتهم المهدرة معك فى حل مشكلتك ؟!!
يجب عليك الضغط على الإعجاب ؟!!!28123




الكلمات الدلالية
الطباعة ،


 










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

الساعة الآن 02:49 صباحا