Автоматическое копирование значений ячеек

Автор vater, 05.06.2012, 13:50

« назад - далее »

vater

Здравствуйте.
Проблема заключается в том, что ручное копирование значения, или, просто, прописывание значений слишком долгое занятие, да и есть шанс ошибки. Хочется узнать, есть ли возможность копировать значения из, например, ячеек А1:В3 (там ведется расчет) в (А10:В12) + 1, то есть чтобы при нажатии на кнопку или "расширении формулы" из фиксированных ячеек, значения копировались в ячейки на 1 ниже предыдущей?
Надеюсь в приложенной книге достаточно описания.

IKor

Не очень понятно что и куда вы хотите переносить...
На первый взгляд, Вам подходит очевидная формула для ячейки F102: =ОКРУГЛ(J4*100;0)

Однако, судя по всему Вы хотите возвращать значения не в одну, а в ряд ячеек в зависимости от некоторого условия ("нажатия на кнопку" ???). В этом случае можно рекомендовать использовать единую формулу для всего ряда результатов расчетов, которая будет возвращать либо расчетные, либо пустые значения в зависимости от некоторого условия...

P.S. Уточните, пожалуйста, что для Вас исходные данные и какой результат Вы хотите получить - нарисуйте руками.

Poltava

Полагаю как то так но уточнить задание конечно хотелось бы
Не пытайтесь спорить с дебилом. Иначе вы опуститесь до его уровня. Где он задавит вас своим опытом.

vater

Цитата: Poltava от 05.06.2012, 17:28
Полагаю как то так но уточнить задание конечно хотелось бы

Да, именно так.
Извините, я полагаю вы сделали это через встроенный язык программирования?

Option Explicit
Option Private Module
Sub ÇàïèñàòüÇíà÷åíèÿ()
Dim LastRow As Long
LastRow = Range("F" & Rows.Count).End(xlUp).Row
Cells(LastRow + 1, 6).Value = WorksheetFunction.Round(Range("J3").Value * 100, 0)
Cells(LastRow + 1, 7).Value = WorksheetFunction.Round(Range("J4").Value * 100, 0)
Cells(LastRow + 1, 8).Value = WorksheetFunction.Round(Range("J5").Value * 100, 0)
End Sub


или я не там смотрю?

ShAM

Вы зрите прямо в корень. Язык программирования Visual Basic for Applications - сокращенно VBA.