[حل شده] مخفی کردن شیت مورد نیاز

[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]

تشکر فراوان