کد:
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
علاقه مندی ها (Bookmarks)