使用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"")"