根據輸入值顯示/隱藏列

Question

我有一個輸入表「Sheet I」，輸入單元格：C3，輸入值將爲整數，例如1,2,3 ...。 輸出表爲「輸出1」，「輸出2」，「輸出3」，...「輸出10」。某些輸出頁包含從A2到G36的內容，而其他輸出頁包含從A2到H36或T36的信息。理想情況下，我希望看到列（從列C開始）有條件地基於表單I中$ C $ 3的值。這裏是邏輯：

• 如果輸入值= 1，則顯示列A，列B和C列
• 如果輸入值= 2，顯示列A，列B和列d
• 如果輸入值= 6，顯示列A，列B和H列
• .....

現在我有這個VBA，但是這個代碼中的輸入值是靜態的nu MBER。任何人都可以建議我應該如何更改代碼才能使其工作？

Private Sub Workbook_SheetCalculate(ByVal Sh As Object) 
Dim ShArray 
Dim i 
Dim MyRange, c As Range 

Application.ScreenUpdating = False 
Application.EnableEvents = False 
ShArray = Array("Out 1", "Out 2", "Out 3", "Out 4", "Out 5",.. "Out 10") 
For i = LBound(ShArray) To UBound(ShArray) 
    Set MyRange = Sheets(ShArray(i)).Range("A:T") 
    For Each c In MyRange 
     Sheets(ShArray(i)).Rows(c.Column).Hidden = c.Value = "??" 
    Next c 
Next i 
Application.EnableEvents = True 
Application.ScreenUpdating = True 
End Sub 

Answer 1

不太確定這是你在找什麼，但你應該試試這個。