از حالت مخفي در اوردن سطر وستونهاي دلخواه درا كسل

[alitaheri]

من در اكسل چند سطر را به طور كامل وهمزمان انتخاب ميكنم مثلا از سطر 5 تا 500 بعدروي يكي از انها كليك راست ميكنم ودكمه hideرا ميزنم اين سطرها مخفي ميشوند حالا ميخوام فقط سطر 6 را از مخفي شدن خارج كنم وبقيه مخفي بمونم ايا راهي هست كه بقيه سطرها درحالت مخفي باشند ويا روشي هست كه مثلا من سطر 100 تا 200 را از حالا مخفي شدن خارج كنم وبقيه مخفي بن؟اخه وقتي بين سطر 6 تا 500 كه در حالت مخفي هستن دستور UNHIDE را ميزنم همه سطرها از حالت مخفي در ميان من ميخوام مثلا فقط سطر 20 تا 30 را از حالت هايد خارج كنم

[khakzad]

سلام
از طریق کد می تونید انجام بدید
ردیف هایی رو که می خواید unhide کنید رو از طریق یک inputbox بگیرید.بعد هم کد زیر:

Rows("11:13").Select  
  Selection.EntireRow.Hidden = False 

[ali.b]

مخفی کردن یا از حالت مخفی در اوردن سلول

سلام
من سک فایل اکسل دارم که سلول های زیادی از اون در بعضی از اوقات باید مخفی بشه یا فعال بشه
میشه کدی نوشت که با وارد کردن شماره ردیف ها، اونها مخفی یا از حالت مخفی بیان بیرون

[alitaheri]

يعني بايد برنامه بنويسم توي اكسل .من برنامه نويسي وكدنويسي كار نكردم

[alitaheri]

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

[khakzad]

والا کد همونه که گذاشتم
اول ورودی input رو بریزید توی متغیر
بجای عدد داخل پرانتز باید ورودی inputbox رو قرار بدید
حله
تالار ویژوال بیسیک رو هم بررسی کنید واسه hnputbox

[امين اسماعيلي]

با درود
با اجازه از سر کار خانم خاکزاد عزیز
دوست عزیز کد زیر رو برای یه کلید بنویس . این کد ردیف های بین دو محدوده رو اگر هاید باشن از هاید در میاره. حالا خودت بهره بگیر حالت کاملی رو من نوشتم. میشه تک تک هم وارد بشه . حالا بقیش با خودت

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Dim amin As String
Dim a As String
Dim b As String
amin = InputBox("enter your number to hide and separate them with - like 11-13", "unhide row")
a = Mid(amin, 1, Application.WorksheetFunction.Find("-", amin, 1) - 1)
b  = Mid(amin, Application.WorksheetFunction.Find("-", amin, 1) + 1,  Len(amin) - Application.WorksheetFunction.Find("-", amin, 1))
For i = a To b
Rows(i).Select
Selection.EntireRow.Hidden = False
Next i
Application.ScreenUpdating = True
End Sub

[misammisam]

يعني بايد برنامه بنويسم توي اكسل .من برنامه نويسي وكدنويسي كار نكردم

سلام

اگه نميتونيد از برنامه نويسي استفاده كنيد ،*شما ميتونيد از گزينه data / Group and outline خود اكسل استفاده كنيد . با گزينه هاي اين ابزار كه در خود اكسل وجود داره ميتونيد با كمي دقت بخوبي سطرها و ستونهاي خود را hide و مديريت كنيد .

[علی فاطمی]

با سلام و عرض خسته نباشید
سوال من به این تالار ربط نداشت ولی چون بی ربط با این تاپیک نبود همین جا مطرحش میکنم ( توضیح قبل از تذکر آیین نامه ای مدیران محترم )

برای hidden کردن ردیف ها از کد زیر میشه استفاده کرد :

Sheet2. Rows.EntireRow.Hidden = True

و برای un hidden ردیف های دلخواه ( مثلا ردیف های 1 تا 10 ) هم از کد زیر میشه استفاده کرد :

Sheet2.Range("1:10").Rows.EntireRow.Hidden = False

برای hidden کردن ستون ها از کد زیر میشه استفاده کرد :

Sheet2.Columns.EntireColumn.Hidden = True

ولی برای un hidden ستون های دلخواه ؟؟؟؟؟ تمام بعدازظهر رو سعی و خطا کردم ولی نشد.

ممنون میشم راهنمایی بفرمائید.

[Amir Ghasemiyan]

با سلام و عرض خسته نباشید
سوال من به این تالار ربط نداشت ولی چون بی ربط با این تاپیک نبود همین جا مطرحش میکنم ( توضیح قبل از تذکر آیین نامه ای مدیران محترم )

برای hidden کردن ردیف ها از کد زیر میشه استفاده کرد :

Sheet2. Rows.EntireRow.Hidden = True

و برای un hidden ردیف های دلخواه ( مثلا ردیف های 1 تا 10 ) هم از کد زیر میشه استفاده کرد :

Sheet2.Range("1:10").Rows.EntireRow.Hidden = False

برای hidden کردن ستون ها از کد زیر میشه استفاده کرد :

Sheet2.Columns.EntireColumn.Hidden = True

ولی برای un hidden ستون های دلخواه ؟؟؟؟؟ تمام بعدازظهر رو سعی و خطا کردم ولی نشد.

ممنون میشم راهنمایی بفرمائید.

هر وقت گير كردين يك ماكرو ضبط كنين خيلي بهتون كمك ميكنه.
براي ستون هاي دلخواه: true براي hide كردن و false براي unhide كردن

Sheet1.Columns("A:D").Columns.EntireColumn.Hidden = True

[علی فاطمی]

هر وقت گير كردين يك ماكرو ضبط كنين خيلي بهتون كمك ميكنه.
براي ستون هاي دلخواه: true براي hide كردن و false براي unhide كردن

Sheet1.Columns("A:D").Columns.EntireColumn.Hidden = True

با سلام
بسیار سپاسگذارم