[حل شده] حذف عناوین سطر ه و ستونهای اکسل !

[Skynet]

با سلام و احترام خدمت عزیزان
سوالم چون مربوطه به تنظیمات هست در این بخش بیان می کنم ، چطور می شه عنواین ستون ها و ردیف های اکسل رو پاک کرد بطوریکه دیگر قادر به انتخاب سلول خارج از محدوده تعیین شده نباشیم ؟!
مانند مثال زیر : در پست جناب نیما:

http://forum.exceliran.com/showthread.php/2630-%D9%87%D8%A7%DB%8C%D9%84%D8%A7%DB%8C%D8%AA-%D8%B4%D8%AF%D9%86-%D8%B3%D8%B7%D8%B1-%D9%88-%D8%B3%D8%AA%D9%88%D9%86-%D8%A8%D8%A7-%D8%A7%D9%86%D8%AA%D8%AE%D8%A7%D8%A8-%D8%B3%D9%84%D9%88%D9%84?p=55853#post55853

[Amir Ghasemiyan]

دوست عزیز این سطر ها و ستون ها مخفی شدن
کافیه شما اولین ستونی که نمیخواید دیده بشه انتخاب کنید و کلید ترکیبی شیفت+کنترل+فلش به سمت انتهای شیت رو بگیرید تا همه ستون ها انتخاب بشن بعد راست کلیک و گزینه hide رو بزنین
برای سطرها هم همین عملیات رو انجام بدین

[Skynet]

دوست عزیز این سطر ها و ستون ها مخفی شدن
کافیه شما اولین ستونی که نمیخواید دیده بشه انتخاب کنید و کلید ترکیبی شیفت+کنترل+فلش به سمت انتهای شیت رو بگیرید تا همه ستون ها انتخاب بشن بعد راست کلیک و گزینه hide رو بزنین
برای سطرها هم همین عملیات رو انجام بدین

خیلی خیلی ممنونم بسیار عالییی

Sent from my D5803 using Tapatalk

[Skynet]

دوست عزیز این سطر ها و ستون ها مخفی شدن
کافیه شما اولین ستونی که نمیخواید دیده بشه انتخاب کنید و کلید ترکیبی شیفت+کنترل+فلش به سمت انتهای شیت رو بگیرید تا همه ستون ها انتخاب بشن بعد راست کلیک و گزینه hide رو بزنین
برای سطرها هم همین عملیات رو انجام بدین

جناب قاسمیان یک سوال!
میشه یک ماکرویی بنویسیم که که آخرین سطر و آخرین سلولی که شامل مقادیر هست رو شناسایی کنه و بعد از گذشتن از چند سلول، سطر و ستون های مابقی رو به این صورت Hide کنه ؟

[Amir Ghasemiyan]

جناب قاسمیان یک سوال!
میشه یک ماکرویی بنویسیم که که آخرین سطر و آخرین سلولی که شامل مقادیر هست رو شناسایی کنه و بعد از گذشتن از چند سلول، سطر و ستون های مابقی رو به این صورت Hide کنه ؟

بله چرا که نه. VBA تقریبا هر کاری براتون میکنه

Sub Hide_Rows_Columns()
    Lrow = Range("A1").SpecialCells(xlLastCell).Row
    Lcol = Range("A1").SpecialCells(xlLastCell).Column
    Range(Columns(Lcol + 1), Columns(Lcol + 1).End(xlToRight)).EntireColumn.Hidden = True
    Range(Rows(Lrow + 1), Rows(Lrow + 1).End(xlDown)).EntireRow.Hidden = True
End Sub

[Skynet]

بله چرا که نه. VBA تقریبا هر کاری براتون میکنه

Sub Hide_Rows_Columns()
    Lrow = Range("A1").SpecialCells(xlLastCell).Row
    Lcol = Range("A1").SpecialCells(xlLastCell).Column
    Range(Columns(Lcol + 1), Columns(Lcol + 1).End(xlToRight)).EntireColumn.Hidden = True
    Range(Rows(Lrow + 1), Rows(Lrow + 1).End(xlDown)).EntireRow.Hidden = True
End Sub

مرسییی جناب قاسمیان عزیز ، عالی بودددددد مرسیییی برام کاربرد زیادی داره