Как редактировать формулу суммы в минус?

[Sanka_i]

Здравствуйте! Помогите пожалуйста! Ломаю голову уже второй день ни чего не получается.
Есть ячейка с формулой "=СУММ(L7)" при добавлении 4тырех столбцов нужно что бы это формула увеличилась еще на одну ячейку "=СУММ(L7)+СУММ(P7)"

Это я делаю след образом:
1. Нахожу эту ячейку с формулой после того как добавили 4 столбца
Cells(7, s + 5).Select
2. Присваиваю формуле эту же формулу + сумма предыдущей 4ертой ячейке
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + "+SUM(RC[-4])"

Это все работает как надо!

Но теперь мне нужно сделать обратную операцию! С чем я справиться и не могу.
После того как я удаляю 4 столбца в одном из которых была ссылка на ячейку формула выглядит так "=СУММ(L7)+СУММ(#ССЫЛКА!)" Но это фигня я просто присваиваю переменной формулу до того как удалить 4 столбца и когда пытаюсь сминусовать уже "ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 - "+SUM(RC[-4])"" этот фокус не проходит Эксель ругается.

Как прописать правильно парни??? Очень нужно!!!

ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 - "+SUM(RC[-4])"

[kuklp]

А какой смысл суммировать одну ячейку? В Вашем случае достаточно:

ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & "-RC[-4]"

или:

ActiveCell.FormulaR1C1 = Replace(ActiveCell.FormulaR1C1, "+SUM(RC[-4])", "")

[DiemonStar]

В ячейку M1 заносишь формулу:

=ЕСЛИ(СТОЛБЕЦ(RC)=17;СУММ(RC[-1];ДВССЫЛ("RC[-5]";ЛОЖЬ));RC[-1])

она при добавлении перемещении данной ячейки в R1 будет считать сумму L1 + P1, а иначе - значение из L1

[Sanka_i]

Ни фига у меня не выходит ((( Уже глаза болят реально. Можно ли я вам тут файлик оставлю глянет кому не лень. поправите.

Там скажем так таблица склада и рядом приход две кнопки "Добавить приход" с ней я разобрался и "Удалить приход" С ней я тоже разобрался кроме вот этой формулы (

kuklp это я как в пример суммирования одной ячейки. Чем больше будет приход тем больше будет суммирования ячеек.


Как бы тут еще файлик закинуть

[DiemonStar]

В расширенном ответе нажмите "Вложить файл"

[Sanka_i]

Вот собственно говоря моя головная боль

Копия .zip

С меня пиво!!! Помогите! )

Для начала по нажимайте кнопку добавить что б понять смысл

[kuklp]

Жесть. А если б ячеек были тысячи?
Так добавить:

Sub ДобавитьПриход()
'
' Макрос2 Макрос
'

'Присваиваем переменной u - 11
    u = 11
    'Присваиваем переменной s - 11
    s = 11
    'Присваиваем переменной n - 0
    n = 0
    'Входим в цикл до того момента пока u не будит равняться 11
    While u = 11
        'Счетчик: с каждым разом s и n увеличивается на 1
        s = s + 4
        n = n + 1
        'В случии пустой ячейки u присвоится 12 - выход из цикла
        If Cells(5, s) = "" Then
            u = 12
        End If
    Wend
    'Снимает защиту листа
    'ActiveSheet.Unprotect
    'Копируем фориу
    Columns("J:M").Select
    Selection.Copy
    Columns(s - 1).Select
    Selection.Insert Shift:=xlToRight
    'Ячейки присваивается номер заказа
    Cells(5, s) = n
    Cells(5, s + 1) = Date
    Application.CutCopyMode = False
    Columns(s).ColumnWidth = 10.71
    Columns(s + 1).ColumnWidth = 6.57
    Columns(s + 2).ColumnWidth = 11
    'Правим формулы по кол-во
    Range("X7:X13,X15:X32,X34:X43").FormulaR1C1 = Range("X7").FormulaR1C1 & "+RC[-4]"
    'Защищает лист
    'ActiveSheet.EnableOutlining = True
    '   ActiveSheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub

А так вернуть назад:

Public Sub www()
    Range("X7:X13,X15:X32,X34:X43").FormulaR1C1 = Replace(Range("X7").FormulaR1C1, "+RC[-4]", "")
End Sub

[DiemonStar]

пробиваешь значения итоговой суммы вот так:

=СУММЕСЛИ($I$6:T$6;"Сумма";$I7:T7)

в 7-ю строку и протягиваешь по всему столбцу - все значения сумм из приходов будут суммироваться здесь.

аналогично можно сделать и для подсчёта общего количества

Жесть. А если б ячеек были тысячи?

максимум - 255 столбцов. Поделив на 4 получим около 60 приходов.

[Sanka_i]

Сообщение от kuklp

Жесть. А если б ячеек были тысячи?
Так добавить:

Sub ДобавитьПриход()
'
' Макрос2 Макрос
'

'Присваиваем переменной u - 11
    u = 11
    'Присваиваем переменной s - 11
    s = 11
    'Присваиваем переменной n - 0
    n = 0
    'Входим в цикл до того момента пока u не будит равняться 11
    While u = 11
        'Счетчик: с каждым разом s и n увеличивается на 1
        s = s + 4
        n = n + 1
        'В случии пустой ячейки u присвоится 12 - выход из цикла
        If Cells(5, s) = "" Then
            u = 12
        End If
    Wend
    'Снимает защиту листа
    'ActiveSheet.Unprotect
    'Копируем фориу
    Columns("J:M").Select
    Selection.Copy
    Columns(s - 1).Select
    Selection.Insert Shift:=xlToRight
    'Ячейки присваивается номер заказа
    Cells(5, s) = n
    Cells(5, s + 1) = Date
    Application.CutCopyMode = False
    Columns(s).ColumnWidth = 10.71
    Columns(s + 1).ColumnWidth = 6.57
    Columns(s + 2).ColumnWidth = 11
    'Правим формулы по кол-во
    Range("X7:X13,X15:X32,X34:X43").FormulaR1C1 = Range("X7").FormulaR1C1 & "+RC[-4]"
    'Защищает лист
    'ActiveSheet.EnableOutlining = True
    '   ActiveSheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub

А так вернуть назад:

Public Sub www()
    Range("X7:X13,X15:X32,X34:X43").FormulaR1C1 = Replace(Range("X7").FormulaR1C1, "+RC[-4]", "")
End Sub

После того как копку нажимаешь добавить... добавляются 4 столбца и итог сдвигается на эти 4 столбца в право соответственно уже Range("X7:X13,X15:X32,X34:X43").For mulaR1C1 = Replace(Range("X7").FormulaR1C1, "+RC[-4]", "") не катит потому что ячейки не те.
яж поэтому и пишу перед каждым пребовлением вот это:
Cells(7, s + 5).Select
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + "+SUM(RC[-4])"

Жесть. А если б ячеек были тысячи? - Да согласен это не совсем правильно и долго ... ждешь пока все это выполнится но все же работает и ладно. Прайс менятсья ни когда не будет поэтому пофиг.

Но все же как разобраться с удалением не все ни как не получается! ( парни очень прошу понажимайте добавить что бы понять в чем смысл! а удаление я сделал форму там вводишь номер прихода он его ищет и удаляет потом обновляет порядочность номеров и вот тут запара правильно обновить формулы в итоге...

[DiemonStar]

посмотри, я там сделал тебе итоги... тока из макроса сам убери изменение формул...