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

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

قام بنشر

السلام عليكم

كلامك صحيح اخي amoudi ولكن بعد اخفاؤها بجعل اللون ابيض سيظطر بعد الطباعة مرة اخرى لاظهار الخلايا

من نفس الفكرة ارفق كود وكل ماعليك اخي الكريم abcdefgh2005 هو تظليل الخلايا التي لا ترغب بطباعتها ثم تطبع وبعد ذلك سيعود كل شئ على طبيعته قبل التظليل

انظر للمرفق من فضلك

مع الشكر

ابو خالد

_________________.rar

قام بنشر

اخي نزار

اعتقد انه الكود هذا غير عملي يعني لازم يضلل الخلاياء علشان تتحول الى خط ابيض . ما ادري احس انه مش عملي

الحل الأفضل انه يعمل تسيق شرطيعلى الخط ليصبح ابيض , بشرط مثلا خلية معينة او نفس الخلية اذا القيمة فيها كذا او كذا يعمل التنسيق او لايعمل

تحياتي

قام بنشر
اخي نزار

اعتقد انه الكود هذا غير عملي يعني لازم يضلل الخلاياء علشان تتحول الى خط ابيض . ما ادري احس انه مش عملي

الحل الأفضل انه يعمل تسيق شرطيعلى الخط ليصبح ابيض , بشرط مثلا خلية معينة او نفس الخلية اذا القيمة فيها كذا او كذا يعمل التنسيق او لايعمل

تحياتي

اخي amoudi

هل الحل العملي ان يغير كل خلية يدويا الى اللون الابيض؟

وهل ستعلم مسبقا ما سيكتب بالخلية لكي تحدده بالتنسيق الشرطي!!

عموما من باب الافادة تم الرد على المشاركة ولصاحب المشاركة حرية الاختيار بما يناسبه وياحبذا لو وضعت مثال بخصوص اقتراحك للتنسيق الشرطي

مع الشكر

قام بنشر

اخي نزار

ممكن ربط التنسيق بخلية غير الخلية التي تعمل عليها

يعني خلايا B1,B7,C8 الخ ,,, تربط تسيقها كلها بخلية وحدة مثل A1 واي تغيير في الخلية A1 سوف يوثر على جميع الخلايا

تحياتي

قام بنشر

اخي amoudi

ايضا هذا الحل غير عملي

لانك عند تحديد خلايا ما بخلية فهذا يعني التزامك بنفس التنسيق مع اختلاف الطلب فمثلا عند ربط الخلية B1 بالخلية A1

ووضع مرجعية ما لتغيير لون الخلية B1 الى اللون الابيض فمن المحتمل بعد ذلك انك تريد طباعتها في مرة مقبلة وبالتالي تحتاج لتغيير التنسيق مما يعني اضا عة الوقت والدقة

مع الشكر

ابو خالد

قام بنشر (معدل)

اخي نزار

انا ارد في الموضوع على حسب ما طلب كاتب الموضوع

وهو قال خلية و

وجوابي الأول كان على اعتبار خلية واحدة

ولمن انت قلت خلايا

وضعت التنسيق الشرطي

والأن قاعد تفرض افتراضات وتبني حلي عليها

ياخي الكريم اذا صاحب الموضوع توسع في شرحة راح اضع حل افضل

فانا ابداء بالحل الأسهل وهكذا

تحياتي

تم تعديل بواسطه amoudi
قام بنشر (معدل)
اخي نزار

اعتقد انه الكود هذا غير عملي يعني لازم يضلل الخلاياء علشان تتحول الى خط ابيض . ما ادري احس انه مش عملي

الحل الأفضل انه يعمل تسيق شرطيعلى الخط ليصبح ابيض , بشرط مثلا خلية معينة او نفس الخلية اذا القيمة فيها كذا او كذا يعمل التنسيق او لايعمل

تحياتي

من مشاركتك رقم 5

شكرا

تم تعديل بواسطه نزار سليمان عيد
قام بنشر

اخي نزار

عدلت الرد الأخير

اشوف كأننا قاعدين في شات ,,,,,,, امزح

بصراحة موضوع شيق انتقدت حلك وانت انتقدت حلي

يعني نريد طرف ثالث ينتقد الحلول وفي النهاية الأعضاء مستفيدين

تحياتي

قام بنشر

السلام عليكم ورحمة الله وبركاته

أخي الأستاذ الفاضل نزار سليمان عيد ( أبو خالد)

أخي الأستاذ الفاضل amoudi

كلا الحلين رائع ولكن بصراحة أعجبني( أكثر ) حل الأستاذ نزار

الله يعطيكما الصحة والعافية

قام بنشر

أخي الكريم / ابو ساره

اذا استخدمت كود الأستاذ/ نزار على حالته (الي عجبك أكثر)

فضع في اعتبارك

لن تستطيع استخدام خاصية القص واللصق وخاصية النسخ

لن تستطيع استخدام سواء اللون الأسود للخط واذا استخدمت اي لون سيتحول للأسود

لن تستطيع حذف اي شي سواء خلية صف عامود

فما ادري ايش عجبك

تحياتي

قام بنشر

السلام عليكم

اخي الفاضل amoudi

اخي انت هنا تتلقي علما و ان كان لديك شيئا تضيفه فاكيد لن يكون بقدر ما تتلقاه

لا اقصدك كشخص و لكني اتكلم علي وجه العموم لذا:

يجب علي من يقدم شيئا لايرجحه علي حل مقدم من اخر و لا ينتقد ايضا حل الاخر

و لن اخوض اكثر من هذا فعندي تحفظات تضغط علي للرد و لكني اعتبرها شات كما تفضلت .... امزح

و من حلك المقدم و حل الاخر المقدم ايضا ليس هناك اي تعارض و الفيصل الوحيد مايطلبه السائل

و ما يناسبه لعمله فقد يكون حلك افضل و لكن لا يناسبه هذا من ناحية و من ناحية اخري بامكانك

انت ان تستفيد و غيرك ايضا فبدلا من الحل يوجد حلين بطريقتين مختلفتين و هنا تكون

الاستفاده اكبر بالطلاع عليهما

انت اخا عزيزا معنا فاجعل الامتثال و التحلي بروح العلم هي السمه المؤثره

و نريد ان نراك في عملا قويا تبدع فيه و ليس في عملا صغيرا مثل هذا

و في انتظار اعمالك

وفقك الله

تحياتي

قام بنشر

جزاكم الله جميعا كل الخير على اجتهادكما

فكان هذا حوار طيب استفدنا منه كثيرا

وربنا يوفق الجميع فالكل يسعى للمبادرة

بالحل الصحيح والأمثل .

وتقبلوا جميعا تحياتى

:clapping:
قام بنشر

اخي الكريم aah_aah2008

السلام عليكم ورحمة الله وبركاته

اخي انت هنا تتلقي علما و ان كان لديك شيئا تضيفه فاكيد لن يكون بقدر ما تتلقاه

هذا افتراض لا اعرف من اين اتيت به ,, ما أدراك بمستواي في الأكسيل والبرمجة ؟ ما ادراك بماذا استفدت انا من المنتدى ؟

اخي والحمد لله مستواي جيد في الأكسيل والبرمجة وما كان غرضي الأساسي في المنتدى التعلم بقدر ما كان استفيد من اي شخص اجد له يحل يدعو ليا بدعوة طيبة .

وليست لدي اي موضوع في المنتدى

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

لا اقصدك كشخص

وانت كاتب فوقها اخي الفاضل amoudi !!!!

يجب علي من يقدم شيئا لايرجحه علي حل مقدم من اخر و لا ينتقد ايضا حل الاخر

طيب شوف اول رد للأستاذ/ نزار مشاركة رقم 4

و نريد ان نراك في عملا قويا تبدع فيه و ليس في عملا صغيرا مثل هذا

اخي الكريم ما ادري ايش قصدك بكلمة عملا صغيرا مثل هذا

انا ما قدمت اي عمل لا صغير ولا كبير

انا فقط قدمت حل هنا والحلول لايوجود كبير وصغير

تحياتي

قام بنشر

السلام عليكم و رحمة الله وبركاته

الأستاذ القدير نذار

شكرا لك

وجزاك الله خيرا

الأخ عادل الله يعطيك العافية

ومجهوداتك معروفة لدينا جميعا

الأخ العامودي

نأمل ان تكون على قدر من المعرفة والخبرة تغنيك عن اي شخص

ولكن

انصحك بترك الجدل

قال رسول الله صلى الله عليه وسلم

اذنت بالجنه لمن ترك المراء و ان كان محقا

وكما قيل في المثل

الي مايعرفك مايثمنك

فاننا حتى الآن لانعرف مدى خبرتك و معرفتك

لذلك صلي على النبي وكن حليم - فان الحلم سيد الأخلاق

ولكن ردا على الموضوع

اذا اخذنا من خيارات الطباعة طباعة اسود و ابيض

فان الكتابة حتى لوكانت بيضاء سوف تظهر

فما هو الحل

قام بنشر (معدل)

السلام عليكم

ليس لدى طابعة لاجرب

لكن ممكن هذا ؟

Private Sub Workbook_BeforePrint(Cancel As Boolean)


Range("a1").Font.ColorIndex = Range("a1").Interior.ColorIndex

End Sub
او هذا ؟
Private Sub Workbook_BeforePrint(Cancel As Boolean)


Range("a1").Font.ColorIndex = xlNone

End Sub

تم تعديل بواسطه ابو اسامة العينبوسي
قام بنشر (معدل)

