Unhide Excel Строки на основе значения ячейки

Question

Я пытаюсь написать сценарий VBA в Excel 2011 для Mac и с ограниченным успехом.

В зависимости от значения в ячейке A1 сценарий должен отображать строки ниже.

If A1 = 1, it needs to unhide row B. 
If A1 = 2, it needs to unhide rows B and C. 
If A1 = 3, it needs to unhide rows B, C and D. 

... и так далее, вплоть до максимального значения А1 8.

значения в проверке данных используют A1 следует искать вверх из списка в другом месте на листе.

Спасибо!

Answer 1

Select Case Range("A1").Value 

    Case 1 
     Range("A2").EntireRow.hidden = false  
    Case 2 
     Range("A2,A3").EntireRow.hidden = false 

    '... 

    Case Else 
     MsgBox("Invalid number in cell A1") 

End Select 

в этом случае A2 будет относиться к строке 2, A2, A3 будет 2 и 3 и т.д. и т.п.

EDIT:

за ваш комментарий, возможно, что-то вроде этого было бы лучше

Dim rng as Range 
Dim val as Integer 

val = Range("AE25").Value 
if (val >= 1) then 
    set rng = Range("A26:A27").Resize(val,0) 
    rng.EntireRow.Hidden = false 
end if 

Answer 2

Если вы говорите B, C, D, кажется, вы имеете в виду столбцы, не Строки ,

Вы можете использовать это:

Range("B1").Resize(1, Range("A1")).EntireColumn.Hidden = False