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

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

قام بنشر

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

Enterco1.rar

enterco.rar

قام بنشر

أخى الكريم

مرفق لكم الملف على حسب فهمى من الصورة المرفقة من قبلكم

وهو أنكم ترغبون فى حذف الصفوف الخاليه من البيانات

 

(( ملحوظة هامه ))

الملف المرفق به معادله مرتبطه بالعمود B فى حال بداخلها بيانات أم لا 

بمعنى طالما أى صف بالعمود B  به بيانات سيتم ادراجه بالطباعه 

ان لم يم يكن به بيانات سيتم حذف الصف تلقائيا 

 

الملف معمول بالمعادلات وبالأكواد 

جرب الملف المرفق وأعلمنى بالنتيجه

نسأل الله أن يكون هو المطلوب

 

وتقبل منى وافر الإحترام والتقدير

 

m_elshrief_print.rar

  • Like 1
قام بنشر

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

قام بنشر

أخى الكريم

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

والمعادلة تجدها فى معرف الأسماء

تحت اسم (( row )) 

فبالمعادله + الكود تم العمل المطلوب

تحديد النطاق من (( b8:b38 )) إذا كان هناك أية بيانات فى هذا النطاق احتفظ بالصف وإن لم يكن هناك أية بيانات قم بإلغاؤه اثناء الطباعه 

الكود تجده فى محرر الأكواد لديك بـ sheet 2 

وهو كود بسيط وليس معقد فعندما تقرأه بتأنى ستفهم دلالته

وأى شىء آخر تريد الإستفسار عنه فالعبد لله تحت أمرك

وتقبل منى وافر الإحترام والتقدير

  • Like 1
قام بنشر

اسف على ازعاجك الكود انا وصلت اليه اما المعادله فلم اجدها ممكن تقولي في اي خليه وضعت المعادله

قام بنشر

أخى الكريم

المعادله هى تسمية لنطاق 

أى تجدها فى معرف الأسماء

فهى لا تكتب بالخلايا

إن كنت تستخدم أوفيس 2007 إفتح قائمة صيغ وإضغط على اداره الاسماء

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

أما بأوفيس 2003 على ما أعتقد تجدها فى قائمة ادراج 

  • Like 1
قام بنشر

انا عندي office 2007 ووجدت المعادله بس ممكن تقولي الخطوات لاني عملتها ومفيش نتيجه انا ذهبت لمدير الاسماء وعملت الداله وبعد كده عملت اضافة زر ثم اخد كوبي من الكود ووضعته في الماكرو ولكن اسم الزرار مختلف واسم الماكرو كذلك فلو سمحت الخطوات بالترتيب

قام بنشر

أخى الكريم 

سأحاول أن أشرح لكم الخطوات ولكنى لست جيدا فى الشرح 

1 - يجب معرفة العمود والصف الذى ستبدأ به تدوين البيانات داخل الفاتورة ولنفترض حسب الملف المرفق أنه عمود b صف 8 ( أى الخلية b8) .

2 - يجب معرفة آخر صف يتم تدوين البيانات فيه والخاص بالفاتورة وحسب الملف المرفق هو ( b38) .

3 - نذهب لتعريف اسم الداله كما ذكرتم لكم سابقا 

4 - تقوم بالضغط على زر جديد بالنافذة التى ستظهر أمامك 

5 - تظهر لك نافذة جديدة تقوم بتعريف الأسم الخاص بالدالة والذى سيرفق بالكود لاحظ ذلك جيدا تشابه الأحرف بشكل تام ويفضل تعريفها باللغة الإنجليزية 

6 - تقوم بإختيار النطاق ( مصنف ) من داخل النافذة ايضا الأخيرة

7 - تقوم بكتابة المعادلة ( طبقا للملف المرفق سابقا ) هى 

      SUMPRODUCT((sheet2!$B$8:$B$38 <> "") * (sheet2!$B$8:$B$38 <> " "))+8 

8 - طبعا قبل كتابة المعادلة تكتب =

9 - تقوم بالذهاب إلى محرر الأكواد ALT+F11

10 - تقوم بإضافة موديول جديد ( من ادراج تختار موديول )

11 - تقوم بنسخ ولصق الكود

Sub Printing()
    
    Rows([Row] & ":38").EntireRow.Hidden = True
    
    ActiveWindow.SelectedSheets.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    
    Rows("8:38").EntireRow.Hidden = False

End Sub

شرح مبسط للكود 

قراءة الصفوف من نطاق الاسم الذى قمنا بتعريفه من خلال الداله السابقة الذكر ولاحظ تطابق كلمتين ( ROW)

اى صف به بيانات داخل هذا النطاق المعرف من قبل الداله به بيانات احتفظ به 

واى صف ليس به بيانات قم بإخفائه 

ثم قم بتفعيل نافذة المعاينه قبل الطباعه 

وفى حاله تمت الطباعه والحمد لله كما نريد ( قم بإظهار الصفوف المخفية )

12 - تذهب الى صفحة الفاتورة  

13 - تقوم بإدراج أى شكل تختاره وتكتب عليه طباعه 

14 - تقوم بالضغط عليه كليك يمين

15 - تختار تعيين ماكرو

16 - تظهر لك نافذة 

17 - أختر منها طباعه 

18 - موافق

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

وتقبلوا منى وافر الإحترام والتقدير

  • Like 1
قام بنشر

أخى فى الله

الأستاذ الكريم 

بارك الله فيكم على مروركم الكريم 

وجزاكم الله عنى خير الجزاء

ونحمد الله على النتيجة

وتقبل منى وافر الإحترام والتقدير

قام بنشر

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

 

جزاكم الله خيرا على المعادلات والاكواد الرائعه والشرح

 

جارى المدارسة والاستفسار بإذن الله

قام بنشر

الأخ الفاضل/ محمود_الشريف

حل ممتاز - وشرح وافي ومفصل

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

تقبل تحياتي

أخى فى الله

الأستاذ القدير / حماده باشا

بارك الله فيكم

وجزاكم رب العالمين عنى خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

قام بنشر

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

 

جزاكم الله خيرا على المعادلات والاكواد الرائعه والشرح

 

جارى المدارسة والاستفسار بإذن الله

أخى فى الله

الأستاذ  / إسلام الشيمى

بارك الله فيكم

وتقبلوا منى وافر الإحترام والتقدير

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