如何取消隐藏数字基于一个数字在另一个工作表中的单元格？

嗨在那里我想要隐藏表格2中单元格中input的单元格中的单元格中的单元格

我曾经尝试过：

Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False 'This is were im stuck? If Target.Address = "Sheet1!$D$387" Then Rows("28:46").Hidden = True Rows("28:" & 28 + Val(Target.Value)).Hidden = False Application.ScreenUpdating = True End If End Sub 

在Sheet 1中访问D387的值是什么macros？

Answer 1

这是我自己的解决scheme，在Larry的帮助下（对这个问题的第一个评论）

该代码将进入Sheet1的模块（如Larry所build议的）：

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$387" Then Sheet2.Rows("27:46").Hidden = True Sheet2.Rows("27:" & 27 + Val(Target.Value)).Hidden = False Application.ScreenUpdating = True End If End Sub 

我最初把它放到Sheet2的模块中