根据单元格数值控制excel中图表的显示个数

在附件excel工作薄的工作表中，一共有四个柱状图，按插入顺序，分别取名为：图表1，图表2，图表3，图表四。
现要求在e1单元格中输入1，只显示图表1，输入2，显示图表1和2，输入3，显示图表1，2，3。输入4，显示图表1，2，3，4.
输入其他数值，不显示。

根据单元格数值控制工作表中显示的图表个数.rar (42.41 KB, 下载次数: 338)

2015-2-4 08:28 上传

点击文件名下载附件

用到的vba代码如下：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. Dim Mych As ChartObject     '声明变量为嵌入式图表对象
   
4. 
   
5. line1:
   
6. m = Range("E1").Value       '需要显示的图表数
   
7. 
   
8. n = Range("E2").Value
   
9. 
   
10. p = ActiveSheet.ChartObjects.Count    '本工作表中一共有的图表个数
    
11. 
    
12. If n <> p Then
    
13. Range("E2").Value = p
    
14. End If
    
15. 
    
16. 
    
17. 
    
18. 
    
19. If m > p Then
    
20.   MsgBox "需要显示的图表个数超过本工作表一共的图表数，应当填小于等于" & p & "的数！"
    
21.   Range("E1").Value = p
    
22.   GoTo line1
    
23. End If
    
24. 
    
25. 
    
26. For i = 1 To p
    
27. 
    
28. Set Mych = ActiveSheet.ChartObjects(i)     '设置对象
    
29. 
    
30. 
    
31. If i <= m And m <= p Then
    
32. 
    
33. Mych.Visible = True
    
34. 
    
35. Else
    
36. 
    
37. Mych.Visible = False
    
38. 
    
39. End If
    
40. 
    
41. Next
    
42. 
    
43. 
    
44. End Sub
    

复制代码