تكبير وتصغير حجم الصفحات

[الشاب يوسف]

الاخوة الاعزاء برجاء عمل المطلوب الموجود في المرفق وهو كود يقوم بتكبير وتصغير حجم الصفحات كلها مرة واحده

التكبير والتصغير.rar

تم تعديل أبريل 16, 2013 بواسطه دغيدى

[حمادة عمر]

السلام عليكم

الاخ الكريم / yousifsamra

 

بارك الله فيك

شاهد المرفق ... واضغط الزر الموجود في الصفحة واكتب النسبة التي تريدها في التكست في الفورم

ثم اضغط علي الزر ...

وشاهد النتيجة

ارجو ان يكون هو طلبك

جزاك الله خيرا

 

-samaالتكبير والتصغير-.rar

[أبو سجده]

بسم الله الرحمن الرحيم

السلام عليكم

أخى العزيزالفاضل / يوسف

وبعد إذن أخى العزيز / أبوسما

إثراءا للموضوع شاهد المرفق

نسألكم الدعاء وجزاكم الله خيرا

[الشاب يوسف]

أخى الغالى حمادة عمر دائما سباق في عمل الخير ....... لقد جعلت من الاكسل لوحة فنية جميلة  تحمل توقيع  احد رياحين اوفيسنا  وعندما نجد الأبداع دوما سنلقى عطر حمادة عمر  ...اشكرك

والشكر موصول للمبدع  صاحب اللمسات الانيقة سعيد بيرم متخصص الذوق العالى والمشاركات العبقرية ..... بارك الله فيك

[أبو سجده]

أخى يوسف

أشكركم فهذا من واجبنا

[حمادة عمر]

السلام عليكم

الاخ والاستاذ الكريم / سعيد بيرم

 

بارك الله فيك

مثلك لا يستأذن بل يأمر دوما

جزاك الله خيرا

[حمادة عمر]

أخى الغالى حمادة عمر دائما سباق في عمل الخير ....... لقد جعلت من الاكسل لوحة فنية جميلة  تحمل توقيع  احد رياحين اوفيسنا  وعندما نجد الأبداع دوما سنلقى عطر حمادة عمر  ...اشكرك

والشكر موصول للمبدع  صاحب اللمسات الانيقة سعيد بيرم متخصص الذوق العالى والمشاركات العبقرية ..... بارك الله فيك

 

السلام عليكم

الاخ الكريم / yousifsamra

 

بارك الله فيك

وجزيل شكري علي كلماتك الراائعة التي لا يساويها شئ

جزاك الله خيرا

[رجب جاويش]

أخى الحبيب / حمادة عمر

أخى الحبيب / سعيد بيرم

تسلم االأيادى

وجزاكم الله كل خير

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / رجب جاويش

 

بارك الله فيك

مرورك دائما شرف لاي موضوع ... نورت الموضوع

جزاك الله خيرا

[أبو سجده]

السلام عليكم

الاستاذ الفاضل / رجب جاويش

بارك الله فيكم

جزاك الله خيرا

[الشاب يوسف]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / yousifsamra

بارك الله فيك

لتنفيذ ما تريده قم بتعديل الكود الموجود في الزر في الفورم الي الكود التالي

سيعمل معك علي كل شيتات الملف مهما كان عددها بدون كتابة اسماء الشيتات كما هو في الكود السابق

ارجو ان يفي بطلبك

وفي انتظار ردك

Private Sub CommandButton1_Click()
 ActiveWorkbook.Worksheets.Select
    Sheets("ورقة1").Activate
    ActiveWindow.Zoom = TextBox1.Value
    Sheets("ورقة1").Select
    Range("A1").Select
End
End Sub

جزاك الله خيرا