التحكم بموضع مربع نص بواسطة شرط معين

[ماجدجلال]

السلام عليكم ,,,

لدي مربع نص واقوم بنقلة يدويا الي خلايا معينة تجهيزا للطباعة ووجدت صعوبة في عملية نقل هذا المربع , غير انني في حالات عديدة كنت انسي نقلة من خلية الي خلية اخري ,,

فهلا يوجد شرط او ماكرو يقوم بنقل هذا المربع الي خلية معينة ,,

والشرط هو ان يتم وضع مربع النص في اخر خلية يوجد فيها بيانات , بمعني عندي عدد من الصفوف بها بيانات واريد وضع مربع النص هذا في اول صف خالي لا تحتوي علي بيانات ,

ارجو المساعدة وشكرا ,,,

[محمد طاهر عرفه]

يمكنك الاستفادة من كود الاخ سيد هنا

http://www.officena.net/ib/index.php?showtopic=3331

[ماجدجلال]

السلام عليكم ,,

شكرا لك استاذ محمد وصدقني لو كنت محترف في الكود لوفرت علي نفسي السؤال وريحتكم عناء الاجابة ,,

ولكن شكل الكود ذو السطور الطويل والكتابة باللغة الانجليزية بالنسبة لي كمثل الكتابة الفرعونية , لا تدري اين البداية فيها من النهاية ولا تدري ماذا تعني ,,,

لذا سوف ارفق ملف بة مربع النص وارجو من اصحاب البرمجة المحترفة المساعدة ,,

وشكرا للجميع ,,,

[ماجدجلال]

السلام عليكم ,,

الملف مع السؤال في هذا الرابط ,

ارجو المساعدة وشكرا ,

http://www.officena.net/ib/index.php?showtopic=8874

تم تعديل يوليو 16, 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

[ماجدجلال]

ماشاء الله تبارك الله

عيني عليك باردة استاذ محمد

الله يقويك و يعطيك الف عافية نجح الملف ونجح الكود

شكرا جزيل لك ,,,