Excel VBA code求助

乘物以游心. · 发表于 2014-6-13 05:33:11

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~_~. · 发表于 2014-6-13 06:29:48

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

JoyRoot. · 发表于 2014-6-13 07:25:22

本帖最后由 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. · 发表于 2014-6-13 08:59:07

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

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

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

JoyRoot. · 发表于 2014-6-13 09:06:08

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

jy00064164. · 发表于 2014-6-13 09:44:26

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

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