excel vba中为什么变量不能被赋值

gooood

Public Function SSTData(Teamname As String) As Boolean　
    For n = 2 To 21
        Dim SScellvalue As String
        SScellvalue = CStr(Sheets("SST").Cells(n, 2))
        If (SScellvalue = Teamname) Then
            Dim count As Integer
            For m = 1 To 30
            Sheets("SST").Cells(n, m + 2).Select
            'Selection.FormulaArray = "=SUM((俱乐部=""阿森纳队"")*(入球=1))"　-----这句代码能正常进行
            Selection.FormulaArray = "=Sum((" & 俱乐部 = Teamname & " )and(" & 入球 = m & "))"　-----把上句换成这样就不行了
            Next
        End If
    Next
End Function
运行的结果是“FALES”，“俱乐部”和“入球”是定义的名称，

fdd

上传附件才能看清楚问题呀！

热浪2006

Selection.FormulaArray = "=Sum((俱乐部 = " & Teamname & " )and(入球 =" &  m & "))"　

gooood

3楼你好
还是不行

gooood

2楼3楼你们好
下面是附件－－2009英超ok

gooood

附件是一个excel表，内有两个sheet和两个模块，模块1是想写个函数简化模块6里的代码，

gooood

Selection.FormulaArray = "=Sum((" & 俱乐部 = Teamname & " )and(" & 入球 = m & "))"中的and还应该是*

Selection.FormulaArray = "=Sum((" & 俱乐部 = Teamname & " )*(" & 入球 = m & "))"这样没有语法错误，但结果是是一个字符串{=Sum((" & 俱乐部 = Teamname & " )*(" & 入球 = m & "))}