指定单元格里面的，内容发生变化，触发事件，调用VBA代码。

通过改变一个单元格的内容，出发一个事件，根据改变的内容，进行相应的处理。

具体内容是，有一个单元个，里面的内容可以选择，分别是”1 选择；2填空；3读程序；4写代码“

这里，实现的功能是，选择部分的列

（注：也就是选择题时，会有四个选项，所占的4列，填空题时，不需要这4列）

当题型"1选择"被选中时，显示，没有被选中时，隐藏

这里面需要学习的是对这种事件接收的处理的写法。

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$E$1" Then If Range("E1").Value = "1 選択" Then Rows("4:7").Select Range("B4").Activate Selection.EntireRow.Hidden = False End If If Range("E1").Value <> "1 選択" Then Rows("4:7").Select Range("B4").Activate Selection.EntireRow.Hidden = True End If

End If Application.EnableEvents = TrueEnd Sub穿别人的鞋，走自己的路，让别追去吧

相关文章：

你感兴趣的文章：

标签云：