حل مشكلة توقيعات اسفل الصفحة

[hitech]

احيانا بيكون هندى شيت اكسيل بحتاج احط فيه ست سبع توقيعات مثلا اسم الشخص ووظيفته لما جئت اعملها بتذبيل الصغحة بيعظى رسالة بان اقصى عدد للحروف 255 حرف فها هناك حل

 

[Ali Mohamed Ali]

طالما انك لم تقم برفع ملف وتوضيح المطلوب

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

Sub MyFooter()
    Dim xTxt As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCell As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
        For Each xCell In xRg
            xTxt = xTxt & xCell.Value & " "
        Next
        ActiveSheet.PageSetup.LeftFooter = xTxt
    End Sub

 

[hitech]

استاذ على شكرا جزيلا لحضرتك الكود ده يتحط فين

[Ali Mohamed Ali]

يوضع فى موديول جديد كما بالصورة وكان من البداية والأفضل دائما ان تضع وترفع فى المشاركة ملف تجنبا لسهولة المساعدة وعدم اهدار الوقت

 

 

 

[hitech]

جطيته استاذ على معلش انا لسه بادى فى الاكسيل وبعدين التوقيعات تتحط فين والف شكر لحضرتك على تعبك معايا

[Ali Mohamed Ali]

عليك بوضع زر وتفعيله مع الكود

وعندما يتم التفعيل سيظهر لك رسالة يتم بها تحديد الخلايا الموجود بها التوقيعات كما ترى بالصورة

 

 

 

 

[hitech]

تمام عاملته بس عندى مشكلة عاوز التوقيعات تكون متوزعة على حواف الصفحة وليس على الجنب اليسار والف شكر لحضرتك اخى الحبيب

 

تم تعديل ديسمبر 15, 2018 بواسطه hitech