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

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

قام بنشر

الساده / أعضاء المنتدى     المحترمين

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

اليكم نموذج عملى _(بالمرفقات)_مع الشرح 

عن كيف يتم الإستغناء عن صفوف خاليه أثناء الطباعه

والنموذج المرفق على فاتورة

يمكنكم تطبيقها على أى أمر آخر 

واليكم الشرح :

 

1 - يجب معرفة العمود والصف الذى ستبدأ به تدوين البيانات داخل الفاتورة ولنفترض حسب الملف المرفق أنه عمود b صف 8 ( أى الخلية b8) .

2 - يجب معرفة آخر صف يتم تدوين البيانات فيه والخاص بالفاتورة وحسب الملف المرفق هو ( b38) .

3 - نذهب لتعريف اسم الداله كما ذكرتم لكم سابقا 

4 - تقوم بالضغط على زر جديد بالنافذة التى ستظهر أمامك 

5 - تظهر لك نافذة جديدة تقوم بتعريف الأسم الخاص بالدالة والذى سيرفق بالكود لاحظ ذلك جيدا تشابه الأحرف بشكل تام ويفضل تعريفها باللغة الإنجليزية 

6 - تقوم بإختيار النطاق ( مصنف ) من داخل النافذة ايضا الأخيرة

7 - تقوم بكتابة المعادلة ( طبقا للملف المرفق ) هى 

     

 SUMPRODUCT((sheet2!$B$8:$B$38 <> "") * (sheet2!$B$8:$B$38 <> " "))+8 = 

8 - تقوم بالذهاب إلى محرر الأكواد ALT+F11

9 - تقوم بإضافة موديول جديد ( من ادراج تختار موديول )

10 - تقوم بنسخ ولصق الكود

Sub Printing()

Rows([Row] & ":38").EntireRow.Hidden = True

ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Rows("8:38").EntireRow.Hidden = False

End Sub 

شرح مبسط للكود 

قراءة الصفوف من نطاق الاسم الذى قمنا بتعريفه من خلال الداله السابقة الذكر ولاحظ تطابق كلمتين ( ROW)

اى صف به بيانات داخل هذا النطاق المعرف من قبل الداله به بيانات احتفظ به 

واى صف ليس به بيانات قم بإخفائه 

ثم قم بتفعيل نافذة المعاينه قبل الطباعه 

وفى حاله تمت الطباعه والحمد لله كما نريد ( قم بإظهار الصفوف المخفية )

11 - تذهب الى صفحة الفاتورة  

12 - تقوم بإدراج أى شكل تختاره وتكتب عليه طباعه 

13 - تقوم بالضغط عليه كليك يمين

14 - تختار تعيين ماكرو

15 - تظهر لك نافذة 

16 - أختر منها طباعه 

17 - ثم موافق

تم بحمد الله الشرح والله المستعان

وتقبلوا منى وافر الإحترام والتقدير

m_elshrief_print.rar

  • Like 3
قام بنشر

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

الاستاذ والاخ الحبيب محمود الشريف

اعانك الله لعمل الخير ونشر العلم والمعرفة

موضوع رائع جعله الله في ميزان حسناتكم

وفقكم الله وزادكم من فضله علما وخيرا كثيرا

تقبل فائق الاحترام والتقدير

قام بنشر

الأستاذ الفاضل / محمود الشريف

 

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

 

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

قام بنشر

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

الاستاذ والاخ الحبيب محمود الشريف

اعانك الله لعمل الخير ونشر العلم والمعرفة

موضوع رائع جعله الله في ميزان حسناتكم

وفقكم الله وزادكم من فضله علما وخيرا كثيرا

تقبل فائق الاحترام والتقدير

اخى فى الله

الأستاذ القدير/ أبو محمد عباس

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

وتقبلوا منى وافر الإحترام والتقدير

قام بنشر

الأستاذ الفاضل / محمود الشريف

 

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

 

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

اختنا فى الله

الأستاذة القديرة / أم عبد الله

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

فيما يختص بطلبكم وإستفساركم

* * الرسائل التى تظهر عند فتح الملف يمكنكم تجاهلها 

** فيما يختص بالصفوف فعمل الكود يقوم بمراجعه المدى المحدد من قبل المعادلة

وأى صف خالى تماما من البيانات خاص بالعمود b  يقوم بتجاهله

وتقبلوا منى وافر الإحترام والتقدير

قام بنشر

الأستاذ الفاضل / محمود الشريف

 

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

 

جزاك الله خيراً على هذا الشرح وبالفعل تم تجاهل الرسائل. لك كل التحية والتقدير.

اختنا فى الله

الأستاذة القديرة / أم عبد الله

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

وزادكم الله من فضله ومن علمه

وتقبلوا منى وافر الإحترام والتقدير

قام بنشر

بارك الله فيك اخي محمود 

تم تعديل العنوان ليُفهم منه انه ليس طلب

أخى فى الله

الأستاذ القدير / عبد الله المجرب

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

وجزاكم رب العالمين عنا خير الجزاء

شاكرا لكم حسن تعاونكم 

وتقبلوا منى وافر الإحترام والتقدير

  • 5 months later...
قام بنشر

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

ا/ محمود_الشريف

شكرا جزيلا على العمل الرائع

انا استخدمت المرفق على نظام شغلى وعند الطباعه تتم طباعه الصفحه الاولى فقط ولا يتم طباعه باقى الصفحات

ارجو من حضرتك التعديل على المرفق التالى بحيث يتم طباعه جميع الصفحات

 

114.rar

قام بنشر

أخى فى الله

الأستاذ // خالد العنانى

فيما يختص بطلبكم

لابد من تغيير المدى الموجود بالمعادلة .. فأنتم حددت المدى الى (( C39 )) رغم أن عدد الصفوف لديك أكثر

قم بزيادة المدى الخاص بعدد الصفوف ليتناسب مع النموذج الخاص بكم

وتقبل منى وافر الاحترام والتقدير

  • Like 2
قام بنشر

أخى فى الله

الأستاذ الكبير // ابراهيم ابو ليله

بارك الله فيكم على مروركم الكريم

وجزاكم الله خيرا على دعوتكم الطيبة

تقبل منى وافر الاحترام والتقدير

قام بنشر

 

ا / محمود الشريف

شكرا جزيلا على التوضيح

بارك الله فيك

ونسال الله ان يكون ف ميزان حسناتك

 

أخى الكريم

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

وتقبل منى وافر الإحترام والتقدير

قام بنشر

أخى الكريم

تفضل الملف لعله المطلوب

الطباعة مرتبطه بالعمود ( C ) لنكم لم تذكر شرط الصفوف الفارغة مرتبطه باى عمود

وتقبل منى وافر الاحترام والتقدير

 

12-07-2014i.rar

قام بنشر

بارك الله فيك و فتح عليك و اشكرك على التفاعل و الاهتمام

لكن في الحقيقة ان مشكلتي لم تحل كما كنت ارغب ربما سبب ذلك انني لم اوضح الفكرة جيدة

انا اريد ان تطبع الاسطرالمملؤة من C10 الى C34

كما اريد ان تطبع الاسطر المملؤة من B38الى B49

و في الاخير تقبل تحياتي

قام بنشر

السلام عليكم.. عفوا قمت بنقل الكود الى ملف اكسل ولا يريد ان يشتغل مي, بصراحه أصلً  اني لم افهم كيف التعامل مع المعادلة واين توضع بالضبط هل ممكن هذا هو السبب. ولك الشكر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information