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

goons

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

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

XZ19860527

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. ActiveSheet.Calculate
   
3. Dim ch  As ChartObject, rng As Range
   
4. Set ch = ActiveSheet.ChartObjects("查询图")
   
5. Set rng = ThisWorkbook.Sheets("查询图").Range("xx")
   
6. If Target.Count > 1 Then Exit Sub
   
7. With ch
   
8.     .Left = rng.Left
   
9.     .Top = Target.Top
   
10. End With
    
11. Set ch = Nothing
    
12. End Sub
    

复制代码

If Target.Count > 1 Then Exit Sub

goons

非常感谢

悠悠的炊烟

VBA，不会，就用函数做一个吧

jnmbatang2011

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

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

goons

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

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

悠悠的炊烟

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

提拉米苏08

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

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

goons

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

zzmxy

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