ماجدجلال قام بنشر يوليو 10, 2005 قام بنشر يوليو 10, 2005 السلام عليكم ,,, لدي مربع نص واقوم بنقلة يدويا الي خلايا معينة تجهيزا للطباعة ووجدت صعوبة في عملية نقل هذا المربع , غير انني في حالات عديدة كنت انسي نقلة من خلية الي خلية اخري ,, فهلا يوجد شرط او ماكرو يقوم بنقل هذا المربع الي خلية معينة ,, والشرط هو ان يتم وضع مربع النص في اخر خلية يوجد فيها بيانات , بمعني عندي عدد من الصفوف بها بيانات واريد وضع مربع النص هذا في اول صف خالي لا تحتوي علي بيانات , ارجو المساعدة وشكرا ,,,
محمد طاهر عرفه قام بنشر يوليو 10, 2005 قام بنشر يوليو 10, 2005 يمكنك الاستفادة من كود الاخ سيد هنا http://www.officena.net/ib/index.php?showtopic=3331
ماجدجلال قام بنشر يوليو 11, 2005 الكاتب قام بنشر يوليو 11, 2005 السلام عليكم ,, شكرا لك استاذ محمد وصدقني لو كنت محترف في الكود لوفرت علي نفسي السؤال وريحتكم عناء الاجابة ,, ولكن شكل الكود ذو السطور الطويل والكتابة باللغة الانجليزية بالنسبة لي كمثل الكتابة الفرعونية , لا تدري اين البداية فيها من النهاية ولا تدري ماذا تعني ,,, لذا سوف ارفق ملف بة مربع النص وارجو من اصحاب البرمجة المحترفة المساعدة ,, وشكرا للجميع ,,,
ماجدجلال قام بنشر يوليو 16, 2005 الكاتب قام بنشر يوليو 16, 2005 (معدل) السلام عليكم ,, الملف مع السؤال في هذا الرابط , ارجو المساعدة وشكرا , http://www.officena.net/ib/index.php?showtopic=8874 تم تعديل يوليو 16, 2005 بواسطه ماجدجلال
محمد حجازي قام بنشر يوليو 17, 2005 قام بنشر يوليو 17, 2005 السلام عليكم ... ضع الكود التالي في الـ ThisWorkbook : Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim MyRange As Range Set MyRange = Sheets("Sheet1").Range("A3").CurrentRegion With Me.Sheets("Sheet1").Shapes("Rectangle 1") .IncrementTop MyRange.Height + MyRange.Top - .Top + 5 End With End Sub الكود السابق ينفذ عند النقر على أمر الطباعة . يوجد ملاحظتين على الكود السابق : - يجب أن تكون البيانات الموجودة في الجدول متصلة . - يمكنك زيادة المسافة التي تفصل بين مربع النص و الحافة السفلى من الجدول عن طريق تغيير الرقم 5 الموجود في الكود إلى رقم أكبر . MJID.rar
ماجدجلال قام بنشر يوليو 18, 2005 الكاتب قام بنشر يوليو 18, 2005 ماشاء الله تبارك الله عيني عليك باردة استاذ محمد الله يقويك و يعطيك الف عافية نجح الملف ونجح الكود شكرا جزيل لك ,,,
الردود الموصى بها