使用vba Excel插入公式

Question

我试图创建一个在特定单元格中插入公式的宏。为此，我使用下面的代码。

首先，我选择适当的片材：

Sheets("Resultaat").Select 

然后我选择我想要的插入式细胞：

Range("C2").Select 

我使用ActiveCell.Formula插入式是这样的：

ActiveCell.Formula = "=COUNTIF(Overview!$G$2:$G$1000;">0")" 

此代码不起作用。它给了我以下错误。

compile error: Expected end of statement

我认为错误是由代码的">0"部分引起的。有什么方法可以使这个代码工作？

Answer 1

有几件事情：

1. 你不需要激活或选择什么，但可以直接引用的单元格。

2. 使用vba时，您的配方需要采用美式英式风格。因此请使用,而不是;。

3. 您需要双引号才能在公式中留下单引号。

执行此代替：

Sheets("Resultaat").Range("C2").Formula = "=COUNTIF(Overview!$G$2:$G$1000,"">0"")"