استخدام الدالة Msgbox

[nofal.saad]

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

[nofal.saad]

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

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

print.rar

[أيسم إبراهيم]

السلام عليكم

الأخ الفاضل

تفضل المرفق به _ إن شاء الله _ ما طلبت

دمت بخير

أيسم إبراهيم

print.rar

[عادل حنفي]

السلام عليكم

اخي

تم عمل ما تطلبه عن طريق فورم عادي

جرب الملف و اخبرني النتيجه

تحياتي

print0.rar

[عادل حنفي]

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

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

[أيسم إبراهيم]

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

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

السلام عليكم

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

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

دمت بخير

أيسم إبراهيم

[يحيى حسين]

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

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

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

Sub PrintAYSAM()

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

	Range("C11:H131").Select

	'etc

	Range("A1").Select


End If

End Sub