Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA:尝试将值设置为范围时出现错误1004_Excel_Vba - Fatal编程技术网

Excel VBA:尝试将值设置为范围时出现错误1004

Excel VBA:尝试将值设置为范围时出现错误1004,excel,vba,Excel,Vba,我有一个奇怪的错误试图创建一个小宏。我想为一个特定的单元格创建一个值,这是一个函数。然而,当我尝试这样做时,它给出了错误1004 ThisWorkbook.Sheets("Systems").Range("C" & c.Row).Value = "=CELL(" & Chr(34) & "row" & Chr(34) & ";Articles!A" & c.Value 文章只是另一张纸。 Chr(34)只是一个“字符 这一行给出了错误。现在,我尝

我有一个奇怪的错误试图创建一个小宏。我想为一个特定的单元格创建一个值,这是一个函数。然而,当我尝试这样做时,它给出了错误1004

ThisWorkbook.Sheets("Systems").Range("C" & c.Row).Value = "=CELL(" & Chr(34) & "row" & Chr(34) & ";Articles!A" & c.Value
文章只是另一张纸。
Chr(34
)只是一个
字符

这一行给出了错误。现在,我尝试用
Chr
命令替换特殊字符

下面这行没有给我一个错误

ThisWorkbook.Sheets("Systems").Range("C" & c.Row).Value = Chr(61) & "CELL"
但这一个是:

ThisWorkbook.Sheets("Systems").Range("C" & c.Row).Value = Chr(61) & "CELL" & Chr(40)
Chr(61)
是一个
=
Chr(40)
是一个


有人能告诉我解决这个问题的方法吗?我会很高兴。使用Ofice 2010。

只需在字符串中加上两个引号即可。“:

ThisWorkbook.Sheets("Systems").Range("C" & c.Row).Formula "=CELL(""row"",Articles!A" & c.Value & ")"
还请注意,您应该使用
.Formula
以标准美式英语格式编写公式,或者使用
.FormulaLocal
以本地化格式编写公式

建议使用标准美国格式和
.Formula
,因为这将在全球范围内起作用。
标准美国格式在公式中使用
和非
作为分隔符。如果您在翻译公式时遇到困难,请使用@AldoRuggiu如果这回答了您的问题,请将其追加投票/标记为已解决: