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

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


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

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

السلام عليكم أخي الكريم

أعتقد حضرتك كنت فتحت موضوع لنفس الغرض قبل كدة

ولم توضح المطلوب بالضبط

..............

إذا قلنا أن العمود F للكمية والعمود G للسعر الإجمالي

فبالتالي لن يكون في العمود G أرقام أكبر من صفر إذا لم يكن في العمود F أرقام أكبر من صفر

يعني ممكن نخلي الشرط على العمود G فقط

نأتي للنقطة المهمة وهي العمل على خلية واحدة في العمود G وليكن مثلا خلية المجموع النهائي (للصفحة) 

* ولكن بعد ملاحظة ملفك المرفق وجدت أن خلية المجموع غير موجودة إلا في الصفحة الأولى فقط

* وكذلك لاحظت أن فواصل الصفحات غير مضبوطة حيث تظهر الصفحة على أربع صفحات

لذلك لكي تحصل على ما تريد

رغم شكي في صياغة المطلوب

 

 

عايزامر طباعة ملفات بحيث لو العمود F او G فى اى رقم اكبر من الصفر

ما الملفات التي تريد طباعتها؟؟!!
يعني مثلا لو الخلية g38 فيها رقم أكبر من صفر يطبع ملف اسمه إيه

ولو خلية تانية يطبع ملف تاني اسمه إيه

؟؟؟!!!!!

أعتقد والله أعلم

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

حتى لا يتم طباعة صفحات فارغة

.................

برجاء تحديد المطلوب بدقة

ولا يوجد شيء اسمه مستحيل إلا في عقول الكسالى

رابط هذا التعليق
شارك

ههههه معلش انا مش عارف اوضح يا جماعه ببساطه لو الصفحه رقم 1 العمود F او G فى اي خليه فيه رقم اكبر من صفر يطبع الصفحه وخلاص باى شكل انا هرتب شكل الصفحات بعدين وهنسقها انا عايزو يطبع الصفحه وخلاااااااااااااااااص لو مفيش ارقام فى الاعمده الصفحه متطبعش ويطبع الى بعديها لو فيها ارقام بسسس

رابط هذا التعليق
شارك

تفضل أخي الكريم

تم تعديل الصفحات ليكون عدد صفوف الصفحة 39 صفا

وتم الاعتماد على الخلية G38 ومضاعفات 38 حتى 10 صفحات

 

print more 0 current page.rar

رابط هذا التعليق
شارك

تمام احنا قربنا بوص مش شرط الخليه G38 الى اعتمد عليها عشان سعات بيكون فى صفحات كتير مفهاش مجموع انا عايز اى خليه فى العمود ده فيها رقم اكبر من الصفر تطبع اى خليه ممكن الخليه G44 او G46 كده انا عايزو يعتمد لو فى العمود G او العمود F ارقام فى اى خليه يطبع الصفحه

تم تعديل بواسطه محمود فؤااد
رابط هذا التعليق
شارك

أخي الكريم

أعتقد من الأفضل حتى توفر الوقت والجهد أن ترفع الملف الأصلي للإطلاع عليه

حل الأستاذ محمد صالح حل ممتاز جداً بارك الله فيه ..

تقبل تحياتي

رابط هذا التعليق
شارك

تمام احنا قربنا بوص مش شرط الخليه G38 الى اعتمد عليها عشان سعات بيكون فى صفحات كتير مفهاش مجموع انا عايز اى خليه فى العمود ده فيها رقم اكبر من الصفر تطبع اى خليه ممكن الخليه G44 او G46 كده انا عايزو يعتمد لو فى العمود G او العمود F ارقام فى اى خليه يطبع الصفحه

الطبيعي والمنطقي في تنسيق الصفحات في إكسل أن تكون متساوية في عدد الصفوف والأعمدة

وبعد فحص ملفك وجدت أن الصفحة الأولى 39 صفا

ونظرا لأن عمليات التكرار في البرمجة منتظمة (يعني مضاعفات أي رقم)

ففمت بضبط باقي الصفحات على 39 صفا

واستعمالنا لخلية واحدة هي إجمالي المجموع g38 هو بديل لاستعمالنا لمجموعة كبيرة من الخلايا تقريبا 62 خلية

ولا أدري كيف يكون تنسيق صفحة مختلف عن صفحة أخرى (دي فيها مجموع ودي مفيهاش)

وإذا اعتمدت على خلية g46 أو g44 ومضاعفاتها فربما لن يتم طباعة أي صفحة (لأن هذا صف من صفوف صفحة وليس صفا يعبر عن الصفحة كلها كصف المجموع)

..............

طبعا أكيد خضرتك متقصدش العمود F أو العمود G كلها

أكيد تقصد ضمن الصفحة الواحدة

لذلك

يمكن تغيير كود الإجراء mas إلى ما يلي

Sub mas()
For n = 1 To 10
If WorksheetFunction.Sum(Range("f" & 6 + n * 38 - 38 & ":g" & 37 + n * 38 - 38)) > 0 Then
Range("g" & 6 + 1 * 38 - 38).Select
PrintCurrentPage
End If
Next n
MsgBox "Ok"
End Sub

ويعني الشرط الذي تم تغييره

إذا كان مجموع الخلايا F6:G37 أكبر من صفر يتم تحديد أول خلية في الصفحة ثم طباعة الصفحة الحالية

وهكذا يتكرر الكود مع الخلايا F44:G75 بإضافة 38 إلى الرقمين وهو عدد صفوف الصفحة

....................

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

وكل عام والجميع بخير

تم تعديل بواسطه أ / محمد صالح
رابط هذا التعليق
شارك

معلش اسف اخر حاجه ينفع تعملها اذا كان مجموع الخلايا من G6 الى G37 اكبر من الصفر يطبع الصفحه ولو يساوى صفر ميتطبعش ويتكرر على كل صفحه ----- اسف جدااااااااا انى بتعبك معايه ربنا يجعلو ف ميزان حسناتك

رابط هذا التعليق
شارك

ينفع جدا الاعتماد على مجموع الخلايا g6:g37 اللي هو المفروض يكون في الخلية g38 كما قلت سابقا من البداية

لعمل ذلك يمكنك تغيير  "f" التي في السطر الثالث إلى "g"

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

حتى يكون لديك الأساسيات ومن ثم تنطلق في فضاء الإكسل

رابط هذا التعليق
شارك

تقريبا الكود فى مشكلة بيطبع الصفحه الاولى بس كذا مره لما غيرت f لــ G او لو مغيرتهاش بيطبع الورقه الاولى بس كذا مره

تم تعديل بواسطه محمود فؤااد
رابط هذا التعليق
شارك

تقريبا الكود فى مشكلة بيطبع الصفحه الاولى بس كذا مره لما غيرت f لــ G او لو مغيرتهاش بيطبع الورقه الاولى بس كذا مره

جرب نسخ الإجراء كله وبلاش حكاية التعديل دي

Sub mas()
For n = 1 To 10
If WorksheetFunction.Sum(Range("g" & 6 + n * 38 - 38 & ":g" & 37 + n * 38 - 38)) > 0 Then
Range("g" & 6 + 1 * 38 - 38).Select
PrintCurrentPage
End If
Next n
MsgBox "Ok"
End Sub
رابط هذا التعليق
شارك

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