用VBA动态更新图表坐标值遇到的问题

Hi，80后！ · 发表于 2014-9-22 20:23

如题，我的想法是通过VBA动态更新图表Y轴的坐标值，代码就是从本站摘的别人的，稍加修改后确实可以实现这个功能，可是有一个问题，当想输入新数据时，需要点击好几次光标才能定位到单元格中，不懂是不是代码影响的。。。。
应该不用来回切换设计模式or非设计模式吧...
另一点，我见别人的代码上面那里显示是“通用--声明”，怎么我一粘贴过来就自动变成“Wordsheet--SelectionChange”了，我其实是个VBA盲，只是当初稍微学过一丁点Vb，还算大概懂代码意思而已，其他一概不懂...

2222222.rar (18.35 KB, 下载次数: 34)

Hi，80后！ · 发表于 2014-9-22 20:40

不会真是没找对版块吧...

Hi，80后！ · 发表于 2014-9-22 20:45

急求大神现身，等了一天了

悠悠的炊烟 · 发表于 2014-9-22 21:38

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Range("b3:b24")
ActiveSheet.Calculate
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = Application.Min(rng)
.MaximumScale = Application.Max(rng)
.MajorUnit = (Application.Max(rng) - Application.Min(rng)) / 5
End With
End Sub

复制代码

悠悠的炊烟 · 发表于 2014-9-22 21:40

把数据源改成随机函数吧，可以看出数据源变化后图表轴的取值是否正确

Hi，80后！ · 发表于 2014-9-23 09:26

悠悠的炊烟发表于 2014-9-22 21:38

非常感谢大侠帮忙，这样确实可以了！我把Set rng = Range("b3:b24")改成Set rng = Range("b3:index(b:b,counta(b:b)+1)")就可以完美实现了！相当于用这句话代替自定义名称了

Hi，80后！ · 发表于 2014-9-23 09:27

不过就是不明白为什么用名称来实现就老是那个问题.....

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

[求助] 用VBA动态更新图表坐标值遇到的问题

最新热点 /1