这种交互的图表制作,如果不使用vba,必须使用辅助
以下的讲解,按你给出的图样来说的。
1、创建一个组合框,右键,设置控件格式,单元格区域,选中A2:A18,单元格链接,我们指定为E23吧。
2、A20单元格输入
=OFFSET($A$1,$E$19,COLUMN(A1)-1)
或者
=OFFSET($A$1,$E$23,0,1,13)
右拉到M20
3、插入图表,柱形图,数据区域为
=Sheet1!$A$1:$M$1,Sheet1!$A$20:$M$20
完成
调整图表位置,以及组合框的位置。选中图表,右键,选中“置于底层”
剩下的就是慢慢调整图表到好看的样子了
问题解决
1、手动插入柱状图
2、插入组合框,在属性ListFillRange中输入A1:A12(市区名称区域)
3、双击组合框,Private Sub ComboBox2_Change()和End Sub中间粘贴以下文本:
Dim sh1 As Range
Set sh1 = Range("A1:A18")
aa = ComboBox1.Text
han = 0
For Each dyg In sh1
han = han + 1
If aa = dyg.Text Then
Exit For
End If
Next
ddddd = "B" & Str(han) & ":I" & Str(han)
ActiveSheet.ChartObjects("图表 1").Activate '第n次插入图表,为"图表 n"
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B" & CStr(han) & ":I" & CStr(han)), PlotBy:= _
xlRows
'"B" & CStr(han) & ":I" & CStr(han)改变B和L调整数据范围
ActiveChart.SeriesCollection(1).Name = "=""实验""" '输入柱状图名称
ActiveWindow.Visible = False
4、退出编辑状态,选择执行。
就以你的图为准
图表建立
1在单元格A50处输入INDEX(A2:A18,$A$49)
2 然后横项拖动单元格 让A50~N50都刷出公式 .
3 在A49处输入2 50出现数值乌市的数据.
4 用50的数据制作表格
工具拦--窗体--组合筐
右件点机组合筐---控件格式--控制。
数据源为需要显示的A2-A18。连接为显示名称序列的A49。
完成.
可以的呀,你说的是动态图表,使用时EXCEL重新计算模式设置为“自动重算”。然后将A列设为自动筛选的列。通过选A列的城市形成筛选的目的,而图形也会跟着变化的。
如果一定要在图形上选的话,就要用到VBA编写代码进行筛选操作,虽然不难实现,但总觉得对你不认识VBA的人来说,没有必要呀。
直接做在图表上我还真不会,但是做在旁边我想我倒是会。