鼠标点选生成标准变动态图表(简单的VBA)

goons · 发表于 2011-7-1 16:17

本贴来自网友求助贴:http://club.excelhome.net/thread-736372-1-1.html，认为就有一定的代表意义，因此作此帖。
用户希望通过点击鼠标自动生成标准图表（已经做好图），本例使用简单的VBA+定义名称来实现（得到网友wpxxsyzx 大力支持）；（不知道什么原因，我的selection事件已加入if判断就无法执行，请snood版主帮忙改进下）

[ 本帖最后由 goons 于 2011-7-1 16:29 编辑 ]

XZ19860527 · 发表于 2011-7-1 17:14

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
Dim ch As ChartObject, rng As Range
Set ch = ActiveSheet.ChartObjects("查询图")
Set rng = ThisWorkbook.Sheets("查询图").Range("xx")
If Target.Count > 1 Then Exit Sub
With ch
.Left = rng.Left
.Top = Target.Top
End With
Set ch = Nothing
End Sub

复制代码

If Target.Count > 1 Then Exit Sub

goons · 发表于 2011-7-1 18:26

非常感谢

悠悠的炊烟 · 发表于 2011-7-1 22:21

VBA，不会，就用函数做一个吧
月亮走我也走.gif

jnmbatang2011 · 发表于 2011-7-2 12:38

非常有用的小工具！！！！

非常有用的小工具！！！！

goons · 发表于 2011-7-2 18:58

原帖由 悠悠的炊烟 于 2011-7-1 22:21 发表
VBA，不会，就用函数做一个吧
949834

本例的目的是要图表要随鼠标移动而变换到相应行的位置哦

悠悠的炊烟 · 发表于 2011-7-7 12:58

理解，4楼的演示正是用函数直接达到的效果，没用控件、数据有效性等辅助手段

提拉米苏08 · 发表于 2011-7-8 09:28

原帖由 悠悠的炊烟 于 2011-7-7 12:58 发表
理解，4楼的演示正是用函数直接达到的效果，没用控件、数据有效性等辅助手段

呵呵，烟，应该把原文贴上来，不要放GGG，让别人学一下嘛，嘻嘻。

goons · 发表于 2011-7-8 10:29

不用VBA,不晓得烟的函数变动是否要按F9执行变动?

zzmxy · 发表于 2011-7-8 10:39

都是强人，跟着学习一下……

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

[原创] 鼠标点选生成标准变动态图表(简单的VBA)

评分

回复 4楼悠悠的炊烟的帖子

[原创] 鼠标点选生成标准变动态图表(简单的VBA)

评分

回复 4楼 悠悠的炊烟 的帖子

回复 4楼悠悠的炊烟的帖子