Сумма при нажатии кнопки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Николай

Дата: Понедельник, 03.06.2013, 10:05 | Сообщение № 1

Группа: Гости

Здравствуйте.
Необходимо сделать так, чтобы при нажатии кнопки была выполненна сумма ячеек (С6-С100)=(С6-С100)+(D6-D100).
Запись (С6-С100) говорит о том, что имееются ввиду ячейки с С6 по С100.
Спасибо!

Ответить

Serge_007

Дата: Понедельник, 03.06.2013, 10:10 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

[vba]

Код

Sub Sum()
Dim Sum As Long
Sum = WorksheetFunction.Sum(Range("c6:c100"))
MsgBox Sum
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Николай

Дата: Понедельник, 03.06.2013, 10:23 | Сообщение № 3

Группа: Гости

Спасибо, но это не совсем то, что я хотел.
Необходимо, чтобы было так:

С6=С6+D6
С7=С7+D7
...
...
С100=С100+D100

Ответить

Serge_007

Дата: Понедельник, 03.06.2013, 10:29 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата (Николай)

С6=С6+D6

Такое выражение вызовет циклическую ссылку

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Николай

Дата: Понедельник, 03.06.2013, 10:36 | Сообщение № 5

Группа: Гости

Для одной строки у меня получилось это сделать следующим образом
Sub x()
[C6] = [C6] + [D6]
End Sub
И зацикливание не вызывает. А вот как сделать, чтоб для строк с С6 по С100? Может есть возможность, чтобы не писать для каждой по отдельности?

Ответить

AndreTM

Дата: Понедельник, 03.06.2013, 10:45 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

Процедура:
[vba]

Код

Sub SumRanges(r1 As Range, r2 As Range)
      If r1.Rows.Count <= r2.Rows.Count And r1.Columns.Count <= r2.Columns.Count Then
          For Each cell In r1.Cells
              cell.Value = cell.Value + r2.Cells(1, 1).Offset(cell.Row - r1.Row, cell.Column - r1.Column).Value
          Next
      End If
End Sub

[/vba]
Вызов:
[vba]

Код

Call SumRanges([C6:C100], [D6:D100])

[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Понедельник, 03.06.2013, 10:45

Ответить

Сумма при нажатии кнопки

Страница 1 из 1
1