vba - Excel 宏 - 设置单元格公式时出错

Question

我需要使用宏在工作表中添加一个函数。我需要将一个变量传递给 Excel 函数，因为它将引用的 myWorkbook 和 sheetName 是变量。

MyRange = Workbooks(myWorkbook).Sheets(sheetName).Range("H11:H32")

theFormula = "=SUM(" & MyRange & ")"

Range("B2").Select
   ActiveCell.FormulaR1C1 = theFormula

我收到错误 13:类型不匹配。

我不是一个狂热的 VBA 程序员，这让我很头疼。我尝试将 theFormula 定义为 String 但没有希望。

Answer 1

您需要将 Range 对象转换为范围的字符串表示形式，例如将公式设置为 =SUM($H$11:$H$32) ；

Dim MyRange As Range
set MyRange = Workbooks(myWorkbook).Sheets(sheetName).Range("H11:H32")

theFormula = "=SUM(" & MyRange.Address(ReferenceStyle:=xlR1C1) & ")"

Range("B2").Select
ActiveCell.FormulaR1C1 = theFormula

或者，如果您不想要 R1C1 表示法，也可以；

ActiveCell.Formula = "=SUM(H11:H32)"