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

[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