在未定义范围的vba中插入SUMIF公式

时间:2020-10-31 22:05:56

标签: vba

我有一个数据库工作表(Sheet1),其中的数据通过用户表单自动提交。每次提交数据时,它都会出现在数据库的最后一行。然后,我在另一张工作表(Sheet2)中有一列,当数据已经提交到工作表Sheet1上时,该列应显示SUMIF公式。

公式为=SUM.IF(Sheet1!E..:N..,"TRUE",Sheet1!$E$5:$N$5),问题是公式中的范围或行不是静态的,这意味着我的VBA代码必须提供在Sheet1的最后一行上提交的数据的确切行范围。

我试图将公式用作字符串,但是我不知道如何在代码中定义动态范围。下面的bref代码;

Dim LastRow, LastRow2 As Long

LastRow = Sheet1.Range("B2").Value + 6 (I already put counta formula in the column B2)
LastRow2 = Sheet2.Range("B1").Value + 4 (same here)

Sheet2.Range("E" & LastRow2).Formula = "=SUM.IF(Sheet1!E56:N56,""VRAI"",Sheet1!$E$5:$N$5)" 

(我想放置公式的代码,E56:N56上存在问题,因为它必须不是静态的)

我尝试过-

Sheet2.Range("E" & LastRow2).Formula = "=SUM.IF(Sheet1!E"&LastRow&":N"&LastRow&",""VRAI"",Sheet1!$E$5:$N$5)" 

但这不起作用。

0 个答案:

没有答案