Блог

Мне нужно добавить функцию на мой рабочий лист с помощью макросов. Мне нужно передать переменную в функцию Excel, поскольку myWorkbook и sheetName , на которые она будет ссылаться, являются переменными.

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

theFormula = "=SUM(" amp; MyRange amp; ")"

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

Я получаю ошибку 13: Type Mismatch .

Я не заядлый программист на VBA, и это доставляет мне большую головную боль. Я пытался определить theFormula как строку, но без надежды.

Вам необходимо преобразовать объект Range в строковое представление диапазона, например, чтобы задать формуле значение =SUM($H$11:$H$32) , которое вы бы;

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

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

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

Или, если вам не нужна нотация R1C1, вы можете;

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

 Sub MakeSum(sBookName As String, sSheetName As String)

    Dim rMyRange As Range

    Set rMyRange = Workbooks(sBookName).Sheets(sSheetName).Range("H11:H32")

    If rMyRange.Parent.Parent.Name = ActiveWorkbook.Name Then
        With ActiveSheet
            'same sheet, so just use address
            If rMyRange.Parent.Name = .Name Then
                .Range("B2").Formula = "=SUM(" amp; rMyRange.Address amp; ")"
            Else
            'same workbook, different sheet, so prepend sheet name
            'single quotes prevent error when there's a space in the sheet name
                .Range("B2").Formula = "=SUM('" amp; rMyRange.Parent.Name amp; "'!" amp; rMyRange.Address amp; ")"
            End If
        End With
    Else
        'not the same workbook, use external address
        ActiveSheet.Range("B2").Formula = "=SUM(" amp; rMyRange.Address(, , , True) amp; ")"
    End If

End Sub
  

Программно это не сработает — вы говорите, что формула ячейки должна быть равна «=SUM (» amp; MyRange amp; «)» — однако, когда это фактически оценивается?

является ли формула =SUM(» amp; MyRange amp; «)

работает?