Excel 2007 Столбец переменной длины

Question

Я пытаюсь сделать макрос для суммирования столбца переменной длины. Я пробовал несколько разных вещей, но они не сработали. Что я хочу сделать, это:

Если активной ячейкой является ячейка B17, я бы хотел, чтобы B17 равнялась сумме от B1 до B16. Точно так же, если активной ячейкой является ячейка D22, я бы хотел, чтобы D22 равнялся сумме D1-D21.

Таким образом, в основном это сумма всех ячеек над активной ячейкой в ​​выбранном столбце.

Спасибо, Джеймс.

Answer 1

<pre>Sub MakeSum()</p> <pre><code>If ActiveCell.Row > 1 Then ActiveCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)" End If

End Sub

Answer 2

=SUM(R1C:R[-1]C) или я что-то упустил?

Answer 3

Попробуйте и настройте для особых случаев (строка 1 и т. Д.)

Public Sub abcd()
  Dim rw As Long
  Dim cl As Long
  Dim s As Double
  Dim rng As Range

  rw = ActiveCell.Row
  cl = ActiveCell.Column
  Set rng = Range(Cells(1, cl), Cells(rw - 1, cl))

  s = Application.WorksheetFunction.Sum(rng)
  MsgBox s
  ActiveCell.Value = s
End Sub

Answer 4

Может ли макрос нажать кнопку на панели инструментов [сумма] (забавная электронная сигма) и нажать клавишу ввода?