اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


arts8000
إذهب إلى أفضل إجابة Solved by احمد ابوزيزو,

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

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

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

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

و طلبى منكم هو

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

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

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

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

 

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

 

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

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
تم تعديل بواسطه حسام عيسى
رابط هذا التعليق
شارك

أخى الكريم

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

خطوة .. خطوة

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

 

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

رابط هذا التعليق
شارك

 

 اخى الفاضل / اليك الكود 
كم بنسخ الكود ومن الفيجوال بيسك اعمل ادراج مودويل جديد وقم بلصق هذا الكود به
ثم الذهب لكل صفحه وادرج عدد 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

 

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

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

رابط هذا التعليق
شارك

السلام عليكم

مشاركة بسيطة

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

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

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

 

أخى الكريم

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

خطوة .. خطوة

  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  فهو خالي تماما من اي بيانات

رابط هذا التعليق
شارك

الاخ الكريم

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

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

و طلبى منكم هو

 

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

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

 

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

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

تم تعديل بواسطه احمد ابوزيزو
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

رابط هذا التعليق
شارك

  • 5 months later...
  • 1 year later...
  • 2 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information