Excel VBA code求助

乘物以游心.

ActiveChart.SetSourceData Source:=Range("C75:C76,K75:" & Chr(75 + iRow - 6) & "76")
Chr是把整数变成对应的字符，如chr（65）就是A
假设IRow是1（第一周），就变成了
Range("C75:C76,K75:" & Chr(75 + 1 - 6) & "76")
也就是
Range("C75:C76,K75:" & Chr(70) & "76")
也就是
Range("C75:C76,K75:" & ”F“ & "76")
也就是
Range("C75:C76,K75:F76")
通过这种方式，来选择表格的数据源。

yang~_~.

Dim是声明变量用的。
chr是根据数字取相对应ASCII字符，如chr(13)代表回车。你代码中的chr(75)代表K。如果iRow=10，那么就是chr(79)代表O，这句代码就等同于ActiveChart.SetSourceData Source:=Range("C75:C76,K75:O76")

JoyRoot.

本帖最后由 JoyRoot 于 2014-3-16 13:38 编辑

乘物以游心 发表于 2014-3-16 12:57

ActiveChart.SetSourceData Source:=Range("C75:C76,K75:" & Chr(75 + iRow - 6) & "76")
Chr是把整数变成 ...
那如果我要现实的数据不在连续的行呢，我要图片选在
日期行在：K75 到 O75
数据行在: K83到 O83 是
这句话该怎么写？
   ActiveChart.SetSourceData Source:=Range("K75：" & Chr(75 + iRow - 6) & "75", "K83: " & Chr(75 + iRow - 6) & "83") ?
好像not working .
结果我这样写了，可以用只是数据先update 然后再update x轴的日子。
ActiveChart.SetSourceData Source:=Range("K83:" & Chr(75 + iRow - 6) & "83")
ActiveChart.SeriesCollection(1).XValues = "='sheet1'!$K$75:" & Chr(75 + iRow - 6) & "75"
这个可用了，您看呢。

JoyRoot.

本帖最后由 JoyRoot 于 2014-3-16 19:36 编辑

yang~_~ 发表于 2014-3-16 13:05

Dim是声明变量用的。
chr是根据数字取相对应ASCII字符，如chr(13)代表回车。你代码中的chr(75)代表K。如果i ...
谢谢你的指点。

JoyRoot.

好像有bug, 如果输入的这周是21周以上- 52周，Chart 就不会update了。错误提示如下：
‘运行时错误1004
’方法Rang 作用于对象‘-Global'时失败。

jy00064164.

JoyRoot 发表于 2014-3-16 20:41

好像有bug, 如果输入的这周是21周以上- 52周，Chart 就不会update了。错误提示如下：
‘运行时错误1004
按照你的设定来看 irow的值应该是[-4,21],分别代表A-Z
超过这个范围就不起作用了
代码本身就局限性，超过Z列的数据就会报错
建议用cells函数或者用named range来控制

voidray.

能用自带函数解决的问题最好不要弄vba。现在遇到runtime error还有个提示，万一vba在提数据的时候出错那可连提示都没有。我可有切身体会的。

JoyRoot.

jy00064164 发表于 2014-3-16 21:12

按照你的设定来看 irow的值应该是[-4,21],分别代表A-Z
超过这个范围就不起作用了
代码本身就局限性，超过 ...
谢谢，你说的name range 是用dynamic chart 吗？

JoyRoot.

voidray 发表于 2014-3-16 21:50

能用自带函数解决的问题最好不要弄vba。现在遇到runtime error还有个提示，万一vba在提数据的时候出错那可 ...
谢谢指点。

jy00064164.

JoyRoot 发表于 2014-3-17 18:25

谢谢，你说的name range 是用dynamic chart 吗？
formula => define name/name manager