ريان أحمد قام بنشر أبريل 25, 2010 قام بنشر أبريل 25, 2010 السلام عليكم ورحمة الله تعال وبركاته أخي العزيز لقد سبق وأن ساعدتني في مشكلة ترحيل الطباعة بشروط وأن أدعو لك في ضهر الغيب ......بكل دعوة صالحة ..... أريد أن تعدل لي في الكود وذلك بنزع الإطار والشرح في المرفق الرجاء شرح كيفية تبديل أمكنة المتغيرات ترحيل2 مع طباعةA5.rar
طارق محمود قام بنشر أبريل 26, 2010 قام بنشر أبريل 26, 2010 (معدل) السلام عليكم أي تعديلات تريدها هذا الملف دائما إعمل ماتريد في الأسطر من 1 إلي 18 ثم نفذ الكود سينسخ الموجود في هذه الأسطر بما فيه من تشكيل وألوان وإطارات ، كل التنسيقات تفضل المرفق _____3 __ _____A5.rar تم تعديل أبريل 26, 2010 بواسطه TareQ M
ريان أحمد قام بنشر أبريل 26, 2010 الكاتب قام بنشر أبريل 26, 2010 يعجز اللسان عن التعبير وتخوننا الكلمات عندما نكون بحاجة ماسة إليها......... ماذا عسانا أن نقول سوى أنار الله دربك ونور قبرك وجعل جنة الفردوس من نصيبك أخي العزيزالسؤال الذي يخص المتغيرات هو كيف تجعل الإسم مثلا يضهر في الخلية d3 بدلا L4 وشكرا وألف شكر مسبقا ترحيل طباعة.rar
طارق محمود قام بنشر أبريل 26, 2010 قام بنشر أبريل 26, 2010 السلام عليكم أخي الحبيب الموضوع يحتاج الكثير من التعلم والممارسة في الإكسل والأكواد ولكني سأحاول تبسيط الأمر قدر ماأستطيع إذا فتحت الكود Macro3 (عن طريق ALT-F11) ستجده ينقسم قسمين العلوي يقرأ ' READ والسفلي يكتب ' WRITE يقرأ ماذا ؟ ... البيانات المعدة للطباعة في الورقة الأولي ثم يكتب ماذا ؟ ... نفس البيانات ولكن في الورقة الثانية كيف يقرأ في الورقة الأولي يقف عند الخلية R1 ومنها يسمي البيان الأول في الصف الأول org_data(1,1 يعني أول قيد ثم البيان الثاني في الصف الأول org_data(1,2 يعني أول إسم Range("R1").Offset(i, j) وهكذا والآن ، المهم ، كيف يكتب في الورقة الثانية يقف عند الخلية D21 ومنها يكتب البيان الأول org_data(1,2 في الخلية التي تبعد عنه 8 لليسار في نقس الصف وهكذا حسب هذا الجزء من الكود ' WRITE Range("D" & rrr + 3).Select ActiveCell.Offset(0, 8) = org_data(i, 2) ActiveCell.Offset(1, 8) = org_data(i, 3) ActiveCell.Offset(2, 8) = org_data(i, 6) :: بعد هذه المقدمة الطويلة ، إذا أردت مثلا كما تسأل أن تضع الأسم في D3 بدلا L4 ببساطة تغير السطر الخاص بكتابة الإسم من ActiveCell.Offset(0, 8) = org_data(i, 2) إلي ActiveCell.Offset[color="#ff0000"](-1, 0)[/color] = org_data(i, 2) أرجو أن أكون وفقت في توصيل المعلومة والله الموفق
ريان أحمد قام بنشر أبريل 26, 2010 الكاتب قام بنشر أبريل 26, 2010 السلام عليكم أخي الحبيب الموضوع يحتاج الكثير من التعلم والممارسة في الإكسل والأكواد ولكني سأحاول تبسيط الأمر قدر ماأستطيع إذا فتحت الكود Macro3 (عن طريق ALT-F11) ستجده ينقسم قسمين العلوي يقرأ ' READ والسفلي يكتب ' WRITE يقرأ ماذا ؟ ... البيانات المعدة للطباعة في الورقة الأولي ثم يكتب ماذا ؟ ... نفس البيانات ولكن في الورقة الثانية كيف يقرأ في الورقة الأولي يقف عند الخلية R1 ومنها يسمي البيان الأول في الصف الأول org_data(1,1 يعني أول قيد ثم البيان الثاني في الصف الأول org_data(1,2 يعني أول إسم Range("R1").Offset(i, j) وهكذا والآن ، المهم ، كيف يكتب في الورقة الثانية يقف عند الخلية D21 ومنها يكتب البيان الأول org_data(1,2 في الخلية التي تبعد عنه 8 لليسار في نقس الصف وهكذا حسب هذا الجزء من الكود ' WRITE Range("D" & rrr + 3).Select ActiveCell.Offset(0, 8) = org_data(i, 2) ActiveCell.Offset(1, 8) = org_data(i, 3) ActiveCell.Offset(2, 8) = org_data(i, 6) :: بعد هذه المقدمة الطويلة ، إذا أردت مثلا كما تسأل أن تضع الأسم في D3 بدلا L4 ببساطة تغير السطر الخاص بكتابة الإسم من ActiveCell.Offset(0, 8) = org_data(i, 2) إلي ActiveCell.Offset[color="#ff0000"](-1, 0)[/color] = org_data(i, 2) أرجو أن أكون وفقت في توصيل المعلومة والله الموفق والله ما قصرت وأهديك هذه القصيدة بحرت في بحر الكلامِ لأقتفـــي **** أحلى كليماتٍ وأحلى الأحــرفِ لكنما الأمواج أردت قاربــــــــي **** فتحطمت خجلا جميع مجادفـــي لو أنني أنشدت الف قصــــــــيدة **** لوجدتها في حقكم لا لن تفــي أسرجت شعري بمنتـديات أفيسنا **** ونسجته شعرا يقرّ عواطفــــــي ونظمته نظما يدّر مشاعـــــــــرا **** من كل قلب قد أبت أن تختفـــي سيروا الى العلياء واقتادوا المنى **** ومضوا الى الإبداعِ دون توقفِ واُهنىء نفسي لأني قد حظـــــيت **** بجمع أخوانٍ كظــــــــــلٍ وارفِ شكرا لكم يرعاكم رب السمــــاء **** كونوا كجسمٍ واحدٍ متكـــــــاتفِ
anur.mertah85 قام بنشر أبريل 27, 2010 قام بنشر أبريل 27, 2010 بارك الله في الأخ طارق وجزاه الله خير الجزاء على شرحه الواسع والمفيد والذي ينم على خبرة لاقدر لها فبارك الله في ماله وولده ورزقه الجنة بما يقابلنا به من صدر رحب وقلب طيب زعقل رصين أخي الحبيب طارق كثر الله من امثالك وجزاك الله بفعلك هذا الجنة فأنت لاتبخل على احد ممن اراد المساعدة وحقيقة لن ازيد شيئا على كلام أخينا العزيز طاهر فقد كفى ووفى في مدحك وهذا قليل من كثير تقبل مروري والسلام عليكم ورحمة الله
طارق محمود قام بنشر أبريل 27, 2010 قام بنشر أبريل 27, 2010 (معدل) السلام عليكم أخي طاهر أخي أنور جزاكما الله خيرا أنتما ومن في المنتدي جميعا علي فكرة ، أنا أهوي الشعر ولكني لاأستطيع نظم نصف بيت وأشهد لك بالتمكن أخي طاهر جعلنا الله عند حسن ظنكما وجمعنا جميعا في جنته آمين تم تعديل أبريل 27, 2010 بواسطه TareQ M
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.