با سلام ،با توجه به لیست که پنج مورد است من برای هر مورد، شیت های مربوطه رو رنگ کردم(چهار نوع رنگ) میخوام کاری کنم که با انتخاب هر مورد مابقی شیت ها مخفی شود و در صورتیکه گزینه همه انتخاب شود تمامی شیت ها نمایش داده شود.تشکر
مخفی کردن شیت مورد نیاز
Collapse
این تاپیک قفل است.
X
X
-
سلام دوست عزيز
درخواستي كه شما داريد فقط با كدنويسي 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
Last edited by Amir Ghasemiyan; 2018/02/07, 08:24. -
لطفا فايل پيوست رو مشاهده بفرماييدفایل های پیوست شدهکامنت
کامنت