вычислить цикл - Microsoft Office Excel

fike · 01.04.2009, 15:49

Здравствуйте, уважаемые форумчане! Помогите решить проблемку. Есть таблица, столбец "факт" вычисляется по такой формуле: первоначальное значение столбца "факт" + значение столбца "за день". Т.е. (см. вложение) R6C3=R6C3+R6C5. Значение в ячейку R6C5 вводится. Подскажите решение. Спасибо.

Marchuk · 01.04.2009, 17:09

Решение чего ? Вопрос сформулируйте пожалуйста более корректно и понятнее.

fike · 02.04.2009, 09:52

Формулирую: как организовать вычисление значений столбца "факт", если при вычислении в формуле используются его же предыдущие значения? получается цикл с одной итерацией? или можно без цикла? Во вложении пример таблицы, почему при изменении одного значения столбца "за день" меняются все значения таблицы? Прошу прощения за много вопросов, но мне надо и хочется разобраться. Спасибо.

Marchuk · 02.04.2009, 10:40

смотри , разбирайся, код на странице листа

IgorGO · 02.04.2009, 10:44

судя по содержимому таблицы, я бы предложенную Marchuk"ом процедуру заменил на следующее:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
  If ((Target.Column - 1) Mod 4 = 0) And (Target.Column > 1) Then
    Cells(Target.Row, Target.Column - 2) = Cells(Target.Row, Target.Column - 2) + Target
  End If
End Sub

fike · 02.04.2009, 13:51

Marchuk, IgorGO большое спасибо! Все работает, сейчас буду разбираться!

Marchuk · 02.04.2009, 14:06

Цитата:

Сообщение от IgorGO

судя по содержимому таблицы, я бы предложенную Marchuk"ом процедуру заменил на следующее:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
  If ((Target.Column - 1) Mod 4 = 0) And (Target.Column > 1) Then
    Cells(Target.Row, Target.Column - 2) = Cells(Target.Row, Target.Column - 2) + Target
  End If
End Sub

Почему так?

01.04.2009, 17:09	#2
Marchuk Пользователь Регистрация: 27.03.2009 Сообщений: 78	Решение чего ? Вопрос сформулируйте пожалуйста более корректно и понятнее. Знание формул - Слабо; Знание макросов - Средне; Оформляем воздушными шарами.

02.04.2009, 10:44	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	судя по содержимому таблицы, я бы предложенную Marchuk"ом процедуру заменил на следующее: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If ((Target.Column - 1) Mod 4 = 0) And (Target.Column > 1) Then Cells(Target.Row, Target.Column - 2) = Cells(Target.Row, Target.Column - 2) + Target End If End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите вычислить интерационный цикл.	Anarion	Помощь студентам	2	22.04.2009 14:41
Вычислить.	svobodys	Помощь студентам	7	16.12.2008 17:21
Вычислить.	Artimbulidor	Помощь студентам	4	24.11.2008 19:10
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until)	Mr.User	Помощь студентам	9	23.11.2007 01:34

02.04.2009, 13:51	#6
fike Регистрация: 31.10.2008 Сообщений: 4	Marchuk, IgorGO большое спасибо! Все работает, сейчас буду разбираться!