اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

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

قام بنشر

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

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

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

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

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

قام بنشر

السلام عليكم ...

ضع الكود التالي في الـ 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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information