[حل شده] حذف نمودن بقيه جاهاي غير از جدول

[mostafa_s]

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

[mobinsaffarpour]

با سلام
برای این کار 2 راه حل وجود داره :

1 - وارد منو View بشید، سپس از تب Show/Hide تیک Gridlines رو بردارید. ( تمامی خطوط ما بین جداول در کل شیت برداشته می شود )

2 - ستونها یا ردیف های اضافی رو انتخاب کنید. سپس از منو بازشده Hide رو انتخاب کنید ( تمامی موارد انتخابی اعم از ستون یا ردیف پنهان می شوند )

[amir_ts]

با سلام
از کلید ctrl+shift+کلید های جهت نما برای انتخاب محدوده و بعد کلیک راست و گزینه hide رو بزنید.

[mostafa_s]

ممنونم از جواب دوستان عزيز

[mobinsaffarpour]

جهت درج شماره صفحه نیز از مسیر زیر استفاده کنید :

وارد منوی Page Layout بشید، بعدش از تب Page Setup گزینه Print Titles رو انتخاب کنید. در فرم بازشده وارد تب Header/Footer بشید. روی دکمه Custom Footer کلیک کنید.

Right Section : درج اطلاعات در سمت راست صفحه
Center Section : درج اطلاعات در وسط صفحه
Left Section : درج اطلاعات در سمت چپ صفحه

بعد وارد هر کدوم از قسمت ها که شدید دکمه Insert Page Number رو بزنید. تا شماره صفحه برای شما درج بشه.

[mobinsaffarpour]

آقا مصطفی عزیز لطفاً بجای تشکر کردن بصورت نوشتاری از تشکر خود پست استفاده کنید.

[a.dal65]

اکه بخواید هر چی shape پاک کنید
f5 بزنید
بعد Special و گزینه Object و بعد همه اتخاب میشه و delete

[a.dal65]

این هم برای یک رنج خاص :

Sub x()

Dim s As Shape

For Each s In ActiveSheet.Shapes
    If Not Intersect(Range("AF15:AF25"), s.TopLeftCell) Is Nothing And _
       Not Intersect(Range("AF15:AF25"), s.BottomRightCell) Is Nothing Then
        s.Delete
    End If
Next s

End Sub