訪問Excel VBA中的雙引號問題

Question

是從訪問數據導出到Excel中使用VBA，我想練成接收這些線： -

=COUNTIF('Sheet1'!G2:G68,"1/1") 
=COUNTIF('Sheet1'!G2:G68,"1/2") 
etc... 

我的問題是，我不能添加這些雙引號沒錯，我知道，把它打印出來的符號，我應該把它兩次這樣的「」但仍沒有運氣，我得到各種錯誤的，可以請你修改我的代碼：=

For r = 6 To 16 
.Range("B" & r).Value = "=COUNTIF('Sheet1'!C1:C67,1/" & r - 5 & ")" 
Next 

感謝

Answer 1

如果你無線SH嵌入雙引號串入您構建您可以通過做到這一點（如你所提到的），使用兩對雙引號「逃離」您正在嘗試添加雙引號，如下所示：

"=COUNTIF('Sheet1'!C1:C67,""1/" & r - 5 & """)" 

...這將返回：

=COUNTIF('Sheet1'!C1:C67,"1/-5") 

重要的一點要記住的是，爲了逃避正確要插入雙引號，你不要指望被定義字符串本身的雙引號的一個兩對;這就是爲什麼在上面的例子中最後有4對：

""")" 

外兩個定義了字符串本身;內部的兩個代表逃脫的雙引號字符。

我總是發現這個表單有點令人困惑，並且通常會選擇使用chr函數插入雙引號，並將ascii值傳遞給雙引號字符，即34;

"=COUNTIF('Sheet1'!C1:C67," & chr(34) & "1/" & r - 5 & chr(34) & ")" 

...這將返回相同的結果作爲第一個例子：

=COUNTIF('Sheet1'!C1:C67,"1/-5") 

希望這有助於

NIM