den45444
Дата: Четверг, 13.08.2015, 14:31 |
Сообщение № 21
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
miver , еще один вопрос. В столбце Е добавляется значение с Листа1 (СМЕТА) со столбца 7. Можно ли вместо этого добавления просто поставить формулу, которая будет умножать кол-во и цену в листе "Этап". Короче говоря там нужна формула, а не значение, чтобы можно было поменять в случае кол-во или цену.
miver , еще один вопрос. В столбце Е добавляется значение с Листа1 (СМЕТА) со столбца 7. Можно ли вместо этого добавления просто поставить формулу, которая будет умножать кол-во и цену в листе "Этап". Короче говоря там нужна формула, а не значение, чтобы можно было поменять в случае кол-во или цену.den45444
Ответить
Сообщение miver , еще один вопрос. В столбце Е добавляется значение с Листа1 (СМЕТА) со столбца 7. Можно ли вместо этого добавления просто поставить формулу, которая будет умножать кол-во и цену в листе "Этап". Короче говоря там нужна формула, а не значение, чтобы можно было поменять в случае кол-во или цену.Автор - den45444 Дата добавления - 13.08.2015 в 14:31
miver
Дата: Четверг, 13.08.2015, 14:45 |
Сообщение № 22
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация:
37
±
Замечаний:
0% ±
Excel 2010
den45444 , Аппетит приходит во время еды Удали сохранение [vba]Код
rez(1, UBound(rez, 2)) = "Итого:" ' rez(5, UBound(rez, 2)) = arr(i, 7)
[/vba] Добавь строчку занесения формулы [vba]Код
If start Then Rows("6:" & 4 + UBound(rez, 2)).Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow Range("A5", Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Address).Rows.Value = Application.Transpose(rez) Range("A5").Offset(UBound(rez, 2) - 1).Font.Bold = True Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Font.Bold = True Range("A5").Offset(UBound(rez, 2) - 1).HorizontalAlignment = xlCenter Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Formula = "=SUM(E6:E" & UBound(rez) + 3 & ")" 'вот она Else MsgBox "Номер этапа не найден!" End If
[/vba]
den45444 , Аппетит приходит во время еды Удали сохранение [vba]Код
rez(1, UBound(rez, 2)) = "Итого:" ' rez(5, UBound(rez, 2)) = arr(i, 7)
[/vba] Добавь строчку занесения формулы [vba]Код
If start Then Rows("6:" & 4 + UBound(rez, 2)).Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow Range("A5", Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Address).Rows.Value = Application.Transpose(rez) Range("A5").Offset(UBound(rez, 2) - 1).Font.Bold = True Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Font.Bold = True Range("A5").Offset(UBound(rez, 2) - 1).HorizontalAlignment = xlCenter Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Formula = "=SUM(E6:E" & UBound(rez) + 3 & ")" 'вот она Else MsgBox "Номер этапа не найден!" End If
[/vba]miver
Ответить
Сообщение den45444 , Аппетит приходит во время еды Удали сохранение [vba]Код
rez(1, UBound(rez, 2)) = "Итого:" ' rez(5, UBound(rez, 2)) = arr(i, 7)
[/vba] Добавь строчку занесения формулы [vba]Код
If start Then Rows("6:" & 4 + UBound(rez, 2)).Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow Range("A5", Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Address).Rows.Value = Application.Transpose(rez) Range("A5").Offset(UBound(rez, 2) - 1).Font.Bold = True Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Font.Bold = True Range("A5").Offset(UBound(rez, 2) - 1).HorizontalAlignment = xlCenter Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Formula = "=SUM(E6:E" & UBound(rez) + 3 & ")" 'вот она Else MsgBox "Номер этапа не найден!" End If
[/vba]Автор - miver Дата добавления - 13.08.2015 в 14:45
den45444
Дата: Четверг, 13.08.2015, 14:59 |
Сообщение № 23
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Formula = "=SUM(E6:E" & UBound(rez) + 3 & ")"
не работает. Формула без макроса выглядит так: "=ПРОИЗВЕД(B5*D5)" и так на каждой строке в столбце Е.
Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Formula = "=SUM(E6:E" & UBound(rez) + 3 & ")"
не работает. Формула без макроса выглядит так: "=ПРОИЗВЕД(B5*D5)" и так на каждой строке в столбце Е.den45444
Ответить
Сообщение Range("A5").Offset(UBound(rez, 2) - 1, UBound(rez) - 1).Formula = "=SUM(E6:E" & UBound(rez) + 3 & ")"
не работает. Формула без макроса выглядит так: "=ПРОИЗВЕД(B5*D5)" и так на каждой строке в столбце Е.Автор - den45444 Дата добавления - 13.08.2015 в 14:59
miver
Дата: Четверг, 13.08.2015, 15:14 |
Сообщение № 24
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация:
37
±
Замечаний:
0% ±
Excel 2010
ВотЪ
Ответить
Сообщение ВотЪ Автор - miver Дата добавления - 13.08.2015 в 15:14
den45444
Дата: Четверг, 13.08.2015, 15:17 |
Сообщение № 25
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
miver , ТО ЧТО НАДО +++++++++++++++++
miver , ТО ЧТО НАДО +++++++++++++++++den45444
Ответить
Сообщение miver , ТО ЧТО НАДО +++++++++++++++++Автор - den45444 Дата добавления - 13.08.2015 в 15:17