أيسم إبراهيم قام بنشر مايو 24, 2009 مشاركة قام بنشر مايو 24, 2009 السلام عليكم جميعا دمتم بكل الخير مرفق كود محير جدا هو كود لعمل معاينة لصفحة بيانات. المفروض ان الكود بيعمل معاينة للجزء الذي به بيانات من الصفحة ويتجاهل الجزء الخالي من البيانات . أحيانا يعمل بشكل جيد و أحيانا أخري يعطر رسالة خطأ وأحيانا ثالثة يعمل معاينة لكل منطقة الطباعة المحددة مسبقا( أي التي بها بيانات والتى لاتحتوي على بيانات أكيد أنا مخطىء في شيء ماهو ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ test.rar رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر مايو 24, 2009 مشاركة قام بنشر مايو 24, 2009 السلام عليكم أعتقد أن الخطأ هنا ( "A3:e100" ) أنت حددت مجال المعاينة يتجاوز الصفحة والله أعلم رابط هذا التعليق شارك More sharing options...
قصي قام بنشر مايو 24, 2009 مشاركة قام بنشر مايو 24, 2009 السلام عليكم جميعادمتم بكل الخير مرفق كود محير جدا هو كود لعمل معاينة لصفحة بيانات. المفروض ان الكود بيعمل معاينة للجزء الذي به بيانات من الصفحة ويتجاهل الجزء الخالي من البيانات . أحيانا يعمل بشكل جيد و أحيانا أخري يعطر رسالة خطأ وأحيانا ثالثة يعمل معاينة لكل منطقة الطباعة المحددة مسبقا( أي التي بها بيانات والتى لاتحتوي على بيانات أكيد أنا مخطىء في شيء ماهو ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ test.rar الاخ ايسم وعليكم السلام ورحمة الله وبركاته ادعو الله ان يجيب احد الاخوة لطلبك كما ادعو الله ان يجعلك تجيب طلبنا وهو كنترول التقويم الشامل بدون كلمة مرور للاكواد للتعلم وشكرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مايو 25, 2009 مشاركة قام بنشر مايو 25, 2009 السلام عليكم و رحمة الله وبركاته Sub ãÚÇíäÉ() Application.ScreenUpdating = False Range("a3:a100").AutoFilter Field:=1, Criteria1:="<>" ActiveSheet.PageSetup.PrintArea = "A3:e100" ActiveWindow.SelectedSheets.PrintPreview Application.ScreenUpdating = True End Sub ان شاء الله يظبط آمل اخباري بالنتيجة رابط هذا التعليق شارك More sharing options...
قصي قام بنشر مايو 25, 2009 مشاركة قام بنشر مايو 25, 2009 ادعو الله ان يجيب احد الاخوة لطلبك كما ادعو الله ان يجعلك تجيب طلبنا وهو كنترول التقويم الشامل بدون كلمة مرور للاكواد لقد استجاب الله الدعاء بان يرزقك باحد الاخوة ليجيب طلبك فهل تجيب طلبنا بتحميل ملف الكنترول بدون كلمة سر على الاكواد رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مايو 25, 2009 الكاتب مشاركة قام بنشر مايو 25, 2009 السلام عليكم جميعا أستاذ أحمد جزاك الله خيرا على الرد ولكن المشكلة كما هي الكود في ملف صغيربه مثال يعمل بشكل جيد و عند إضافته إلى ملفي الكبير الذي به الكثير من الأكواد و الماكروات لا يعمل !!!!!!!!!! الأستاذ : قصي لماذا كل هذا سيدي ؟ هو انا أصلا أرفقت ملف الكنترول بالمنتدى به كلمة سر للأكواد؟؟؟؟؟؟؟؟؟؟؟؟ وهو انت طلبت منى كلمة السر من قبل وأنا رفضت ؟؟؟؟؟؟ أنا أرفقت الملف محمي في منتدى آخر نتيجة لمشكلة حدثت لا تعلم عنها شيءا على العموم " إن بعض الظن إثم "... لو كان الملف موجود عندك كلمة السر هي : abdo وإن لم يكن موجود سأرفقه لك بعد الإنتهاء من بعض الإضافات التي ستعجبك . أنا آسف إن كان كلامي به بعض الحدة السلام عليكم رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر مايو 25, 2009 مشاركة قام بنشر مايو 25, 2009 السلام عليكم ورحمة الله وبركاته السادة الكرام هل يمكن ارفاق ملف مع الكود؟ ولكم كل الشكر السلام عليكم Sub ãÚÇíäÉ() Application.ScreenUpdating = False Range("a3:a100").AutoFilter Field:=1, Criteria1:="<>" ActiveSheet.PageSetup.PrintArea = "A3:e100" ActiveWindow.SelectedSheets.PrintPreview Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مايو 25, 2009 الكاتب مشاركة قام بنشر مايو 25, 2009 الملف بالمشاركة الأولى أخي الحبيب السلام عليكم رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر مايو 25, 2009 مشاركة قام بنشر مايو 25, 2009 السلام عليكم ورحمة الله وبركاته اخي aysam بارك الله فيك انما قصدت كود الاستاذ احمد مرفق في ملف وهذا واضح في اقتباسي لكود الاستاذ في مشاركتي السابقة لاني وضعت الكود في ملف فظهر لي السطر الاول من الكود احمد (أي خطأ في الكود ) ولك كل الشكر السلام عليكم عليكم رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مايو 25, 2009 مشاركة قام بنشر مايو 25, 2009 السلام عليكم test.rar رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مايو 25, 2009 مشاركة قام بنشر مايو 25, 2009 بسم الله الرحمن الرحيم طريقه اخرى و ليس تعديل كود مختصر لمعاينه البيانات المتجاوره التى تختارها بنفسك Sub My_PrintArea() ActiveSheet.PageSetup.PrintArea = _ ActiveCell.CurrentRegion.Address ActiveSheet.PrintPreview End Sub مرفق ملف السلام عليكم My_PrintArea.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مايو 25, 2009 الكاتب مشاركة قام بنشر مايو 25, 2009 السلام عليكم أستاذ :هادي اشتقنا لإبداعاتك كود مختصر لمعاينه البيانات المتجاوره التى تختارها بنفسك كيف أختار البيانات بنفسي؟؟؟؟؟؟ كلما أعدت تحديد نطاق الطباعة يعود إلى النطاق المحدد منك A1:A4 أفيدنا أفدك الله جعله الله صدقة جارية على روح من تحب رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مايو 25, 2009 مشاركة قام بنشر مايو 25, 2009 بسم الله الرحمن الرحيم جعله الله صدقة جارية على روح من تحب فى الجون كيف أختار البيانات بنفسي؟؟؟؟؟؟ بمعنى عند وقوفك فى اى خليه مثل A1 يقوم الكود بمعاينه مجال البيانات المحيطه بها ثم جرب الوقوف بالخليه D2 ثم جرب الكود ستجد البيانات الظاهره فى معاينه الطباعه مختلفه و هكذا , اما موضوع كلما أعدت تحديد نطاق الطباعة يعود إلى النطاق المحدد منك A1:A4 هات مصحف احلف لك عليه ان كودى ليس به A1 و لا حتى A4 و علشان موضوع الصدقه الجاريه اليك كود بسيط جدا يقوم بمعاينه نطاق الطباعه الذى تحدده( Selection) و ليس البيانات المتجاوره Sub My_PrintPreview_01() Selection.PrintPreview End Sub مرفق ملف السلام عليكم My_PrintArea_01.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مايو 25, 2009 الكاتب مشاركة قام بنشر مايو 25, 2009 السلام عليكم أستاذ هادي طول بالك على شوية أنا دماغي مركزه في طلبي الأصلى اللي هو إيه ؟؟؟؟؟ عمل معاينة طباعة لكم متغير من البيانات أحيانا يكون 20 صف و أحيانا أخرى 50 صف أو 100 و هكذا ويوجد رأس للصفوف بالأعلى و يوجد كعب بيانات للصفوف بالأسفل و ما بينهما هو المتغير أريد عند معايمة الطباعة أن يظهر رأس و كعب البيانات مباشرة فوق و تحت البيانات الموجودة آمل أن أكون أوضحت طلبي بشكل كاف و ألا أكون أثقلت عليك ماتنساش الصدقة الجارية و جعله الله في ميزان حسناتك أيضا السلام عليكم رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مايو 26, 2009 مشاركة قام بنشر مايو 26, 2009 السلام عليكم و رحمة الله بعد اذن استاذي القدير هادى ان كود الأستاذ هادي يعمل على الفكرة التالية تستخدم الماوس مع مفتاح cTRL تفضل ضاغط Ctrl ب استمرار و بالماوس تحدد الخلايا التي تريد طباعتها وبعد ما تنتهي من التحديد تفلت Ctrl ثم تشغل الكود = = = = = = = اما بالنسبة للكود الذي ارسلته لك سابقا في اي وقت تواجهك مشكلة في عملة عليك ان تقوم بالخطوة التالية ازل التصفية التلقائية نهائيا من الورقة التي تعمل عليها ثم اعد تشغيل الكود و اذاكنت تريد كود آخر يقوم باخفاء الصفوف مباشرة دون تصفية فهذا ممكن فضلا فقط اعلمني هنا رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مايو 26, 2009 مشاركة قام بنشر مايو 26, 2009 بسم الله الرحمن الرحيم اعذرنى اخى aysam يمكن لعدم مشاركتى منذ فتره قد اكون فهمت خطأ على العموم اخى احمد قام بالواجب و زياده السلام عليكم رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مايو 26, 2009 الكاتب مشاركة قام بنشر مايو 26, 2009 السلام عليكم جميعا أستاذ هادي سلمت ذخرا لنا و للجميع الأستاذ أحمد جزاك الله كل الخير على ردك و متابعتك و اذاكنت تريد كود آخر يقوم باخفاء الصفوف مباشرة دون تصفية فهذا ممكن فضلا فقط اعلمني هنا ياريت أصل أنا بصراحة زهقت من هذا الكود المحير و خايف ليعملها معايا أثناء العمل على الملف انتظرك بفارغ الصبر جعله الله في ميزان حسناتك. رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مايو 26, 2009 مشاركة قام بنشر مايو 26, 2009 السلام عليكــم ورحمـة الله وبركاتــه ،، اخي الفاضل بحيث يعمل على العامودين A-B فأي عمود منهما به بيانات يبقى موجود تم الحل بـ 3 طرق اختار منها ماتريد 1 - اخفاء الفارغ 2 - حذف الفارغ 3 - في الورقة 2 باستخدام التصفية التلقائية (اخفاء و اظهار) يمكنك تعديل اي كود منهما كما تريد مع التحية RESULT.rar 2 رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مايو 26, 2009 الكاتب مشاركة قام بنشر مايو 26, 2009 السلام عليكم أستاذ أحمد إبداع ما بعده إبداع بارك الله فيك و لك وعليك و حواليك جعلها الله صدقة جارية لك من باب ((علم ينتفع به )) رابط هذا التعليق شارك More sharing options...
قصي قام بنشر مايو 28, 2009 مشاركة قام بنشر مايو 28, 2009 (معدل) السلام عليكم جميعاأستاذ أحمد جزاك الله خيرا على الرد ولكن المشكلة كما هي الكود في ملف صغيربه مثال يعمل بشكل جيد و عند إضافته إلى ملفي الكبير الذي به الكثير من الأكواد و الماكروات لا يعمل !!!!!!!!!! الأستاذ : قصي لماذا كل هذا سيدي ؟ هو انا أصلا أرفقت ملف الكنترول بالمنتدى به كلمة سر للأكواد؟؟؟؟؟؟؟؟؟؟؟؟ وهو انت طلبت منى كلمة السر من قبل وأنا رفضت ؟؟؟؟؟؟ أنا أرفقت الملف محمي في منتدى آخر نتيجة لمشكلة حدثت لا تعلم عنها شيءا على العموم " إن بعض الظن إثم "... لو كان الملف موجود عندك كلمة السر هي : abdo وإن لم يكن موجود سأرفقه لك بعد الإنتهاء من بعض الإضافات التي ستعجبك . أنا آسف إن كان كلامي به بعض الحدة السلام عليكم شكرا استاذ ايسم كلمة السر لاتعمل خاطئة وفي انتظار البرنامج مع الاضافات تم تعديل مايو 28, 2009 بواسطه قصي رابط هذا التعليق شارك More sharing options...
قصي قام بنشر مايو 31, 2009 مشاركة قام بنشر مايو 31, 2009 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.