Блог

Я пытаюсь запустить =subtotal() функцию для всего столбца и вставить значение в тот же столбец, но вы не можете запустить функцию в том же столбце, в котором я пытаюсь подвести итог.

 ActiveCell.Value = "Total No. of chargeable hours"
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = "=SUBTOTAL(9,G:G)"
  

Поскольку это возвращает ошибку, я попытался использовать вспомогательную ячейку для вырезания и вставки, но получил ошибку отладки в PasteSpecial = xlPasteValues строке.

 ActiveCell.Value = "Total No. of chargeable hours"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "=SUBTOTAL(9,G:G)"
ActiveCell.Cut
ActiveCell.Offset(0, 1).Select
ActiveCell.PasteSpecial = xlPasteValues
  

Количество строк меняется каждый раз при создании рассматриваемого листа, поэтому невозможно использовать определенный диапазон ячеек.

У кого-нибудь есть рабочий способ добиться этого?

Спасибо.

 Sub WriteSubtotal()

    With ActiveCell
        .Value = "Total No. of chargeable hours."
        .Offset(0, 1).Value = Application.WorksheetFunction.Subtotal(9, .Parent.Range("G1").EntireColumn)
    End With

End Sub
  

Как правило, вам не нужно выбирать или активировать ячейки. Просто обратитесь к ячейке и управляйте свойствами или вызывайте методы. Приведенный выше подраздел помещает метку в активную ячейку, а затем изменяет значение свойства ячейки вправо.

Обратите внимание, что второй аргумент для промежуточных ИТОГОВ использует .Родительское свойство. Внутри блока With для ActiveCell, the .Родительское свойство будет ссылаться на лист.

Вам нужно написать формулу, которая возвращает массив, чтобы вы могли объявить свою функцию как

 Function SubTotal(InputRange as Range) as Variant
    Dim Output() as Variant
    ' ReDim Output(.... to the correct rows, column size)

    ' Run your subtotal code here
    ' Output (Row, 1) = YourAnswer(Row)

    SubTotal = Output
End Function
  

VBA не позволит функции изменять электронную таблицу с помощью операций типа copy paste.