Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.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
如何在vba中将公式传递到excel文件_Excel_Vba_Formula - Fatal编程技术网

如何在vba中将公式传递到excel文件

如何在vba中将公式传递到excel文件,excel,vba,formula,Excel,Vba,Formula,我只想从vba将函数放入excel中的特定单元格中。我尝试了ws.Range(“A2”).值和.Formula。我可以将文本字符串写入该位置,但一旦我定义了带有等号的mString,两者都会给我一个应用程序错误。我相信这很简单,我只是被卡住了 Sub Update_CCP() Dim ws As Worksheet Dim mString As String Set ws = Sheets("Consolidated Client & Prospects") mS

我只想从vba将函数放入excel中的特定单元格中。我尝试了ws.Range(“A2”).值和.Formula。我可以将文本字符串写入该位置,但一旦我定义了带有等号的mString,两者都会给我一个应用程序错误。我相信这很简单,我只是被卡住了

Sub Update_CCP()
Dim ws As Worksheet
Dim mString As String

Set ws = Sheets("Consolidated Client & Prospects")

mString = "=IF('4 Prospects'!A"

ws.Range("A2").Formula = mString

VBA中使用的公式示例

Sub InsertFormula() 
 Worksheets("Sheet1").Range("A1:B3").Formula = "=RAND()" 
End Sub

因此,在A1:B3范围内的工作表1中,使用=RAND()公式。阅读
.formula
方法

您需要一个工作公式-您不能指定部分或损坏的公式