根據Excel中的“下拉列表”隱藏行

Question

這基本上是一個郵件模板，包含3種不同類型的內容。
我有一個帶有組合框列表的excel表。 該列表具有值1,2和3.以及3種不同類型的內容。 當選擇其中任何一個時。 其余內容必須隱藏。

Answer 1

假設您在Range("A1")具有不同選項的驗證選項（在我的示例中為1-3）。 在相應的Sheet模塊中，輸入以下代碼並根據需要進行更改。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim rngOpt1 As Range
Dim rngOpt2 As Range
Dim rngOpt3 As Range
'you doesn't need to put rows references here
'as we deal with it later
    Set rngOpt1 = Range("b10:c15")   'first area to be hidden
    Set rngOpt2 = Range("d16:e20")   'second...
    Set rngOpt3 = Range("f21:g25")   'you can guess
If Range("A1") = 1 Then 'your validation cell
    rngOpt1.EntireRow.Hidden = False
    rngOpt2.EntireRow.Hidden = True
    rngOpt2.EntireRow.Hidden = True
ElseIf Range("A1") = 2 Then
    rngOpt1.EntireRow.Hidden = True
    rngOpt2.EntireRow.Hidden = False
    rngOpt2.EntireRow.Hidden = True
Else
    'you can do it on you own... :)
End If
End If
End Sub

每次更改A1中的值時，都會隱藏相應的行范圍。 我並不為它的效率感到特別自豪，但這是我的第一個想法。