جوده قام بنشر مايو 11, 2010 مشاركة قام بنشر مايو 11, 2010 الاخوه الافاضل برجاء التكرم بمساعدتى فى عمل كود على الشيت لتحديد مدى الطباه الذى مثلا يبدامن A1 ومثلا اذا كانت الخلية J20 اخر خليه بها بيانات يكون المدى A1 :J20 واذا تغير المدى مثلا J25 يكون مدى الطباعة A1 : J 25 وهكذا00 ارجو الشرح وكيفيه تطبيقة على الشييت الخاص بى 00 لكم منى كل احترام وتقدير Book222.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر مايو 11, 2010 مشاركة قام بنشر مايو 11, 2010 السلام عليكم و رحمة الله أخي جرب هذا الكود Sub Yahya() Dim LastR As Integer LastR = Range("b" & Rows.Count).End(xlUp).Row With ActiveSheet.PageSetup .PrintArea = "a1:j" & LastR End With ActiveSheet.PrintOut End Sub رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 11, 2010 مشاركة قام بنشر مايو 11, 2010 السلام عليكم اخي الحبيب يحيى كود جميل جداً ولائراء الموضوع هذا مرفق يتم فيه تحديد مدى الطباعة بناءاً على الاسطر المدخلة ويتغير اتوماتيكياً Book222.rar 1 رابط هذا التعليق شارك More sharing options...
جوده قام بنشر مايو 11, 2010 الكاتب مشاركة قام بنشر مايو 11, 2010 (معدل) الاستاذ يحيى والاستاذ عماد وهذا المنتدى الاستاذ عماد ارسل كود جميل ولكن لى طلب هو ان الكود المرسل مرتبط بالعمود A1 فقط ولكن اسمح لى ان يكون الكود مرتبط بالعمود aكذالك الصف j على ان لايكون مرتبط بالمسلسل ويكون الكود مثلا من a الى j هل لى ان اطلب شرح هذا الكود ان سمحتم لكم منى كل احترام وتقديرشكرا تم تعديل مايو 11, 2010 بواسطه goda509129 رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مايو 11, 2010 مشاركة قام بنشر مايو 11, 2010 ننتظر من الاستاذة الكبار شرح فديو لخطوات العمل الف شكر على المجهود الرائع رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 أخي العزيز / goda509129 إضافة لما تفضل به إخواني الأعزاء من حلول رائعة ، تجد بالملف المرفق طريقتين لتحديد نطاق الطباعة واحدة من خلال اختياره بالماوس والثانية من خلال كتابة عنوانه بصندوق إدخال إضافة لكود لإلغاء نطاق الطباعة الحالي ، أرجو أن يناسب هذا طلبك . والشكر موصول للعزيزان يحيى وعماد . تحياتي أبو عبدالله تحديد نطاق الطباعة بطريقتين وإلغاؤه.rar 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 متميز دائماً ومبدع كعادتك ومش عارف أعبر عن حبي لك أخوك أبو البراء رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 السلام عليكم و رحمة الله حلول جميلة من الأخوين عماد و ابو عبدالله و مرفق حل آخر بتعديل بسيط على ملفك بحيث يتم الترقيم بناء على الإدخال الأسماء و عند الضغط على زر الطباعة سيتم تحديد المدى بناء على أخر رقم في المدي الاول يحيى حسين.rar 1 رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 السلام عليكم =========== اخى الحبيب يجيى بارك الله فيك على الكود الصغير جدا "كبير جدا فى المقام" اخى اللحبيب عماد "ابداع" الحبيب الغالى ابو عبدالله " تعبتنا معاك يا عم الحاج" مافيش اروع من كده اخى goda509129 --------------- ولاثراء الموضوع هذا الكود الذى يتميز بعدة مميزات 1) يمكن طباعة الورقة طوليا او عرضيا بتغير هذا الجملة فى الكود CenterVertically = True Orientation = xlPortrait الى CenterHorizontally = True Orientation = xlLandscape كما يمكنك تحديد "هد" للصفحة يتكرر مع كل صفحة ويمكنك تغيرة فى الجملة PrintTitleRows = "$1:$1" كما يمكنك تظبيط الصفحة اتوماتيكيا من الجملة FitToPagesWide = 1 FitToPagesTall = 1 الميزة الثالثة والاخيرة يخيرك بين عدة طباعات اذا كان لديك اكثر من طباعة تحياتى Copy of كود طباعة مدى متغير.rar 2 رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 السلام عليكم و رحمة الله أخي هشام حل جميل و استخدام رائع لخصاص الطباعة و التحكم فيها من خلال الكود جزاك الله كل خير ============ و أريد أن أذكر نقطة مهمه جدا هنا تنوع الحلول إثراء للموضوع فجميع الحلول طرحت أفكار جديدة فكما لاحظنا الاخ الحبيب عماد جاء بحل رائع كعادته و اأخ الحبيب أبو عبدالله جاء بحلين و بفكرتين جميلتين و الأخ الحبيب هشام شلبي " النجم الصاعد في عالم الإكسيل " جاء بحل و استخدام لميزات أخرى للبرمجة كلها أدت لإثراء الموضوع و جعله ذو قيمة عالية فلم يبقى الموضوع في حيز انه طلب للأخ goda509129 و تم تنفيذه بل أصبح مرجع يحتوي عدة طرق في موضوع واحد و لذلك أتمنى دائماً أن نرفع شعار " إثراء الموضوع " فأي حل يتم تقديمه إضافة للحلول المقدمة يعتبر رفع قيمة و فتح مجالات أكبر امام الأخوة الأعضاء ============== و دمتم في حفظ الله و رعايته رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 و أريد أن أذكر نقطة مهمه جدا هنا تنوع الحلول إثراء للموضوع فجميع الحلول طرحت أفكار جديدة بل أصبح مرجع يحتوي عدة طرق في موضوع واحد و لذلك أتمنى دائماً أن نرفع شعار " إثراء الموضوع " فأي حل يتم تقديمه إضافة للحلول المقدمة يعتبر رفع قيمة و فتح مجالات أكبر امام الأخوة الأعضاء السلام عليكم =========== كلامك جميل مفيد هذا هو هدفنا الاساسى واتمنى من الله ان يدوم علينا نعمة المحبة والاخلاق الحميدة فدائما استمتع بحلولكم واقطع المسافات الطويلة لانعم بصحبتكم ادام الله علينا جميعا روح الاسرة والمودة والتفاهم رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 (معدل) ما شاء الله واللهم صلي على سيدنا محمد عليه الصلاة والسلام لم يبقى من الكلام ما يقال .......................... فكما قال اخي الحبيب يحيى " تنوع الحلول اثراء للموضوع " نعم تنوع الحلول هو بحد ذاته موضوع مستقل بعينه فاي حل من الحلول قد يعالج جانب اخر لمواضيع اخرى متشابهة وكما قال اخي العزيز هشام " هذا هو الهدف الاساسي " نعم الهدف الاساسي ليس حل مشكلة خاصة بفرد معين وانما تكون تغطي جوانب قد يستفيد منها الاخرين, فالحلول ليست بالدرجة الرئيسية لصاحب الموضوع فقط وانما للجميع اما اخي الغالي والكبير ابو عبدالله صاحب البصمات المميزة في الفن المستخدم في التقنيات فجزاكم الله خيراً وابقاكم عند حسن ظن الجميع ---ولائراء الموضوع من جديد مرفق ملف فيه تعديل على الملف السابق لتوسيع نطاق الطباعة بناءاً على كافة الاعمدة اخوكم في الله عماد الحسامي Book222.rar تم تعديل مايو 12, 2010 بواسطه عماد الحسامي 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 أحسنتم جميعاً وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 السلام عليكم و رحمة الله أخي هشام حياك الله و اخي ياسر حياك الله و اخي عماد فكره رائعة بالحل جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 كلام ناس كبار وما عليه أي غبار وعشان نكمل المشوار دي كمان فكرة في نفس الإطار وإن شاء الله ما يكونش فيها تكرار لما تفضلتم به يا أساتذة من روائع الأفكار وزمان علمونا إن التكرار كمان بيعلم الشطار ياربي احفظ علينا أخوتنا وثبت اقدامنا على هذا المسار مع حبي وتقديري أخوكم أبو عبدالله تعيين نطاقة الطباعة نهاية صفه بنص بالنطاق.rar 2 رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 السلام عليكم و رحمة االله اول مرة اعرف انك شاعر اخي ابو عبدالله يعني روعة كلامك نستنى روعة ملفك ملف جميل جدا و فكرة جميلة و شعر جميل ربنا يجزيك الخير اخي ابو عبدالله رابط هذا التعليق شارك More sharing options...
جوده قام بنشر مايو 12, 2010 الكاتب مشاركة قام بنشر مايو 12, 2010 الاساتذه الافاضل اشكركم جميعا واؤكد لحضراتكم انه اصبح عندى مكتبه ثريه جدا بها موضوعت غنيه وجميله من اساتذه كرام عظماء مثل مكتبه الاسكنريه ومن المةضوعات هو هذا الموضوع تحديد مدى الطباعه بارك الله فيكم واكثر من امثالكم لكم جميعا كل احترام وتقدير GODA رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 أخي الحبيب يحيى حسين دي حاجات بتطلع بين حين وحين للناس اللي زيك على قلبي غاليين واللي دايماً في حاجة اخوانهم وبالخير سباقين وفي الختام تقبل شكري وحبي وتقديري لشخصك الرصين أبو عبدالله رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 السلام عليكم إبداع وتميز قل نظيره فتح الله عليكم جميعا وجمعنا بكم في مستقر رحمته رابط هذا التعليق شارك More sharing options...
BuFaisal قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 (معدل) جزاكم الله كل خير على هذا العطاء المتواصل واود ان اقترح على الاخوان المشرفين ان يتم انشاء مشاركة للمواضيع التي بها حلول مميزة بحيث تكون مثبته ويتم تحديثها بشكل مستمر حتى لا تضيع هذه الحلول الرائعة وستكون مرجع قيم جداً لعشاق هذا المنتدى اخوكم بوفيصل تم تعديل مايو 12, 2010 بواسطه BuFaisal رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 السلام عليكم ورحمة الله وبركاته وهذه محاولة للتحكم في ناحية الطباعة بالمعادلات حيث تتغير بداية ونهاية الاعمدة والصفوف في ناحية الطباعة حسب الخلايا المعباة وبصرف النظر عن وجود خلايا فارغة الخالدي.rar 3 رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 الاخ العزيز /// الخالدي كلمة حق تقال .....وبكل صراحة رائع.. جديد..ممتاز..ابداع..متألق كل هذه الكلمات لا تعطيك حقك في هذا العمل و اعتقد انه الحل الانسب لحل مشكلة صاحبنا وفقك الله وجعلك متألق كما هي عادتك اخوك عماد الحسامي رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر مايو 12, 2010 مشاركة قام بنشر مايو 12, 2010 السلام عليكم ورحمة الله وبركاته أخي العزيز عماد شكرا على الكلمات الطيبة والمعبرة اولا عن حسناتك الكريمة لك مني كل التحية والتقدير رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر مايو 13, 2010 مشاركة قام بنشر مايو 13, 2010 السلام عليكم و رحمة الله أخي خالدي لا يوجد كلمة يمكن ان تصف إبداعك ما شاء الله عليك حل قوي جدا بالمعادلات الله يجزيك الخير رابط هذا التعليق شارك More sharing options...
BuFaisal قام بنشر مايو 14, 2010 مشاركة قام بنشر مايو 14, 2010 حيرتني وياك يا خالدي غلب حماري وانا احول افهم السر في هذا الابداع ارجو التكرم بشرح حتى نتمكن من تطبيق هذا الابداع على تطبيقات اخرى والاستفادة من علمك زادك الله في العلم والحكمة اخوك بوفيصل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان