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

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

قام بنشر

بسم الله الرحمن الرحيم

وبه نستعين

السلام عليكم ورحمته الله وبركاته *** تقبل الله منا ومنكم صالح الاعمال

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

اعاده الله علينا وعليكم وعلى سائر الامة العربية والاسلامية باليمن والبركات

الموضوع

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

مع إخفاء الاعمدة الغير معنية بالطباعة اثناء عملية الطباعة وإظهارها مرة أخرى بعد الانتهاء من إعطاء أمر الطباعة 

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

 بمعنى انه فى حالة تحقق الشرط المبين بخلايا العمودJ   تتم عملية الطباعة وان لم يتحقق الشرط فلا طباعة

علما بأن الاعمدة المعنية بالطباعة هى الاعمدة الملونة باللون الرمادى

تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا  

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية.xlsb.rar

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

وكل عام انتم بخير وبكامل الصجة والعافية اخى ابو البراء

وكيف لا أرفعه وقد تزينت الصفحة الرئيسية لصرحنا بتشريفكم العطر

فلا تحرمونا أحبتى فى الله من صالح أعمالكم

تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا

تم تعديل بواسطه ابو عبدالرحمن بيرم
  • Like 1
قام بنشر

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

أخوتي وأحبتي أبو عبد الرحمان وأبو البراء، تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أردت أن أشارك بكود متواضع في الملف المرفق...

أخوكم بن علية

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية.xlsb.rar

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

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

اخى ونور عينى بن عليه حاجى

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

مجهود عظيم من أخا خلوق وصديقا وفيا ذو قيمة وقامة عظيمة

هناك مشكلتان الاولى فواصل الصفحات فهل من سبيل لتحجيم فواصل الصفحات

 أما الثانية فتتعلق حال عدم تحقق الشرط بالعمود J

 بعد إذنك أخى وحبيبى يرجى مسح محتويات العمود J ولاحظ عمل الملف

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

فهذا ما أقصده من كلمة " تجاهل "  فأرجو قبول إعتذارى لعدم توضيح هذة الجزئية بالشكل السليم

وفى الاخير اعتقد أننا بحاجة الى استخدام التصفية المتقدمة مع الترحيل الى ورقة عمل جديدة

كما هو مبين بورقة النتائج لذا يرجى الاطلاع على المرفق التالى

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+111.xlsb.rar

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

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

أخي الحبيب أبو عبد الرحمان، تم تعديل على الكود بما يوافق الشروط -دون استعمال خاصية الترحيل- (وللطباعة على الورق استبدل PrintPreview بـ PrintOut) وتم إلغاء كل فواصل الصفحات اليدوية...

أخوك بن علية

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+111.xlsb.rar

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

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

اخى ونور عينى بن عليه حاجى

بارك الله فيكم وأعطاكم الله تعالى الصحة والعافية  

بهذا التعديل المميز تم طباعة ورقة العمل حال تحقق الشرط وعدم الطباعة حال عدم تحققه 

ولكن ظهرت مشكلة أخرى حيث انه سيتم الطباعة بحول الله على مقاس A4

فكلما غيرت  الــ normal size الى 100% ومع تجربة الطباعة

يتغير الــ normal size  الى 31% مع ظهور هذة المرة هوامش الصفحات 

هذه واحدة اما الاخرى فهى عن إهتزازت الشاشة فضلا عن ظهور رسالة Varible not defind

اعتقد أن هذة الرسالة للإعلان عن المتغيرات  Option Explicit فهل من سبيل أخى وحبيبى

برجاء الاطلاع على المرفق التالى والافادة بحول الله تعالى

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+222.xlsb.rar

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

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

أخي الحبيب أبو عبد الرحمان، بالنسبة للمشاكل التي ظهرت معك أحاول بإذن الله تناولها الواحد تلو الآخر مع اقتراحات للحلول:

المشكل الأول : "فكلما غيرت  الــ normal size الى 100% ومع تجربة الطباعة يتغير الــ normal size  الى 31% مع ظهور هذة المرة هوامش الصفحات" ---------> هذا من المفروض يمكن حلها باستعمال خاصية "تعدادات الصفحة" Page Setup (تحجيم الصفحة)

المشكل الثاني" اما الاخرى فهى عن إهتزازت الشاشة" -----------> هذا راجع لأنك -ربما- تعمل على ملف فيه تنسيقات شرطية كثيرة (مما يؤثر على عمل الأكواد) وهنا يمكن إما التقليل من هذه التنسيقات أو إلغاؤها وإما أن نضيف إلى الكود إحدى العبارتين التاليتين (حسب الحالات) : Application.ScreenUpdating = False في بدايته و Application.ScreenUpdating = True في نهايته أو العبارة Application.EnableEvents = False في بدايته و Application.EnableEvents = True  في نهايته ويمكن أيضا توقيف "خاصية الحساب التلقائي" برمجيا...

المشكل الثالث : "فضلا عن ظهور رسالة Variable not defind" -------------> هذه إجابتها عندك "اعتقد أن هذة الرسالة للإعلان عن المتغيرات  Option Explicit"، فعند إضافة هذه العبارة إلى الأكواد يجب "الإعلان عن طبيعة جميع المتغيرات في كل الأكواد" وفي الكود لدينا 3 متغيرات يجب إعلانها Rng ،I ، m ويتم ذلك بإضافة الأمر مباشرة بعد أمر Sub (أي في السطر الثاني) : Dim m As Long, I, Rng As Range

هذا والله أعلى وأعلم.

 

أخوك بن علية الذي يحبك في الله

 

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

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

اخى ونور عينى بن عليه حاجى

بارك الله فيكم ورزقكم الله تعالى وإيانا من حيث لانحتسب وجعلكم الله عونا للجميع

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

بقيت مشكلة واحدة فقط الا وهى ظهورهوامش الصفحات حيث لايوجد إتاحة لتحجيم الصفحة بعد إضافة جميع الحلول

فهل من سبيل لعلاج هذة الجزئية من داخل الكود  ***** رجاء الاطلاع على المرفق التالى والافادة بحول الله تعالى

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+3333.rar

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

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

أخي الحبيب أبو عبد الرحمان، حسب ما فهمت من المطلوب تريد أن يأخذ الجزء المراد طبعه ملء الصفحة A4 أي لا تكون هوامش بيضاء كبيرة عند الطباعة أو المعاينة، لهذا حل ما الحلين التاليين:

الحل الأول : تحجيم الورقة (في خاصية Page Setup) لأكثر من النسبة 100% حتى تتناسب مع هوامش الصفحة (وقد جربت عندي النسبة 130%)..

الحل الثاني : تغيير عرض الأعمدة المراد طبعها مثلا (جربته عندي)

          - عرض العمود A جعلته 8

          - عرض الأعمدة W، Q، M، B، جعلته 13

          - عرض العمود F جعلته 35

والله أعلم

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

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

اخى ونور عينى بن عليه حاجى

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

بداية أعتذر لعدم الرد فى حينه لسفر مفاجىء

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

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

فكل شيىء على مايرام بإستثناء هذة الجزئية  فدعنا نفكر بطريقة أخرى ربما تفيد فكرتى للتغلب على تلك الجزئية

فهل يمكن تحديد كامل الجدوال كنطاق للطباعة من A 1 الى AG وحتى أخر صف مدون به بيانات ومن ثم إخفاء الاعمدة الغير معنية بالطباعة

 وإظهارها مرة أخرى بعد تنفيذ امر الطباعة وبهذا نكون قد تغلبنا على ظهور الهوامش بالورقة data

ولنا لقاء سابق بشأن موضوع تحجيم نطاق الطباعة وهو لذات الملف

مع إختلاف الفكرة العامة للموضوع وقد أبدعت فيه أخى الحبيب إبداعا حسنا

سأشير بعد إذنك أخى الحبيب الى الرابط الخاص به ربما تصل الى مالم أصل اليه حيث اننى حاولت دون جدوى

أرجو أن تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

تم تعديل بواسطه ابو عبدالرحمن بيرم

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