根據單元格值取消隱藏Excel行

Question

我試圖在Excel 2011 For Mac上編寫VBA腳本，但取得的成功有限。

根據單元格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.

...依此類推，最大A1值為8。

A1中的值使用數據驗證來從工作表上其他位置的列表中查找。

謝謝！

Answer 1

如果您說B, C, D ，似乎是說Columns而不是Rows 。

您可以使用此：

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

Answer 2

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，依此類推，等等

編輯：

根據您的評論，也許像這樣會更好

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