2013-03-23 5 views
1

Это в основном почтовый шаблон, содержащий 3 разных типа контента.
У меня есть лист excel с списком со списком. Список имеет значения 1,2 и 3. & 3 различных типа контента для них. Если выбран любой из них. Остальное содержимое должно быть скрыто.Скрыть строки на основе списка выпадающих списков в Excel

ответ

3

Предполагая, что у вас есть опция проверки, установленная в Range("A1") с различными вариантами (1-3 в моем примере). В соответствующем модуле листа введите следующий код и измените его по мере необходимости.

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, соответствующий диапазон строк будет скрыт. Я не особо горжусь своей эффективностью, но это была моя первая идея.

+0

thanku для быстрого ответа и извинения за задержку, но можете ли вы, пожалуйста, направить меня, как я могу добавить это и где я могу его добавить. Пожалуйста, воздержитесь от меня, я не сделал этого раньше –

+0

Запустите Excel >> Alt + F11 >> проводник проекта слева >> найдите название своей книги >> рядом с ним найдите имя вашего листа и дважды щелкните по нему >> поместите мой код в открывшемся окне –

+0

Да, его работа ... И для If Range («A1») = 1 Затем ... как я должен использовать предложение вместо этого. «Я попробовал», но –

Смежные вопросы