UC知道vba编程的一道题目。。。
来源：百度知道 编辑：UC知道 时间：2024/05/17 10:26:56
2、 作图题
1 2 3 4 5 6 7 8 9 10 11 12
A 34.92% 62.19% 85.70% 30.37% 78.83% 45.86% 79.92% 76.86% 24.72% 40.13% 3.69% 60.75%
B 55.19% 8.58% 53.72% 75.40% 52.41% 84.68% 71.65% 63.29% 15.47% 59.41% 66.08% 47.19%
C 75.77% 22.22% 99.67% 85.71% 7.37% 43.53% 35.41% 52.43% 64.82% 47.33% 15.25% 20.89%
D 58.28% 46.18% 53.31% 62.22% 40.10% 12.44% 57.49% 70.36% 68.42% 11.92% 23.96% 87.79%
请作出柱形图，使图表与选项关联，即选择A，B，C，D时可以使图表产生相应的数据
1 2 3 4 5 6 7 8 9 10 11 12
A 34.92% 62.19% 85.70% 30.37% 78.83% 45.86% 79.92% 76.86% 24.72% 40.13% 3.69% 60.75%
B 55.19% 8.58% 53.72% 75.40% 52.41% 84.68% 71.65% 63.29% 15.47% 59.41% 66.08% 47.19%
C 75.77% 22.22% 99.67% 85.71% 7.37% 43.53% 35.41% 52.43% 64.82% 47.33% 15.25% 20.89%
D 58.28% 46.18% 53.31% 62.22% 40.10% 12.44% 57.49% 70.36% 68.42% 11.92% 23.96% 87.79%
请作出柱形图，使图表与选项关联，即选择A，B，C，D时可以使图表产生相应的数据
一、做图表代码：
A行图表：
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:M1,A2:M2")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
B行图表：
代码同上，只需要换成"A1:M1,A3:M3"
C行图表：
代码同上，只需要换成"A1:M1,A4:M4"
D行图表：
代码同上，只需要换成"A1:M1,A5:M5"
这样就一次生成4个图表重叠在一起
二、以选A行为例
ActiveSheet.ChartObjects("图表 1").Visible = True
ActiveSheet.ChartObjects("图表 2").Visible = False
ActiveSheet.ChartObjects("图表 3").Visible = False
ActiveSheet.ChartObjects("图表 4").Visible = False
就是把图表1显示出来，把其它3个隐藏掉