دستور مخفی کردن sheet در VB

**Amir Ghasemiyan** · 2016/06/27, 12:54

سلام دوست عزیز
یک قاعده کلی رو همیشه تو ذهنتون داشته باشید. وقتی یک کار مشابهی داره چندین بار تکرار میشه مطمئن باشید یک حلقه میشه جایگزین تکرار کرد

این یک نمونه کد خدمت شما:

کد:

Sub HideSheets() Dim sht As Worksheet For Each sht In ActiveWorkbook.Worksheets If sht.Name <> "Sheet2" Then sht.Visible = False Next sht End Sub

**Amir Ghasemiyan** · 2016/06/27, 13:04

من الان دقت کردم دیدم شما چند تا شیت رو ویزیبل کردین چندتا رو اینویزیبل
برای اینکار من کد زیر رو پیشنهاد میدم:

کد:

Sub HideSheets() Dim sht As Worksheet For Each sht In ActiveWorkbook.Worksheets visibles = Array("sheet1", "sheet2") If IsError(Application.Match(sht.Name, visibles, False)) Then sht.Visible = xlSheetHidden Else sht.Visible = xlSheetVisible End If Next sht End Sub

**2009tv** · 2016/06/27, 14:02

عالی و آموزنده بود!

اما دستور عنوان شده دوم برای من خطا میدهد:
آیا تابع شرط را می توان بصورتی ساده تر نوشت که نسبت به حالات خاص کمتر حساس باشه!

ممنونم. مثل همیشه برادرانه و مانند یه استاد راهنمایی ام کردید.
در پناه خدا

**Amir Ghasemiyan** · 2016/06/27, 14:11

خواهش میکنم
حل کردن تاپیک یادتون نره

**2009tv** · 2016/06/27, 14:36

میشه لطف کنید راهنمایی کنید که تابع شرط را کمی ساده تر و یا بشکلی دیگر بنویسم که خطا ندهد چون این دستور برای من خطا میدهد.
(مثلاً تابع شرط عنوان کند اگر نام شیت ها شامل نام های موجود در آرایه بود، آشکار شوند و در غیر اینصورت مخفی شوند)

**Amir Ghasemiyan** · 2016/06/27, 15:20

نوشته اصلی توسط 2009tv

میشه لطف کنید راهنمایی کنید که تابع شرط را کمی ساده تر و یا بشکلی دیگر بنویسم که خطا ندهد چون این دستور برای من خطا میدهد.
(مثلاً تابع شرط عنوان کند اگر نام شیت ها شامل نام های موجود در آرایه بود، آشکار شوند و در غیر اینصورت مخفی شوند)

چه خطایی دریافت میکنین دوست عزیز؟
الان شرطی که نوشتم دقیقا همین چیزی که شما گفتین رو بررسی میکنه

بجای تابع MATCH که گذاشتم میتونین اینطوری هم استفاده کنید:

کد:

Sub HideSheets() Dim sht As Worksheet For Each sht In ActiveWorkbook.Worksheets visibles = Array("Sheet1", "Sheet2") If UBound(Filter(visibles, sht.Name)) < 0 Then sht.Visible = xlSheetHidden Else sht.Visible = xlSheetVisible End If Next sht End Sub

**2009tv** · 2016/06/27, 16:07

دوباره اخطار داد فکر کنم مشکل از فایل خودم است.
حال می خواهم دستور را بصورتی ساده تر بنویسم.
مثلاً اینطوری دستور را به vb معرفی کنم:
x شامل تمام شیت ها
y آرایه ای شامل نام چند شیت (مثلاً "sheet7", "sheet3", "sheet4", "sheet5", "sheet1" )
z شامل تمام شیط های x به غیر از شیط های عنوان شده در y
حالا دستور وارد کنیم:
y.Visible = xlSheetVisible
z.Visible = xlSheetHidden
اگر امکانش هست برای همچین دستوری راهنماییم کنید! (البته میدونم خیلی سطحی و ساده است)
*متاسفم برای یک سوال خیلی وقتتان را گرفتم*
در ضمن نگفتید خلاصه کردن دستورات آیا تاثیری در سرعت دارد؟ (مثلاً همین دستور)
ممنونم

**Amir Ghasemiyan** · 2016/06/27, 18:16

نوشته اصلی توسط 2009tv

دوباره اخطار داد فکر کنم مشکل از فایل خودم است.
حال می خواهم دستور را بصورتی ساده تر بنویسم.
مثلاً اینطوری دستور را به vb معرفی کنم:
x شامل تمام شیت ها
y آرایه ای شامل نام چند شیت (مثلاً "sheet7", "sheet3", "sheet4", "sheet5", "sheet1" )
z شامل تمام شیط های x به غیر از شیط های عنوان شده در y
حالا دستور وارد کنیم:
y.Visible = xlSheetVisible
z.Visible = xlSheetHidden
اگر امکانش هست برای همچین دستوری راهنماییم کنید! (البته میدونم خیلی سطحی و ساده است)
*متاسفم برای یک سوال خیلی وقتتان را گرفتم*
در ضمن نگفتید خلاصه کردن دستورات آیا تاثیری در سرعت دارد؟ (مثلاً همین دستور)
ممنونم

فایلتون رو اگه میتونین بذارین ببینم شاید مشکل از آفیستون باشه

این چیزی که شما میگین تصور شماست که ساده تره اما تفهیم این موضوع به اکسل کار رو فقط پیچیده میکنه. کدی که من نوشتم میگه همه شیت ها رو نگاه کن (x). اگر دیدی شیتی که داری بررسی میکنی جزو لیست ویزیبل من هست (y) ویزیبلش کن وگرنه مخفی کن. دیدین؟ اصلا نیاز به z نداریم

در مورد زمان چندین پارامتر هست. فقط کدها موثر نیستن. اما من فکر کنم بهتره ماهی گیری یادتون بدم
کد زیر مدت زمان اجرای کد رو براتون مشخص میکنه. بعد میتونین خودتون تشخیص بدین کدوم کد زمان بیشتری میبره کدوم کمتر

کد:

Sub HideSheets() Dim sht As Worksheet Dim StartTime, SecondsElapsed As Double 'Remember time when macro starts StartTime = Timer 'Your codes For Each sht In ActiveWorkbook.Worksheets visibles = Array("Sheet1", "Sheet2") If UBound(Filter(visibles, sht.Name)) < 0 Then sht.Visible = xlSheetHidden Else sht.Visible = xlSheetVisible End If Next sht 'Determine how many seconds code took to run SecondsElapsed = Round(Timer - StartTime, 2) 'Notify user in seconds MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation End Sub