مصطفى رياض قام بنشر يونيو 27, 2010 مشاركة قام بنشر يونيو 27, 2010 (معدل) مطلوب مساعده فى طريقه اسرع لطباعه فواتير المبيعات المتسلسله (انظر المرفق) الطريه التقليديه التى اتبعها كل شهر : - اعددت هذا الملف حتى يأخذ البيانات من شريحه اخري بواسطه V-lookup داخل المرفق خليه مظلله باللون الاصفر بها سيريال الفواتير المراد طباعتها فمثلا السيريال اللى عليه الدور رقم 170 اضغط طباعه ثم الفاتوره التاليه : اكتب فى الخليه الصفراء 171 ثم اضغط طباعه وهكذا اكرر العمليه الى نهايه المسلسل - وهذا امر ممل جدا ودائما ما يسقط بعض التسلسل برجاء ايجاد طريقه عبقريه تسهل عمله الطباعه وان امكن ان يكون الحل يتيح امكانيه تحديد الطباعه فى امر واحد مثلا : من المسلسل رقم 170 الى 210 ولكم منى وافر الشكر والتقدير Sales Inv.rar تم تعديل يونيو 27, 2010 بواسطه Mostafa Riyad رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يونيو 27, 2010 مشاركة قام بنشر يونيو 27, 2010 السلام عليكم الأخ الكريم لو ترفق الملف بتنسيق 2003 يساعدك الجميع إن شاء الله أصل ما عندي أوفيس 2007 الآن دمت بخير أيسم إبراهيم رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يونيو 27, 2010 مشاركة قام بنشر يونيو 27, 2010 السلام عليكم اخي Mostafa Riyad تم عمل زر عند الضغط عليه سيظهر لك فورم به 2 تكست بوكس الايمن تضع الرقم الاصغر و في طلبك هو 170 و الاخر تضع به الرقم الاكبر و في طلبك هو 210 و طبعا متاح لك تضع اي ارقام تريدها بس لابد ان يكون الاصغر يمينا و الاكبر يسارا جرب الملف و اخبرني النتيجة مرفق لك الملف علي 2003 و 2007 فاختار ما تراه لعملك تحياتي Sales.rar رابط هذا التعليق شارك More sharing options...
مصطفى رياض قام بنشر يونيو 28, 2010 الكاتب مشاركة قام بنشر يونيو 28, 2010 (معدل) اخى الكريم عادل حنفى ولا احلى ولا اجمل من كدا جزاك الله عنا كل خير الطريقه اجمل مما توقعتها ولو تفضلت بكرمك وتعلمنى كيفيه نقل هذه الطريقه الرائعه لملفات اخري ممثاثله ؟؟؟ وان امكن عدم ظهور الزر فى الطباعه وشكرا تم تعديل يونيو 28, 2010 بواسطه Mostafa Riyad رابط هذا التعليق شارك More sharing options...
مصطفى رياض قام بنشر يونيو 28, 2010 الكاتب مشاركة قام بنشر يونيو 28, 2010 السلام عليكم الأخ الكريم لو ترفق الملف بتنسيق 2003 يساعدك الجميع إن شاء الله أصل ما عندي أوفيس 2007 الآن دمت بخير أيسم إبراهيم أخى أيسم اسف على التأخير انا كنت فى طريقى لرفع الملف بصيغه 2003 ولكن سبقنى الاستاذ عادل حفنى بالاجابه الرائعه الف شكر على الاهتمام وجزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يونيو 28, 2010 مشاركة قام بنشر يونيو 28, 2010 السلام عليكم اخي الكريم Mostafa Riyad لك كل شكري اخي العزيز علي كلماتك التي سعدت بهاكثيرا و اكثر ما تسعدني به هو اتمام افادتك بها لتسهيل عملك فلك كل شكري و تقديري اما بالنسبه للطريقة في محرر الاكواد قم باضاقة قورم جديد و ضع بداخله عدد 2 تكست بوكس و زران احدهما سمه باسم Print و الاخر باسك cancel في محرر اكواد الزر Print الصق الكود التالي Private Sub CommandButton1_Click() If TextBox1 = "" Or TextBox2 = "" Then MsgBox ("اكمل البيانات") Exit Sub End If If TextBox1 > TextBox2 Then MsgBox ("يجب ان يكون هنا الرقم الاصغر") TextBox1.SetFocus Exit Sub End If m = TextBox1.Value n = TextBox2.Value For i = m To n If i = m Then GoTo 1 Range("m9") = i ActiveSheet.PrintOut Next Exit Sub 1: ActiveSheet.PrintOut Exit Sub ثم اذهب الي الشيت و اضف زر سمه وفي محرر اكواده الصق الكود التالي Private Sub CommandButton1_Click() UserForm1.Show End Sub و بالنسبه لعدم ظهور الزر في الطباعة ضع الزر خارج مجال الطباعة ارجو اخباري ان لم تكن اي نقطة واضحة خالص تحياتي و تقديري رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يونيو 28, 2010 مشاركة قام بنشر يونيو 28, 2010 السلام لكم جميعاً الأخ العزيز عادل بك كيف أحدد نطاق الطباعة ليكون متناسباً مع الورقة A4 ؟؟ شاكر لك فضلك رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يونيو 29, 2010 مشاركة قام بنشر يونيو 29, 2010 السلام عليكم اخي يوسف عطا ساجاوبك علي حد علمي بالنسبة للطباعة اختر وضع معاينه للصفحة المراد طباعتها ثم اضغط غلي setup و من تبويب Page وتحت المنتصف من القائمة التي ستظهر لك ستجد paper size و امامها قائمة منسدلة اختر منها A4 ثم Ok تحياتي رابط هذا التعليق شارك 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.