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

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

قام بنشر

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

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

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

و طلبى منكم هو

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

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

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

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

 

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

 

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

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

 

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

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.

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

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

Important Information