[已解决]请高手帮我讲解这段VBA代码

1160278535

Dim st As Date
Dim en As Date
Range("E" & 2).Select
st = ActiveCell.FormulaR1C1
Range("I" & 2).Select
en = ActiveCell.FormulaR1C1
这段代码的最后一行和倒数第三行是什么意思？？？？？？？

最佳答案

月排行榜 / 总排行榜

qh8600

2014-7-21 11:47

1160278535 发表于 2014-7-21 11:11
你好，谢谢你帮我回答，我是VBA的小学生，
Range("E" & 2).Select
st = ActiveCell.FormulaR1C1

Range("I" & 2).Select         就是选中单元格，range("i"&2)成为活动单元格
en = ActiveCell.FormulaR1C1    变量EN=活动单元格
所以可以简化为en=range("i"&2)

跳转到最佳答案楼层

hwc2ycy

你复制到VBE中调试下，看看结果就知道了。

qh8600

Dim st As Date
Dim en As Date
Range("E" & 2).Select
st = ActiveCell.FormulaR1C1
Range("I" & 2).Select
en = ActiveCell.FormulaR1C1
可以简化为
dim st as date,en as date
st=range("e2")
en=range("i2")
把单元格E2赋值给变量st,日期类型
把单元格i2赋值给变量en,日期类型

1160278535

qh8600 发表于 2014-7-17 14:46
Dim st As Date
Dim en As Date
Range("E" & 2).Select

你好，谢谢你帮我回答，我是VBA的小学生，
Range("E" & 2).Select
st = ActiveCell.FormulaR1C1
Range("I" & 2).Select
en = ActiveCell.FormulaR1C1
我不明白的地方是FormulaR1C1是什么意思。请详细说一下，谢谢

qh8600

1160278535 发表于 2014-7-21 11:11
你好，谢谢你帮我回答，我是VBA的小学生，
Range("E" & 2).Select
st = ActiveCell.FormulaR1C1

Range("I" & 2).Select         就是选中单元格，range("i"&2)成为活动单元格
en = ActiveCell.FormulaR1C1    变量EN=活动单元格
所以可以简化为en=range("i"&2)