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

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

قام بنشر (معدل)

السلام عليكم

 

اريد كود طباعة والغاء طباعة ورقة١، ورقة٢، ورقة ٣.

اذا كان مكتوب في ورقة١، وورقة٢، وورقة ٣. في الخليةB3 راسب او غائب يتم الغاء الطباعة واذا كان مكتوب نجاح يتم طباعة الاوراق.

 

تم تعديل بواسطه رعد الراعدي
قام بنشر (معدل)

يا استاذ بن علية 

الملف حجمة كبير ما استطعت ارسله النت ضعيف عندي.

لو تكرمت يا استاذي بن علية  ارسال الكود حسب ماهو مطلوب.

 

تم تعديل بواسطه رعد الراعدي
  • تمت الإجابة
قام بنشر

السلام عليكم

جرب الكود التالي (بتحفظ):

Sub Conditional_Print()
    For I = 1 To 3
    With Worksheets("ورقة" & I)
    .Activate
    If .Cells(3, 2) = "راسب" Or .Cells(3, 2) = "غائب" Then GoTo 1
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End With
1   Next
    Worksheets("ورقة1").Activate
End Sub

 

  • Like 2
قام بنشر

السلام عليكم

أكيد أن هناك خلل، إما في الكود (مع العلم أني جربته في ملف أنشأته كنموذج واشتغل جيدا) ويمكن أن تكون فيه (الكود) المصطلحات -الكلمات- التي هي باللغة العربية لا تظهر عندك في الكود بالشكل الصحيح، وإما الخلل في ملفك ربما يكون في تسمية الأوراق (ورقة1، ورقة2، ورقة3 المعنية بالطباعة) أو في المصطلحات "راسب" أو "غائب" لعلك كتبتها بمسافات (في أولها أو في آخرها)... والأحسن أن ترفق ملفك (مع القليل جدا من البيانات ودون البيانات الشخصية...).

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information