| Вопрос: Вставка формулы в ячейку | Добавлено: 08.07.07 23:22 |
Автор вопроса:  Алексей Дубаев
|
|
Здравствуйте.
Трудность такая: Есть исходная колонка с вещественными числами. Нужно в другой столбец выводить сумму 2-х смежных чисел из исходной колонки разделенную на 2. Например, с исходной колонке в ячейке A1 число 0,016, в ячейке А2 - 0,014. В ячейке-результате (В1) должно выводиться 0,030. Пробовал использовать код: For i = 5 To 28 NewSheet.Cells(i, 7).Formula = "=Sum(" + NewSheet.Cells(i, 2).Value + "+ " + NewSheet.Cells(i, 2).Value + ")" Next i для сложения, но о выводит число 300 в результате. Прошу помочь мне разобраться, в чем тут дело. Константы ячеек использовать нельзя, т.к. вся обработка идет в цикле, поэтому я использую NewSheet.Cells(i, 2).Value |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 09.07.07 00:06 |
|
1. заменить "запятую" на "точку" 2. при конкатенации строк использовать "&" Replace(CStr(NewSheet.Cells(i, 2).Value),",","." 
И вообще: 1. В приведенном коде складываются значения одной и той же ячейки. Опечатка? 2. В итоге при "правильном" коде получится =СУММ(0,014 + 0,016), а должны быть ссылки на ячейки, иначе бы можно просто Cells(i, 7)= Cells(i, 2) + Cells(i+1, 2) 3. "Константы ячеек" использовать надо, но в стиле RC. |
||
|
Номер ответа: 2 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #2 | Добавлено: 09.07.07 00:17 |
|
Dim i As Integer For i = 5 To 28 NewSheet.Cells(i, 7).Formula = "=Sum(" & "R" & i & "C" & 2 & "+ " & "R" & i + 1 & "C" & 2 & " "
Next |
||
|
Номер ответа: 3 Автор ответа: Алексей Дубаев Вопросов: 2 Ответов: 3 |
Профиль | | #3 | Добавлено: 10.07.07 20:38 |
| Все, работает | ||
Страница: 1 |