enterco قام بنشر يناير 19, 2014 مشاركة قام بنشر يناير 19, 2014 كلنا عارفين ان اي فاتورة بيع تتكون من رقم الفاتوره والتاريخ وشوية بيانات ثم الاصناف المباعه وفي الاخر الاجماليات والصافي انا بتقابلني مشكله وهي عند الطباعه لو كنت بايع صنف واحد يطبع الورقه من بعد الصنف فاضي لحد ما يوصل الى الاجماليات انا اريد اذا كنت بايع اصناف قليله اقل من مساحة a4 يرحل الاجماليات من اسفل الى اخر صنف مباع ثم بعد كده يطبعها فاضي ولكم جزيل الشكر وقد ارفقت لكم ملف به صوره مبسطه عن الموضوع Enterco1.rar enterco.rar رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 20, 2014 مشاركة قام بنشر يناير 20, 2014 أخى الكريم مرفق لكم الملف على حسب فهمى من الصورة المرفقة من قبلكم وهو أنكم ترغبون فى حذف الصفوف الخاليه من البيانات (( ملحوظة هامه )) الملف المرفق به معادله مرتبطه بالعمود B فى حال بداخلها بيانات أم لا بمعنى طالما أى صف بالعمود B به بيانات سيتم ادراجه بالطباعه ان لم يم يكن به بيانات سيتم حذف الصف تلقائيا الملف معمول بالمعادلات وبالأكواد جرب الملف المرفق وأعلمنى بالنتيجه نسأل الله أن يكون هو المطلوب وتقبل منى وافر الإحترام والتقدير m_elshrief_print.rar 1 رابط هذا التعليق شارك More sharing options...
enterco قام بنشر يناير 20, 2014 الكاتب مشاركة قام بنشر يناير 20, 2014 شكرا لك اخي محمود وهذا ما اريده ولكن لا توجد طريقه اخرى باستخدام المعادلات لاني لا اعرف استخدم الاكواد رابط هذا التعليق شارك More sharing options...
enterco قام بنشر يناير 20, 2014 الكاتب مشاركة قام بنشر يناير 20, 2014 اخي محمود ممكن لو تكرمت تشرح كيف عملت هذا الكود لاني لما بعمله في الشيت بيظهر خطأ رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 20, 2014 مشاركة قام بنشر يناير 20, 2014 أخى الكريم الكود كل وظيفته هو عندما تضغط على زر طباعه يقوم بتفعيل المعادلة الموجوده طبقا لما هو وارد بالمعادله وإظهار معاينه قبل الطباعه والمعادلة تجدها فى معرف الأسماء تحت اسم (( row )) فبالمعادله + الكود تم العمل المطلوب تحديد النطاق من (( b8:b38 )) إذا كان هناك أية بيانات فى هذا النطاق احتفظ بالصف وإن لم يكن هناك أية بيانات قم بإلغاؤه اثناء الطباعه الكود تجده فى محرر الأكواد لديك بـ sheet 2 وهو كود بسيط وليس معقد فعندما تقرأه بتأنى ستفهم دلالته وأى شىء آخر تريد الإستفسار عنه فالعبد لله تحت أمرك وتقبل منى وافر الإحترام والتقدير 1 رابط هذا التعليق شارك More sharing options...
enterco قام بنشر يناير 20, 2014 الكاتب مشاركة قام بنشر يناير 20, 2014 اسف على ازعاجك الكود انا وصلت اليه اما المعادله فلم اجدها ممكن تقولي في اي خليه وضعت المعادله رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 20, 2014 مشاركة قام بنشر يناير 20, 2014 أخى الكريم المعادله هى تسمية لنطاق أى تجدها فى معرف الأسماء فهى لا تكتب بالخلايا إن كنت تستخدم أوفيس 2007 إفتح قائمة صيغ وإضغط على اداره الاسماء يظهر لك نافذة تجد شكل أو مربع لونه اصفر بجانبه كلمه row اضغط على تحرير لترى المعادله أما بأوفيس 2003 على ما أعتقد تجدها فى قائمة ادراج 1 رابط هذا التعليق شارك More sharing options...
enterco قام بنشر يناير 20, 2014 الكاتب مشاركة قام بنشر يناير 20, 2014 انا عندي office 2007 ووجدت المعادله بس ممكن تقولي الخطوات لاني عملتها ومفيش نتيجه انا ذهبت لمدير الاسماء وعملت الداله وبعد كده عملت اضافة زر ثم اخد كوبي من الكود ووضعته في الماكرو ولكن اسم الزرار مختلف واسم الماكرو كذلك فلو سمحت الخطوات بالترتيب رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 20, 2014 مشاركة قام بنشر يناير 20, 2014 أخى الكريم سأحاول أن أشرح لكم الخطوات ولكنى لست جيدا فى الشرح 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 - موافق تم بحمد الله الشرح والله المستعان وتقبلوا منى وافر الإحترام والتقدير 1 رابط هذا التعليق شارك More sharing options...
enterco قام بنشر يناير 21, 2014 الكاتب مشاركة قام بنشر يناير 21, 2014 بارك الله فيك شرح مميز وتم عمل السابق ذكره والحمد لله النتيجه تمام رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 21, 2014 مشاركة قام بنشر يناير 21, 2014 أخى فى الله الأستاذ الكريم بارك الله فيكم على مروركم الكريم وجزاكم الله عنى خير الجزاء ونحمد الله على النتيجة وتقبل منى وافر الإحترام والتقدير رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر يناير 23, 2014 مشاركة قام بنشر يناير 23, 2014 الأخ الفاضل/ محمود_الشريف حل ممتاز - وشرح وافي ومفصل جزاكم الله كل خير تقبل تحياتي رابط هذا التعليق شارك More sharing options...
اسلام سيد قام بنشر يناير 23, 2014 مشاركة قام بنشر يناير 23, 2014 السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا على المعادلات والاكواد الرائعه والشرح جارى المدارسة والاستفسار بإذن الله رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 23, 2014 مشاركة قام بنشر يناير 23, 2014 الأخ الفاضل/ محمود_الشريف حل ممتاز - وشرح وافي ومفصل جزاكم الله كل خير تقبل تحياتي أخى فى الله الأستاذ القدير / حماده باشا بارك الله فيكم وجزاكم رب العالمين عنى خير الجزاء وتقبلوا منى وافر الإحترام والتقدير رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 23, 2014 مشاركة قام بنشر يناير 23, 2014 السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا على المعادلات والاكواد الرائعه والشرح جارى المدارسة والاستفسار بإذن الله أخى فى الله الأستاذ / إسلام الشيمى بارك الله فيكم وتقبلوا منى وافر الإحترام والتقدير رابط هذا التعليق شارك 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.