Question

如何用VB让excel我做的五个表格依次隐藏和显示

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$8" And Target = "0" Then ActiveSheet.Shapes("Chart 4").Visible = True
If Target.Address = "$J$8" And Target = "0" Then ActiveSheet.Shapes("Chart 5").Visible = False
If Target.Address = "$J$8" And Target = "0" Then ActiveSheet.Shapes("Chart 6").Visible = False
If Target.Address = "$J$8" And Target = "0" Then ActiveSheet.Shapes("Chart 7").Visible = False
If Target.Address = "$J$8" And Target = "0" Then ActiveSheet.Shapes("Chart 8").Visible = False
If Target.Address = "$J$8" And Target = "1" Then ActiveSheet.Shapes("Chart 4").Visible = False
If Target.Address = "$J$8" And Target = "1" Then ActiveSheet.Shapes("Chart 5").Visible = Ture
If Target.Address = "$J$8" And Target = "1" Then ActiveSheet.Shapes("Chart 6").Visible = False
If Target.Address = "$J$8" And Target = "1" Then ActiveSheet.Shapes("Chart 7").Visible = False
If Target.Address = "$J$8" And Target = "1" Then ActiveSheet.Shapes("Chart 8").Visible = False
If Target.Address = "$J$8" And Target = "2" Then ActiveSheet.Shapes("Chart 4").Visible = False
If Target.Address = "$J$8" And Target = "2" Then ActiveSheet.Shapes("Chart 5").Visible = False
If Target.Address = "$J$8" And Target = "2" Then ActiveSheet.Shapes("Chart 6").Visible = Ture
If Target.Address = "$J$8" And Target = "2" Then ActiveSheet.Shapes("Chart 7").Visible = False
If Target.Address = "$J$8" And Target = "2" Then ActiveSheet.Shapes("Chart 8").Visible = False
这是我看了网上攻略写的，别笑话我，刚学。。。真的不太会
If Target.Address = "$J$8" And Target = "3" Then ActiveSheet.Shapes("Chart 4").Visible = False
If Target.Address = "$J$8" And Target = "3" Then ActiveSheet.Shapes("Chart 5").Visible = False
If Target.Address = "$J$8" And Target = "3" Then ActiveSheet.Shapes("Chart 6").Visible = False
If Target.Address = "$J$8" And Target = "3" Then ActiveSheet.Shapes("Chart 7").Visible = Ture
If Target.Address = "$J$8" And Target = "3" Then ActiveSheet.Shapes("Chart 8").Visible = False
If Target.Address = "$J$8" And Target = "4" Then ActiveSheet.Shapes("Chart 4").Visible = False
If Target.Address = "$J$8" And Target = "4" Then ActiveSheet.Shapes("Chart 5").Visible = False
If Target.Address = "$J$8" And Target = "4" Then ActiveSheet.Shapes("Chart 6").Visible = False
If Target.Address = "$J$8" And Target = "4" Then ActiveSheet.Shapes("Chart 7").Visible = False
If Target.Address = "$J$8" And Target = "4" Then ActiveSheet.Shapes("Chart 8").Visible = Ture

End Sub

Answer 1

添加一个按钮吧，
选菜单：视图》工具栏》控件工具箱
点左上角的 三角尺＋直尺＋笔 的图标，进入设计模式
点“命令按钮”（就是刚才按钮的对下3个，一个按钮模样的键）
在工作表某个位置，如a1单元格上画一个长方形，得到按钮。
选“按钮”点右键，在右键菜单中选“查看代码”
在出现的visual basic 编辑器窗口，右边的代码
Private Sub CommandButton1_Click()

End Sub
在上面两行代码的中间粘贴下面的代码：

If Columns("B:D").EntireColumn.Hidden = False Then
Columns("B:D").EntireColumn.Hidden = True
Else
Columns("B:d").EntireColumn.Hidden = False
End If
Range("A2").Select

返回工作表，点“三角尺”按钮，退出设计模式。

点按钮。
OK。

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
n = ActiveSheet.Shapes.Count
m = ActiveSheet.Range("j8")
For j = 1 To n
If j = m + 1 Then
ActiveSheet.Shapes(j).Visible = True
Else
ActiveSheet.Shapes(j).Visible = False
End If
Next
End Sub