Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/python-3.x/18.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 代码第一次有效,但第二次无效_Excel_Vba - Fatal编程技术网

Excel 代码第一次有效,但第二次无效

Excel 代码第一次有效,但第二次无效,excel,vba,Excel,Vba,这段代码只是第一次工作,因为当它再次激活时,它将尝试对一个函数求和,而不是对该函数的值求和 例如:在第一次尝试时,用户在J“&lrTest-1上输入100,G6=0。然后它将是=sum(0100),等于100。但在第二次尝试时,它将尝试对函数求和,并且不会继续 If cmbcategoria.Text = "Casa" Then Range ("G6").Formula = "=sum ("G6", J" & lrTest - 1 &")" End If 我能做些什么来

这段代码只是第一次工作,因为当它再次激活时,它将尝试对一个函数求和,而不是对该函数的值求和

例如:在第一次尝试时,用户在
J“&lrTest-1
上输入100,G6=0。然后它将是
=sum(0100)
,等于100。但在第二次尝试时,它将尝试对函数求和,并且不会继续

If cmbcategoria.Text = "Casa" Then
    Range ("G6").Formula = "=sum ("G6", J" & lrTest - 1 &")"
End If
我能做些什么来解决它

Ps:我猜你不知道完整的代码,但是如果需要,我可以发布它

这将起作用=)


你不能将引用G6的公式放入G6中。这被称为a。此外,
“G6”
应该是
G6
,你需要在一个带引号的字符串中加两倍引号。因此,基本上,整件事都有很多错误。我认为你也没有足够的“G6”。我不确定你想要实现什么,因为我真的不明白你的问题。但是看看你粘贴的代码(不考虑给出的错误单元格引用),G6应该是文本,也就是说,它周围不应该有双引号。您的实际语句将变为“=sum(G6,J“&lrTest-1&”)当我使用此
Range(“G6”)时,我能够运行它。公式=“=sum(&Range(“G6”)。Value&“,J”&lrTest-1&”
它已打开,但无论如何谢谢!!为什么不尝试调试并解决每个突出显示的问题。。。。?
If cmbcategoria.Text = "Casa" Then
    Range("G6").Formula = "=SUM(" & Range("G6").Value & ", J" & lrTest - 1 & ")"
End If