Question

我收到“编译错误：预期列表分隔符或）”错误消息。任何人都可以通过以下代码帮助我解决导致错误消息的问题。

只有我做的改变是在最后一个括号中我用“范围（”AO294“）代替”Delta“。文字”

<form  id="submit">
	<input type="text" id="name" placeholder="Enter Your Name"/>
	<input type="text" id="last" placeholder="Enter Your Last Name"/>
	<input type="submit" value="Submit"/>
</form>

谢谢

Answer 1

Sub MyPvt()
'
' MyPvt Macro

    ActiveSheet.PivotTables("MyPvt").PivotFields( _
        "[Append1].[Manufacturer].[Manufacturer]").VisibleItemsList = Array( _
        "[Append1].[Manufacturer].[" & Range("AO294").Text & "])"


End Sub

Answer 2

您无法使用.Range.Text。而是尝试使用set为范围对象分配引用。你还需要关闭阵列。

Sub MyPvt1() ' ' MyPvt Macro
Dim arrPivot
Dim pvtValue

pvtValue = Range("AO294").Value

arrPivot = "[Append1].[Manufacturer].&[" & pvtValue & "]"

ActiveSheet.PivotTables("MyPvt").PivotFields( _
"[Append1].[Manufacturer].[Manufacturer]").VisibleItemsList = _
Array(arrPivot)

End Sub

编译错误：预期列表分隔符或）：错误消息

2 个答案: