اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السادة الكرام : الشكل العام للدالة Msgbox: المتغير =Msgbox("عنوان الرسالة",رقم كودي,"نص الرسالة") كيف يمكن الاستفادة من هذه الدالة لوضع رسالة "هل تريد الطباعة"فإذا نعم يكمل الماكرو المرفق بالملف عمله و الخاص بطباعة نواحي عديدة في ورقة العمل و إذا لا يلغي الامر 0 لايمكنني ارفاق الملف لا اعرف لماذا Error You aren't permitted to upload this kind of file

قام بنشر

السادة الكرام : الشكل العام للدالة Msgbox: المتغير =Msgbox("عنوان الرسالة",رقم كودي,"نص الرسالة") كيف يمكن الاستفادة من هذه الدالة لوضع رسالة "هل تريد الطباعة"فإذا نعم يكمل الماكرو المرفق بالملف عمله و الخاص بطباعة نواحي عديدة في ورقة العمل و إذا لا يلغي الامر 0 لايمكنني ارفاق الملف لا اعرف لماذا Error You aren't permitted to upload this kind of file

تم ارفاق الملف بعد تحويله لملف مضغوط

print.rar

قام بنشر
عذرا اخي ايسم لم ار مشاركتك الا بعد رفع ملفي

فاعذرني علي ذلك

السلام عليكم

أستاذنا الفاضل : أستاذ عادل

أنا اللي آسف أني سبقت على أستاذي و إلا حرمنا من إبداعاتك

دمت بخير

أيسم إبراهيم

قام بنشر

السلام عليكم و رحمة الله و بركاته

اضافة لحل الاخوين عادل و ايسم جزاهما الله كل خير

هذا حل اخر رديف لطريقة الاخ ايسم


Sub PrintAYSAM()

If MsgBox("هل ترغب في الطباعة الان ", vbYesNo) = vbYes Then

	Range("C11:H131").Select

	'etc

	Range("A1").Select


End If

End Sub



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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

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

Important Information