السلام عليكم
اذاكان اكسل 2003
اضغط كما يلي
ادوات tools
ماكرو Macro
تسجيل ماكرو
في الشاشة التي تظهر تختار مصنف الماكرو الشخصي
هذا يوجد به اي ماكرو تريد تسجيلة ليعمل على الملفات التي تفتحها
السلام عليكم
بعد اذن اخي الفاضل جلال
تم وضع اكبر قيمة في لعمود التسلسل لصفحة الشهادات في الخلية O1
ثم الكوود التالي
Sub ãÇßÑæ1()
Dim Q
For Q = 1 To 11 '[O1]
[O2] = Q
Calculate
ActiveWindow.SelectedSheets.PrintPreview
' ActiveWindow.SelectedSheets.PrintOut Copies:=1
Q = Q + 2
Next Q
End Sub
تم تعيين متغير اسمة Q
هذا المتغير من رقم 1 الى قيمة الخلية O1 و التي بها اكبر رقم تسلسل
طبعا دالة LOOKUP بتعمل على قيمة الخلية O2
لذلك يتم وضع قيمة المتغير في O2ليتم الحساب بموجبها
ثم الطباعة
ثم نضيف رقمين للمتغير لكي تكون الزيادة بمعدل 3 ارقام لكل دورة
===============================
اضغط على صورة الطابعة الموجودة في الصفحة و يعمل الماكرو
مع التحية
___________.rar
آه ثم آه
ياعم ايه ده
هذه زادة تعقيد
موضوع الجرام هذا جديد و لم يكن في الحسبان
طيب
حطلي مثال عملي في الملف الأخير الى سويناه و كيف تطلع البيانات و اشرح داخل الملف
hod wt,
اخي صفوت
جزاك الله خيرا
يطبع كل ورقة 10 مرات
او يطبع العشرة ورقات مرة واحدة
واذاكان في مثال بملف اكسل يكون افضل
وشوف هذا الموضوع للأخ المايسترو قد يفيدك في طلبك
http://www.officena.net/ib/index.php?showtopic=27955
السلام عليكم
أخي ابو البرامج
(ان الله في عون العبد مادام العبد في عون اخية)
و الله يصبركم علية
الحمد لله اليوم كملنا موضوع اصدار الفاتورة
طبعا كود الترحيل موجود من السابق وهو من احد ابداعات استاذي القدير خبورخير جزاه الله خيرا
و نحن اضفنا ما يلي
1- اكتب في الخلية G3 عدد النسخ عند الطباعة
2- عند الضغط على زر الطباعة يتم اولا التأكد من الفاتورة انه لها قيمة او لا
اذا كانت القيمة صفر يعطيك رسالة و لا يطبع و لا يرحل
3- يتم طباعة الفاتورة كاملة
بعد الطباعة يسألك هل تحتاج نسخ اخرى اذا ضغطت نعم يعيد الطباعة و اذا ضغطت لا يكمل العمليات الأخرى
طيب ليش يسأل
لأنه في احتمال الورق يعلق في الطابعة او الطباعة مش واضحة او الشريط للطابعة مش في مكانه او اي سبب آخر ومحتاج اعادة الطباعة
يعني لا اضغط نعم اولا الا و أنا متأكد ان الطابعة اخرجت الورقة مظبوطة 100%
- - ملاحظة
قبل الطباعة يتم اخفاء الأسطر التي ليس بها مجموع
ليش - توفير في كمية الحبر - لايمكن اضافة اي اصناف يدويا
4- بعد ذلك يتم نقل البيانات الى ورقة Statment
5- يتم اخفاء الورقة Statment
ليش - علشان لا احد يوصلها ويعدل في الفاتورة التي صدرت - و - نحنة ان شاء الله رايحين نخرج من هذه الورقة بيان الحركة اليومية و الشهرية للمبيعات
6- يتم تعديل ناحية الطباعة الى المنطقة التي لا تحتوي خانة المجموع اسفل الصفحة و لاتحتوي الشعار اعلى الصفحة
ليش - علشان المستخدم لايضغط زر الطباعة من اشرطة الأدوات و يطلع فاتورة بدون ما يرحل بيانات الفاتورة
و علشان اذاكان حصل و عمل كدة يبقى الفاتورة التي صدرت ليست معتمدة او نظامية
و ايه رأيكم كدة صح ولا لأ
هذا الملف
sales6.rar
هاي قصة واحد غبي شارك في مسابقة ثقافيه جائزتها مليون دولار نقدا
وبدأت المسابقه بالسؤال الاول
س1: كم أستمرة حرب المئة عام ؟
أـ 116
ب ـ 99
جـ ـ 100
دـ 150
فكر صاحبنا كتير ثم أختار تخطي هذا السؤال لأنه أول مره يمر عليه ! ( حرب المئة عام يعني بلاه كم مدتها خخخخخخ)
طيب مو مشكلة بروح لسؤال الثاني
س2: أين تصنع قبعات بنما ؟؟
أـ البرازيل
ب ـ تشيلي
جـ ـ بنما
دـ الأكوادور
أختار هدا الفالح انه يستعين باصدقائه في الجامعة للا جابه على هالسؤال ( شو رايكم ... بس تابعوا معنا ! )
س3: في أي شهر يحتفل الروس بثورةأكتوبر ؟؟؟
أـ يناير
ب ـ سبتمبر
جـ ـ أكتوبر
دـ نوفمبر
ما قدر هذا الغبي الاجابه وطلب مساعدة الجمهور
س4: أي الاسماء هو اسم الملك جورج السادس؟؟
أـ جون
ب ـ ألبرت
جـ ـ جورج
دـ مانيول
طلب الغبي حذف إجابتين وبعد جهد جهيد توصل للإجابه
معلش نحملو بعض العقليات عندنا وخلينا نكمل.....
س5: ما الحيوان الذي أخذة منه جزر الكناري أسمها ؟؟؟؟؟
أـطائر الكناري
ب ـ الكنغر
جـ ـ الجرو
دـ الفار
عندها إنسحب ذلك الشخص من المسابقه ولم يستطع إكمالها
بس إذا كنتم بتفكروا حالكم
فأتمنى أنكم تقرأو الإجابات .....
،
استمرت حرب المئة عام 116 سنه من عام 1337 حتى 1453
قبعات بانما تصنع في الأكوادور
يحتفل الروس بثورت أكتوبر في نوفمبر
الاسم الأول للملك جورج هو إلبرت
جزر الكناري أخذ اسمها من الجرو ... حيث أن اسمها اللاتيني هو Insularia Canaria
السلام عليكم و رحمة الله
طبعا هذا المطلوب
اذا لم يتم اختيار الصنف الراد بيعة و لم يظهر لك السعر الأدنى للبيع لن تستطيع اضافة اي سعر من عندك
بعد ذلك يمكنك تغيير السعر الى الأعلى و لا يمكن تغيير السعر الى الأدنى
وكذلك الكمية يمكنك اختيار كمية اقل من الموجود في المخزن و لا يمكنك بيع كمية اكبر من الموجود في المخزن
آمل ان يكون هذا واضح