excel - 根据单元格值取消隐藏 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