[已解决]请各位：帮助修改代码

byhdch

修改代码，能用变量，如x＝2011，y＝7，z＝9（或其它定义），以减少大量改变文件名、工作表名的麻烦！

Range("C8").Select
ActiveCell.FormulaR1C1 = "=MAX('[2011年经济分析统计报表（最新）.xls]7月:9月'!R6C3)"
Range("C9").Select
ActiveCell.FormulaR1C1 = "=MIN('[2011年经济分析统计报表（最新）.xls]7月:9月'!R7C3)"
Range("C10").Select
ActiveCell.FormulaR1C1 = "=AVERAGE('[2011年经济分析统计报表（最新）.xls]7月:9月'!R8C3)"

谢谢！

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-10 20:00

ActiveCell.FormulaR1C1 = "=MAX('[" & X & "年经济分析统计报表（最新）.xls]" & Y & "月:" & z & "月'!R6C3)"

跳转到最佳答案楼层

mxg825

ActiveCell.FormulaR1C1 = "=MAX('[" & X & "年经济分析统计报表（最新）.xls]" & Y & "月:" & z & "月'!R6C3)"

byhdch

回复 mxg825 的帖子

谢谢答复！
还有没有更简便的定义变量方法？