طلب - عدم طباعة الصفوف الفارغة فى ملف اكسيل

[arts8000]

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

بحثت عن طلبى هذا مراراً قبل ان اكتبة و للحقيقة وجدت اكثر من موضوع فى المنتدى عنه و لكننى للأسف لم استطيع تطبيقه

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

و طلبى منكم هو

ارجو المساعده في  تعديل الملف  المرفق ليطبع الصفوف الممتلئة فقط  و عدم طباعة الصفوف الفارغة

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

و كذلك سيتم تغيير اسم الملف ايضا ..

فأرجو  الا يتعارض ذلك مع تنفيذ طلبى

 

و لو امكن اريد شرحاً لكيفية تنفيذ ذلك بشكل مبسط لاننى لست خبيراً مثلكم 
و شكراً جزيلاً

 

الملف فى المرفقات

Sample Linked v3.rar

 

 

 

[الصـقر]

 اخى الفاضل / اليك الكود 

كم بنسخ الكود ومن الفيجوال بيسك اعمل ادراج مودويل جديد وقم بلصق هذا الكود به

ثم الذهب لكل صفحه وادرج عدد 2  زر / الزر الاول اضغط علية كليك يمين واختار تعيين ماكرو ثم اختار معاينة  / الزر الثانى اضغط علية كليك يمين واختار تعيين ماكرو ثم اختار طباعه

() معاينة Sub

HIDE_BLANK

ActiveSheet.PrintPreview

UNHIDE_BLANK

End Sub

 () طباعه Sub

HIDE_BLANK

ActiveSheet.PrintOut

UNHIDE_BLANK

End Sub

 ()Sub HIDE_BLANK

 

    ActiveSheet.Range("$A$1:$H$45").AutoFilter Field:=1, Criteria1:="<>"

    Range("A1").Select

End Sub

()Sub UNHIDE_BLANK

 

    ActiveSheet.Range("$A$1:$H$45").AutoFilter Field:=1

    Range("A1").Select

End Sub

تم تعديل يوليو 1, 2014 بواسطه حسام عيسى

[احمد ابوزيزو]

السلام عليكم

مشاركة بسيطة

برجاء تقبل تحياتي

Sample Linked v3.rar

[محمود_الشريف]

أخى الكريم

اليكم رابط به شرح لعدم طباعه الصفوف الفارغة 

خطوة .. خطوة

  http://www.officena.net/ib/index.php?showtopic=51423#entry318455

 

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

[arts8000]

 

 اخى الفاضل / اليك الكود 

كم بنسخ الكود ومن الفيجوال بيسك اعمل ادراج مودويل جديد وقم بلصق هذا الكود به

ثم الذهب لكل صفحه وادرج عدد 2  زر / الزر الاول اضغط علية كليك يمين واختار تعيين ماكرو ثم اختار معاينة  / الزر الثانى اضغط علية كليك يمين واختار تعيين ماكرو ثم اختار طباعه

() معاينة Sub

HIDE_BLANK

ActiveSheet.PrintPreview

UNHIDE_BLANK

End Sub

 () طباعه Sub

HIDE_BLANK

ActiveSheet.PrintOut

UNHIDE_BLANK

End Sub

 ()Sub HIDE_BLANK

 

    ActiveSheet.Range("$A$1:$H$45").AutoFilter Field:=1, Criteria1:="<>"

    Range("A1").Select

End Sub

()Sub UNHIDE_BLANK

 

    ActiveSheet.Range("$A$1:$H$45").AutoFilter Field:=1

    Range("A1").Select

End Sub

 

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

مع انى مش فاهم لكن هاحاول انفذ كلامك و ارد عليك فى اقرب وقت

[arts8000]

السلام عليكم

مشاركة بسيطة

برجاء تقبل تحياتي

شكرا اخى العزيز و لكن الملف به مشكلة فعند الطباعة لا يطبع السطور رقم 2 و 3 و 4

و كذلك 43 و 44 و 45 رغم انهم من الخلايا الممتلئة

عندى اقتراح ..  ارجو ان تلبية 

اولا تعدل الملف الاصلى  بحيث ان يكون بدون كلمة سر

ثانيا ان يكون هناك زر واحد لطباعة الحقول الممتلئة فقط مثل الملف المرفق 

و شكرا لك اهتمامك

 

طباعة الحقول الممتلئة فقط.rar

[arts8000]

 

أخى الكريم

اليكم رابط به شرح لعدم طباعه الصفوف الفارغة 

خطوة .. خطوة

  http://www.officena.net/ib/index.php?showtopic=51423#entry318455

 

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

 

