请教斑竹隐藏图做法

yangnm · 发表于 2004-9-12 23:02

0hr42rrs.rar (7.21 KB, 下载次数: 97) 以下隐藏图如何操作,请斑竹赐教！

telson · 发表于 2004-10-8 14:34

tyangnm 呵呵大哥，能不能把你做的表格的步骤给小弟详细的介绍一下啊

这样的表格我也十分想做，水平太菜，只能慢慢学习啊，能发到我的邮箱么？

谢谢了先~！telson_ldq@eyou.com

telson · 发表于 2004-10-8 17:28

楼上的gg是什么专业毕业的阿这么厉害~~~~小弟pfpf阿~~！！

天啦地呀 · 发表于 2004-10-10 14:59

不行了，我要去找个“网文快捕”之类的软件来，好文章实在是太多了

fieldsun · 发表于 2004-10-8 14:54

看看文件中的代码:

Private Sub Worksheet_Change(ByVal Target As Range) '工作表数据变动执行此程序 If Target.Address = "$B$2" Then '如果变动的单元格地址是B2则执行END IF之前的代码 ActiveSheet.ChartObjects.Visible = False '所有图表对象Visible属性均设为隐藏 On Error Resume Next ChartObjects(Target.Value).Visible = True '根据B2的值决定显示对应一个图表 End If End Sub

一意孤行 · 发表于 2004-9-13 00:02

他们是互相独立的5个图表。

改变单元格B2的值，会使对应的图表可见性=TRUE

具体vba代码按alt+F11可以看到。

		自动登录	找回密码
密码			免费注册