| Вопрос: Динамическое суммирование | Добавлено: 24.11.08 13:07 |
Автор вопроса:  Iren | ICQ: 496876583 |
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа: Iren ICQ: 496876583 Вопросов: 11 Ответов: 25 |
Профиль | | #16 | Добавлено: 28.11.08 08:25 |
|
Спасибо большое, все получилось. А почему нельзя подсчитать таким же образом, те столбцы, значения которых заполняются кодом. Например для столбца "I6"
If Not (dr.IsDBNull(6)) Then
If dr(6) >= 15 Then ws.Cells(i, 9) = 1 ws.Cells(i, 10) = Round((dr(6) * 5 / 100), 2) Else ws.Cells(i, 11) = "Сумма наговоренных разговоров менее 15$" End If End If i = i + 1 k = k + 1 firstCell1 = ws.Range("Лист1!H6" 
theRange1 = ws.Range(firstCell1, firstCell1.Worksheet.Cells(app.Rows.Count, firstCell1.Column).End(xlUp)) theSum1 = app.WorksheetFunction.Sum(theRange1) firstCell2 = ws.Range("Лист1!I6"
theRange2 = ws.Range(firstCell2, firstCell2.Worksheet.Cells(app.Rows.Count, firstCell2.Column).End(xlUp)) theSum2 = app.WorksheetFunction.Sum(theRange2) Он вставляет в этот столбец какие-то непонятные цифры и поэтому сумма получается не верной |
||
|
Номер ответа: 17 Автор ответа:  Jasmin Вопросов: 23 Ответов: 417 |
Профиль | | #17 | Добавлено: 28.11.08 19:09 |
А еще можно так:
Вместо "С" указать нужный столбец. |
||