شكرا لاهتمامك

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

[احمد ابوزيزو]

الاخ الكريم

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

بالرجوع الي طلبك

و طلبى منكم هو

 

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

تم حماية الورقة كما اشرت بطلبك انك سوف تقوم بحماية الورقة

 

ونظرا لان  الماكرو لا يعمل في ورقة محمية بكلمة مرور الا من خلال كتابة السطر الاول التالي

ActiveSheet.Unprotect Password:="123"

الذي يقوم بازالة كلمة الحماية عن الورقة  حتي يتم تنفيذ الماكرو

وفي نهاية كود الماكرو كتابة السطر التالي

ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

الذي يقوم بحماية الورقة بعد تنفيذ الماكرو

وتم الاشارة الي امكانية تغيير كلمة الحماية

اما بخصوص عدم طباعة الاسطر 2    3    4       43    44

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

اما السطر 45  فهو خالي تماما من اي بيانات

[arts8000]

الاخ الكريم

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

بالرجوع الي طلبك

و طلبى منكم هو

 

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

تم حماية الورقة كما اشرت بطلبك انك سوف تقوم بحماية الورقة

 

ونظرا لان  الماكرو لا يعمل في ورقة محمية بكلمة مرور الا من خلال كتابة السطر الاول التالي

ActiveSheet.Unprotect Password:="123"

الذي يقوم بازالة كلمة الحماية عن الورقة  حتي يتم تنفيذ الماكرو

وفي نهاية كود الماكرو كتابة السطر التالي

ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

الذي يقوم بحماية الورقة بعد تنفيذ الماكرو

وتم الاشارة الي امكانية تغيير كلمة الحماية

اما بخصوص عدم طباعة الاسطر 2    3    4       43    44

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

اما السطر 45  فهو خالي تماما من اي بيانات

اسف جداً على ازعاجك اخى الكريم 

اولا انا لم اغير طلبى و لكنى توقعت ان تكون كلمة السر هى السبب فى عدم ظهور الاسطر  ؛ لذا طلبت منك حذفها

و اشكرك جداً على التوضيح و بالنسبة للسطر 45 ليس خالى من البيانات كما تقول .. فبه اسم الملف كما هو محفوظ على الجهاز لسهولة الوصول اليه و لا سظهر الاعند الطباعة او المعاينة قبل الطباعة

 

و شكرا جزيلا لك و لاهتمامك 

 

اذا كان هناك امكانية لاظهار السطر 45 اكون شاكر لحضرتك جداً

و ان كان هناك امكانية لوجود زر واحد لطباعة الحقول الممتلئة فقط مثل الملف الذى ارفقتة سابقا يكون هذا كرم زائد منك

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

شكرا جزيلاً

[احمد ابوزيزو]

الاخ الكريم

السلام عليكم ورحمة الل

اولا : لا داعي للاعتذار

فقط اردت ان اوضح لك ما فهمته انا من طلبك

تم اظهار الصف 45

تم ادراج الكود المرفق مع الملف

تم اضافة زر الكود الجديد

ارجو ان يكون هذا ما اردت

اكر مره اخري

لا داعي للاعتذار

Sample Linked v3.rar

تم تعديل يوليو 3, 2014 بواسطه احمد ابوزيزو

[احمد ابوزيزو]

نسخة معدلة

بعد اضافة اكواد

الاستاذ / حسام عيسي

وعمل الازرار اللازمة

Sample 22Linked v3.rar

[arts8000]

شكراً لمجهودك و اهتمامك اخى الفاضل 

خير الناس انفعهم للناس

[احمد ابوزيزو]

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

[الصـقر]

السلام عليكم

بارك الله فيكم احى الاستاذ / احمد ابوزيزو  بارك الله فيك وبورك ممشاكم وجعله فى ميزان حسناتكم

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

الاستاذ / عبدالله باقشير

[abdoullah]

الله يجزي الجنة كل من شارك في هذا العمل المبارك واساله ان يسعده دنيا واخرة والله عمل رااااااااااااااائع واكثر

[عبدالواحد احمد]

كل الشكر لاعضاء ومشرفي المنتديعلى تلبيات طلبات جميع

[ابا اسماعيل]

فمساعدة الآخرين من أعظم أبواب الخير ولها مكانة عالية جداً في الإسلام

[sea-prince]

أخوتي أريد أن يطبع البرنامج فقط الأسطر التي يتم تسجيل أسماء بها 

أجور مراقبة سيارات.rar

[محسن أبومحمد]

استاذنا العزيز

 

جزاك الله خير