使用VBA基于不同工作表中的单元格值隐藏工作表中的行

Question

我正在尝试隐藏名为＆＃34; RS＆＃34;的工作表的第24到26行。如果工作表的单元格H37的值称为＆＃34;计算表＆＃34;低于15,000

我试图在VBA中使用/组合公式，因为我个人曾经亲自使用过。在这个论坛上，但它没有奏效。我对if函数不太确定。

提前感谢您的帮助。 ABS

Answer 1

如果你在{＆n; 34;计算字段＆＃34}上H37不需要任何事情，那么这样的事情就应该这样做。 sheet> = 15,000

Sub test()

If Sheets("calculation sheet").Range("H37").Value < 15000 Then

Sheets("RS").Rows("24:26").EntireRow.Hidden = True

End If

End Sub

Answer 2

将此代码放入“计算表”的Worksheet模块中。

每次在计算表上进行计算时，都会触发此代码。

Private Sub Worksheet_Calculate()

    Worksheets("RS").Rows("24:26").EntireRow.Hidden = Me.Range("H37").Value < 15000

End Sub