在<em>Excel</em> <em>VBA</em>中，如何在公式中

将a.xls工作薄vba标准模块中的变量来“aa”设为全局变量，设一个带参数的赋值过程，在源b.xls的代码中调用这个过程，参数用你要赋百给aa的值。具体如下：

'a.xls工作薄中vba标准模块中代码：

Public aa
Sub Setaa(x)
aa = x
End Sub

'b.xls工作薄中的代码：（括号中的8就是要赋给度aa的值）

Run "'a.xls'!setaa(8)"

Sub dfsa()
an = Sheets(Sheets.Count - 1).Name
Sheets(Sheets.Count - 3).Select
ActiveSheet.Cells(4, 5).Select
ActiveCell.FormulaR1C1 = "=" & an & "!R[2]C[2]"
End Sub
单元格百中公式计算值，在VBA中引用时度取该单元格.value作为参知数即可道
如A1里有公式
VBA中
function Test(a as single)
……内
……
end function
引用时：Test(A1)即可
在编容辑器里
b=Test(range("A1").value)

下面一行三个红色的ls替换为下面内容（注意必须保留空格、注意英文的符号、建议复制）：
"& ls &"