问预期结单结束
EN

Stack Overflow用户

提问于 2013-11-04 10:21:52

回答 2查看 581关注 0票数 0

嘿，伙计们，我一直在得到一个Compile Error: Expected:End of Statement，我在公式中插入了一个变量，这样这个表就可以根据不同的工作表名一遍又一遍地使用。

你们能告诉我我错过了什么吗？我试图插入的公式给了我语法错误。

ActiveCell.Formula = "=INDEX(PrevSh & [LENGTH],MATCH([MATERIAL], PrevSh & [MATERIAL],0)) & "(" & COUNTIF(PrevSh & [LENGTH],INDEX(PrevSh & [LENGTH],MATCH([MATERIAL],PrevSh & [Material],0)) )&")"

Dim PrevSh As String
PrevSh = ActiveSheet.Previous.Name

Range(TableName & "[QTY OF LNG]").Select
ActiveCell.Formula = "=INDEX(PrevSh & [LENGTH],MATCH([MATERIAL], PrevSh & [MATERIAL],0)) & "(" & COUNTIF(PrevSh & [LENGTH],INDEX(PrevSh & [LENGTH],MATCH([MATERIAL],PrevSh & [Material],0)) )&")"

excel

vba

variables

excel-formula

音视频体验馆免费体验试用

一站式·全方位体验音视频产品，所见即所得，30分钟即可上线同款能力

回答 2

Stack Overflow用户

回答已采纳

发布于 2013-11-04 11:33:11

你的公式应该更像：

PrevSh = "OldTableName"
ActiveCell.Formula = "=INDEX(" & PrevSh & "[LENGTH],MATCH([@MATERIAL]," & PrevSh & "[MATERIAL],0)) & ""("" & COUNTIF(" & PrevSh & "[LENGTH],INDEX(" & PrevSh & "[LENGTH],MATCH([@MATERIAL]," & PrevSh & "[Material],0)))&"")"""

在以前的工作表中使用旧的表名而不是工作表名是很重要的。

票数 2

Stack Overflow用户

发布于 2013-11-04 10:26:12

这是不正确的：

ActiveCell.Formula = "=INDEX(PrevSh & [LENGTH],MATCH([MATERIAL], PrevSh & [MATERIAL],0)) & "(" & COUNTIF(PrevSh & [LENGTH],INDEX(PrevSh & [LENGTH],MATCH([MATERIAL],PrevSh & [Material],0)) )&")"

它将其解析为一个字符串："=INDEX(PrevSh & [LENGTH],MATCH([MATERIAL], PrevSh & [MATERIAL],0)) & "，然后它会碰到一个括号，不知道该如何处理它。在)&")"的结尾也会发生同样的事情

编辑：为了澄清，问题不是用引号，而是用随机括号。基本上是这样的：

ActiveCell.Formula = "Some nice text"("Some more text")"

这是无效的VBA。我不能百分之百确定你想要的公式是什么，但这是行不通的。我想你想要这样的东西：

ActiveCell.Formula = "=INDEX(PrevSh & [LENGTH],MATCH([MATERIAL], PrevSh & [MATERIAL],0)) & ""("" & COUNTIF(PrevSh & [LENGTH],INDEX(PrevSh & [LENGTH],MATCH([MATERIAL],PrevSh & [Material],0)) )&"")"""

注意(和)周围的双引号，在结尾处有最后的结束引号。如果您试图在单元格中的公式中添加引号，则必须这样做。

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/19774418

复制

php

php function getDirectorySize($path) { $totalsize = 0; $totalcount = 0; $dircount = 0; if ($handle = opendir ($path)) { while (false !== ($file = readdir($handle))) { $nextpath = $path . '/' . $file; if ($file != '.' && $file

苦咖啡

2018/04/28

1.6K0

如何将python列表拆分为大小相等的块