اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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