مخفی کردن شیت مورد نیاز

[razemana]

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

[Amir Ghasemiyan]

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

سلام دوست عزيز
درخواستي كه شما داريد فقط با كدنويسي VBA قابل انجامه
براي همين من يك كد نوشتم اميدوارم مفيد باشه
شما بايد اين كدها رو در قسمت كدهاي شيت input قرار بديد



Sub DropDown1_Change()
dd = Range("F1").Value
all = Array()
fani = Array(Sheet2, Sheet3, Sheet4)
khadamat = Array(Sheet5, Sheet6, Sheet7)
barnamerizi = Array(Sheet8, Sheet9, Sheet10, Sheet11, Sheet12)
shahrsazi = Array(Sheet13, Sheet14)
Select Case dd
Case 1
hide_sheets all
Case 2
hide_sheets fani
Case 3
hide_sheets khadamat
Case 4
hide_sheets barnamerizi
Case 5
hide_sheets shahrsazi
End Select
Sheets("input").Activate
End Sub

Function hide_sheets(sheet_array)
Dim sh As Worksheet, sht As Worksheet, shet
For Each sht In ThisWorkbook.Sheets
If UBound(sheet_array) = -1 Or sht.Name = "input" Then
sht.Visible = xlSheetVisible
Else
sht.Visible = xlSheetHidden
End If
Next sht
For Each shet In sheet_array
Set sh = shet
sh.Visible = xlSheetVisible
Next shet
End Function

[razemana]

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

[Amir Ghasemiyan]

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

سلام دوست عزيز
لطفا فايل پيوست رو مشاهده بفرماييد

[razemana]

تشکر فراوان