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