2016-09-15 68 views
1

抵消我有每小时的数据。我需要有一个计算说将R 天1和7两个不同的变量(比如塔A和B),然后循环该所以下次它计算将R 天2-8和时间之间的细胞然后3-9天等等 我必须说,具有R 公式的单元格在求解器中用来解决最大的一些代码/公式,因此含有R 2的单元格需要是一个公式,而不是一个值..(我已经能够抵消它作为一个值,但不能作为一个公式)。目前部分代码如下:提前VBA插入公式在细胞和循环

i = 0 
ActiveSheet.Cells(24,13).Value = Application.WorksheetFunction.RSq(RangeA.offset(i,0), RangeB.offset(i,0) 

i = i + 24 

许多许多感谢任何有用的提示

干杯

回答

1

假设你有一个名为范围RangeARangeB,你可以使用:

ActiveSheet.Cells(24,13).Formula = "=RSQ(RangeA,RangeB)" 

或者,您可以使用R1C1表示法相对引用,像这样:

ActiveSheet.Cells(24,13).Formula = "=RSQ(RC[-2],RC[-1])" 

,或者对于多细胞范围:

ActiveSheet.Cells(24,13).Formula = "=RSQ(RC[-2]:R[2]C[-2],RC[-1]:R[2]C[-1])" 
+0

您应该使用[Range.FormulaR1C1性质](https://msdn.microsoft.com/en-us/library/bb213527.aspx )为后两个公式分配,而不是[Range.Formula属性](https://msdn.microsoft.com/en-us/library/office/ff838835.aspx)。 – Jeeped

+0

@Jeeped很好的捕获,虽然'.Formula'仍然适用于这种特殊情况。 – ThunderFrame

+0

谢谢你们! – Argyris