直接举例:如何在一个主界面表中,列出工作表的名称,在工作表后面,画上勾就显示,否则隐藏该表。
效果如下:
下面教大家实现此功能的小技巧。
第1步:添加主界面工作表。
- 首先添加一个名称是“主面界”的工作表。
- C列为工作表名称
- 在D列设置数据有效性下拉列表(依次点击:数据 - 有效性 -序列, 来源中输入 R,S),之后设置字体为 Wingdings 2,设置完成之后,效果如下:
第2步、添加代码
在工作表标签上,鼠标右键单击 - 查看代码,在打开的窗口中,鼠标双击工程窗口的“主面界”工作表,将以下代码粘贴至右侧窗口中。
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 And Target.Row > 2 And Target <> "" Then If Target.Value = "R" Then Sheets(Cell, 3).Value).Visible = -1 Else Sheets(Cell, 3).Value).Visible = 0 End If End IfEnd Sub
第3步、修改文件类型
选择文件 - 另存为,类型选择 Excel 启用宏的工作簿,点击保存。
即可搞定!