السلام عليكم

اخي الفاضل amoudi

تجدني هنا حتي لا ادافع عن حل اخي نزار او اقيمه و لا حتي بالنسبة لك

اخي لم يشدني الرد عليك

الا لنقدك فقط علي الحل الاخ و هذه كانت عباراتك

اذا استخدمت كود الأستاذ/ نزار على حالته (الي عجبك أكثر)

فضع في اعتبارك

لن تستطيع استخدام خاصية القص واللصق وخاصية النسخ

لن تستطيع استخدام سواء اللون الأسود للخط واذا استخدمت اي لون سيتحول للأسود

لن تستطيع حذف اي شي سواء خلية صف عامود

فما ادري ايش عجبك

و ان كان نقاشك نقاش علمي لن يحق لي التدخل

و بالفعل لا اقصد التقليل منك و لكن لابد من عدم الثناء علي عمل اقدمه دون غيره

فكم من الاعمال التي اخذت وقتا طويلا لحلها وتحمل في طياتها ابداع لمن قام بحلها و لم تحظ برد شكر حتي

و انت هنا كما ذكرت تقدم حلا لتساعد به غيرك و لا تبغي منه الا الدعاء و قد يكون هذا ظاهرا في شكل رد

او باطنا فقد يكون فعلا من لم يرد عليك قد دعا لك فعلا

و جميعنا اخي نتلقي من هذا المنتدي انا و انت و غيرنا الكثير فان انت قدمت حلا في مره ستري الاف الحلول قبل انت تقدم حلا اخر

و لمجرد الرؤية لهذه الحلول و الاطلاع علي فكرتها فان هذا يثقلك و يثقلني و غيرنا فما تسمي هذا اليس استفاده

و قد تكون عالما في الاكسل و هذا يسعدنا فقد تكون اضافة للمنتدي و نتعلم نحن منك فما المانع في ذلك

ولكن ان اعتقدت انك و صلت الي نهاية المطاف في علمك فانك بذلك تكون قد اخطات فعندها ستري جميع

الحلول اقل من فكرك و بالتالي ستقفل باب التعلم

فانتظر و لا تتسرع فليس كل من يفتح معك حوارا يهاجمك

كلنا اخوه حريصين علي الاحترام لمن سبقونا في هذا المنتدي ونتناقش لا غبار علي ذلك و لكن دون ان يترك هذا النقاش اثرا شخصيا

لا اريد ان اطيل عليك اتمني ان نراك دائما بالمنتدي

و نري مشاركاتك و اراؤك

خالص تحياتي

تم تعديل بواسطه aah_aah2008
قام بنشر (معدل)

السلام عليكم

اخي احمد يعقوب اشكرك علي تعقيبك

اخي abcdefgh2005

و بعد اذن الاساتذة المشاركين

عن طريق برنامج لدي تم طباعة الملف المرفق و كانت البيانات غير ظاهرة

بمعني ان الطباعة لم تتم بواسطة طابعة حقيقيه

فكرة الملف الضغط علي زر يطهر لك فورم عند الضغط علي زر Print الموجود بها

يحول خط كافة بيانات الخلايا في الشيت الذي تتم طباعته سواء الاول او الثاني او مهما كان اسمه

الي اللون الابيض قبل الطباعة و بعد الانتهاء ترجع الامور كما كانت عليه

لا اشعر هنا باضافة جديد في الفكرة المطروحة سابقا بيد الاخ نزار و الاخ amoudi

و لكن هذا لكي لا تتم العملية بطريقة يدويه

و طبعا يمكن عمل ذلك بتحديد خلايا معينه فقط التي يتم تغير لون خطها

و ليس كامل الشيت و لكن يلزم لذك تغير في الكود

وتعمل الفورم علي الشيت المفتوح امامك و تتمكن اثناء وجودها بالتنقل من شيت لاخر

فالشيت المفتوح عند الضغط علي زر Print هو الذي سيطبع

جرب واخبرنا النتيجة

print.rar

تم تعديل بواسطه aah_aah2008
قام بنشر
اخي نزار

عدلت الرد الأخير

اشوف كأننا قاعدين في شات ,,,,,,, امزح

بصراحة موضوع شيق انتقدت حلك وانت انتقدت حلي

يعني نريد طرف ثالث ينتقد الحلول وفي النهاية الأعضاء مستفيدين

تحياتي

السلام عليكم

الشكر موصول للجميع ولي تعقيب على ردك اخي amoudi وهو انني لم ادخل معاك بمنافسة لكي يتم التقييم من طرف ثالث

ولا ادري ما بداخلك حتى عند الرد من قبل اطراف آخرين على حسب طلبك لم يعجبك الرد

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

اخيرا اشكر جميع الاخوة دون استثناء

ابو خالد

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