Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3879|回复: 5

[已解决]excel下拉列表框选择数据源绘图

[复制链接]
发表于 2016-5-3 14:31 | 显示全部楼层 |阅读模式
本帖最后由 sure 于 2016-5-3 17:42 编辑

各位老师好,
我现在有一系列的数据,想通过下拉列表框,选择不同的数据源,来绘制图形:
原始数据在raw data里面,每2列是一组数据,包括时间和测试数据,第2行是测试时间和序列号,共有20组数据。

我现在想做的是,在Plots sheet里面,有测试序列号对应的不同net name, 在Please select the Net to plot:下面建立一个下拉列表框控件,显示所有ID:1~20(之后可能包含更多,不止20个),当列表选择1时,自动绘制序列号为1的测试数据,如附件所示,图形的title是ID对应的net,选择2时,自动绘制序列号为2的测试数据,以此类推。
最佳答案
2016-5-3 16:28
。。。。。。。。

data.zip

292.87 KB, 下载次数: 6

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-5-3 15:29 | 显示全部楼层
  1. Sub 宏1()
  2.     xh = [d4]
  3.     net = [a:a].Find(xh, lookat:=xlWhole).Offset(0, 1).Address
  4.     With Sheets("Raw data")
  5.         c = .Rows(1).Find(xh, lookat:=xlWhole).Column
  6.         x = .Range(.Cells(2, c - 1), .Cells(65536, c - 1).End(3)).Address
  7.         y = .Range(.Cells(2, c), .Cells(65536, c).End(3)).Address
  8.     End With
  9.     ActiveSheet.ChartObjects("Chart 1").Activate
  10.     ActiveChart.SeriesCollection(1).Name = "=' Plots'!" & net
  11.     ActiveChart.SeriesCollection(1).XValues = "='Raw data'!" & x
  12.     ActiveChart.SeriesCollection(1).Values = "='Raw data'!" & y
  13. End Sub
复制代码

data.rar

234.44 KB, 下载次数: 17

回复

使用道具 举报

发表于 2016-5-3 15:31 | 显示全部楼层
按照录制宏后自己修改的。只要保证序号在[D4]单元格就行。
回复

使用道具 举报

 楼主| 发表于 2016-5-3 15:39 | 显示全部楼层
grf1973 发表于 2016-5-3 15:29

老师,你好。
我的附件控件好像用的不对,我是想用组合框控件,通过下拉列表的形式选择不同的ID,我重新上传了附件,麻烦帮我看下怎么更改,我不太会用listbox或combobox的控件,谢谢!

data1.zip

292.92 KB, 下载次数: 3

回复

使用道具 举报

发表于 2016-5-3 16:28 | 显示全部楼层    本楼为最佳答案   
。。。。。。。。

data1.rar

231.08 KB, 下载次数: 20

回复

使用道具 举报

 楼主| 发表于 2016-5-3 17:42 | 显示全部楼层
grf1973 发表于 2016-5-3 16:28
。。。。。。。。

老师,你好!我看了你写的程序,其他都没问题,就是有一个问题:
实际excel中ID 不止1~20,有可能到30,我希望的是下拉列表中的ID数会自动update,而不是每次都要去手动更改数据源区域。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 00:57 , Processed in 0.668167 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表