arts8000 قام بنشر يوليو 1, 2014 مشاركة قام بنشر يوليو 1, 2014 بسم الله الرحمن الرحيم بحثت عن طلبى هذا مراراً قبل ان اكتبة و للحقيقة وجدت اكثر من موضوع فى المنتدى عنه و لكننى للأسف لم استطيع تطبيقه قد يكون هذا لقلة خبرتى او عدم وجود شرح واف له .. لا اعلم و طلبى منكم هو ارجو المساعده في تعديل الملف المرفق ليطبع الصفوف الممتلئة فقط و عدم طباعة الصفوف الفارغة مع العلم اننى سأقوم بحماية الورقة بعد ذلك فيما عدا الخلايا المخصصة لكتابة البيانات بها ؛ و كذلك سيتم تغيير اسم الملف ايضا .. فأرجو الا يتعارض ذلك مع تنفيذ طلبى و لو امكن اريد شرحاً لكيفية تنفيذ ذلك بشكل مبسط لاننى لست خبيراً مثلكم و شكراً جزيلاً الملف فى المرفقات Sample Linked v3.rar رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يوليو 1, 2014 مشاركة قام بنشر يوليو 1, 2014 (معدل) اخى الفاضل / اليك الكود كم بنسخ الكود ومن الفيجوال بيسك اعمل ادراج مودويل جديد وقم بلصق هذا الكود به ثم الذهب لكل صفحه وادرج عدد 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 بواسطه حسام عيسى رابط هذا التعليق شارك More sharing options...
احمد ابوزيزو قام بنشر يوليو 1, 2014 مشاركة قام بنشر يوليو 1, 2014 السلام عليكم مشاركة بسيطة برجاء تقبل تحياتي Sample Linked v3.rar 1 رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يوليو 2, 2014 مشاركة قام بنشر يوليو 2, 2014 أخى الكريم اليكم رابط به شرح لعدم طباعه الصفوف الفارغة خطوة .. خطوة http://www.officena.net/ib/index.php?showtopic=51423#entry318455 وتقبلوا منى وافر الاحترام والتقدير رابط هذا التعليق شارك More sharing options...
arts8000 قام بنشر يوليو 2, 2014 الكاتب مشاركة قام بنشر يوليو 2, 2014 اخى الفاضل / اليك الكود كم بنسخ الكود ومن الفيجوال بيسك اعمل ادراج مودويل جديد وقم بلصق هذا الكود به ثم الذهب لكل صفحه وادرج عدد 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 جزاك الله خيراً مع انى مش فاهم لكن هاحاول انفذ كلامك و ارد عليك فى اقرب وقت رابط هذا التعليق شارك More sharing options...
arts8000 قام بنشر يوليو 2, 2014 الكاتب مشاركة قام بنشر يوليو 2, 2014 السلام عليكم مشاركة بسيطة برجاء تقبل تحياتي شكرا اخى العزيز و لكن الملف به مشكلة فعند الطباعة لا يطبع السطور رقم 2 و 3 و 4 و كذلك 43 و 44 و 45 رغم انهم من الخلايا الممتلئة عندى اقتراح .. ارجو ان تلبية اولا تعدل الملف الاصلى بحيث ان يكون بدون كلمة سر ثانيا ان يكون هناك زر واحد لطباعة الحقول الممتلئة فقط مثل الملف المرفق و شكرا لك اهتمامك طباعة الحقول الممتلئة فقط.rar رابط هذا التعليق شارك More sharing options...
arts8000 قام بنشر يوليو 2, 2014 الكاتب مشاركة قام بنشر يوليو 2, 2014 أخى الكريم اليكم رابط به شرح لعدم طباعه الصفوف الفارغة خطوة .. خطوة http://www.officena.net/ib/index.php?showtopic=51423#entry318455 وتقبلوا منى وافر الاحترام والتقدير شكرا لاهتمامك جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
احمد ابوزيزو قام بنشر يوليو 2, 2014 مشاركة قام بنشر يوليو 2, 2014 الاخ الكريم السلام عليكم ورحمة الله بالرجوع الي طلبك و طلبى منكم هو مع العلم اننى سأقوم بحماية الورقة بعد ذلك فيما عدا الخلايا المخصصة لكتابة البيانات بها ؛ تم حماية الورقة كما اشرت بطلبك انك سوف تقوم بحماية الورقة ونظرا لان الماكرو لا يعمل في ورقة محمية بكلمة مرور الا من خلال كتابة السطر الاول التالي ActiveSheet.Unprotect Password:="123" الذي يقوم بازالة كلمة الحماية عن الورقة حتي يتم تنفيذ الماكرو وفي نهاية كود الماكرو كتابة السطر التالي ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True الذي يقوم بحماية الورقة بعد تنفيذ الماكرو وتم الاشارة الي امكانية تغيير كلمة الحماية اما بخصوص عدم طباعة الاسطر 2 3 4 43 44 اذا كانت هناك سطر واحد به مبالغ فسوف يتم طباعة هذه الاسطر اما السطر 45 فهو خالي تماما من اي بيانات رابط هذا التعليق شارك More sharing options...
arts8000 قام بنشر يوليو 3, 2014 الكاتب مشاركة قام بنشر يوليو 3, 2014 الاخ الكريم السلام عليكم ورحمة الله بالرجوع الي طلبك و طلبى منكم هو مع العلم اننى سأقوم بحماية الورقة بعد ذلك فيما عدا الخلايا المخصصة لكتابة البيانات بها ؛ تم حماية الورقة كما اشرت بطلبك انك سوف تقوم بحماية الورقة ونظرا لان الماكرو لا يعمل في ورقة محمية بكلمة مرور الا من خلال كتابة السطر الاول التالي ActiveSheet.Unprotect Password:="123" الذي يقوم بازالة كلمة الحماية عن الورقة حتي يتم تنفيذ الماكرو وفي نهاية كود الماكرو كتابة السطر التالي ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True الذي يقوم بحماية الورقة بعد تنفيذ الماكرو وتم الاشارة الي امكانية تغيير كلمة الحماية اما بخصوص عدم طباعة الاسطر 2 3 4 43 44 اذا كانت هناك سطر واحد به مبالغ فسوف يتم طباعة هذه الاسطر اما السطر 45 فهو خالي تماما من اي بيانات اسف جداً على ازعاجك اخى الكريم اولا انا لم اغير طلبى و لكنى توقعت ان تكون كلمة السر هى السبب فى عدم ظهور الاسطر ؛ لذا طلبت منك حذفها و اشكرك جداً على التوضيح و بالنسبة للسطر 45 ليس خالى من البيانات كما تقول .. فبه اسم الملف كما هو محفوظ على الجهاز لسهولة الوصول اليه و لا سظهر الاعند الطباعة او المعاينة قبل الطباعة و شكرا جزيلا لك و لاهتمامك اذا كان هناك امكانية لاظهار السطر 45 اكون شاكر لحضرتك جداً و ان كان هناك امكانية لوجود زر واحد لطباعة الحقول الممتلئة فقط مثل الملف الذى ارفقتة سابقا يكون هذا كرم زائد منك و فى النهاية الشكر لك على كل حال للاهتمام و المتابعة شكرا جزيلاً رابط هذا التعليق شارك More sharing options...
احمد ابوزيزو قام بنشر يوليو 3, 2014 مشاركة قام بنشر يوليو 3, 2014 (معدل) الاخ الكريم السلام عليكم ورحمة الل اولا : لا داعي للاعتذار فقط اردت ان اوضح لك ما فهمته انا من طلبك تم اظهار الصف 45 تم ادراج الكود المرفق مع الملف تم اضافة زر الكود الجديد ارجو ان يكون هذا ما اردت اكر مره اخري لا داعي للاعتذار Sample Linked v3.rar تم تعديل يوليو 3, 2014 بواسطه احمد ابوزيزو رابط هذا التعليق شارك More sharing options...
أفضل إجابة احمد ابوزيزو قام بنشر يوليو 4, 2014 أفضل إجابة مشاركة قام بنشر يوليو 4, 2014 نسخة معدلة بعد اضافة اكواد الاستاذ / حسام عيسي وعمل الازرار اللازمة Sample 22Linked v3.rar 3 رابط هذا التعليق شارك More sharing options...
arts8000 قام بنشر يوليو 5, 2014 الكاتب مشاركة قام بنشر يوليو 5, 2014 شكراً لمجهودك و اهتمامك اخى الفاضل خير الناس انفعهم للناس رابط هذا التعليق شارك More sharing options...
احمد ابوزيزو قام بنشر يوليو 5, 2014 مشاركة قام بنشر يوليو 5, 2014 الشكر كل الشكر لاعضاء ومشرفي المنتدي رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يوليو 5, 2014 مشاركة قام بنشر يوليو 5, 2014 السلام عليكم بارك الله فيكم احى الاستاذ / احمد ابوزيزو بارك الله فيك وبورك ممشاكم وجعله فى ميزان حسناتكم وشكر موصول لهذا الصرح العظيم منتدى افيسنا والقائمين علية واخص بالذكر العلامه العبقرى خبور خير الاستاذ / عبدالله باقشير رابط هذا التعليق شارك More sharing options...
abdoullah قام بنشر ديسمبر 24, 2014 مشاركة قام بنشر ديسمبر 24, 2014 الله يجزي الجنة كل من شارك في هذا العمل المبارك واساله ان يسعده دنيا واخرة والله عمل رااااااااااااااائع واكثر رابط هذا التعليق شارك More sharing options...
عبدالواحد احمد قام بنشر ديسمبر 24, 2014 مشاركة قام بنشر ديسمبر 24, 2014 كل الشكر لاعضاء ومشرفي المنتديعلى تلبيات طلبات جميع رابط هذا التعليق شارك More sharing options...
ابا اسماعيل قام بنشر ديسمبر 24, 2014 مشاركة قام بنشر ديسمبر 24, 2014 فمساعدة الآخرين من أعظم أبواب الخير ولها مكانة عالية جداً في الإسلام رابط هذا التعليق شارك More sharing options...
sea-prince قام بنشر أبريل 4, 2016 مشاركة قام بنشر أبريل 4, 2016 أخوتي أريد أن يطبع البرنامج فقط الأسطر التي يتم تسجيل أسماء بها أجور مراقبة سيارات.rar رابط هذا التعليق شارك More sharing options...
محسن أبومحمد قام بنشر ديسمبر 2, 2018 مشاركة قام بنشر ديسمبر 2, 2018 استاذنا العزيز جزاك الله خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان