Здравствуйте Уважаемые , посмотрите и если есть возможность замените . Есть варианты с фиксацией значения , но они не устраивают , грузят эксель . Нужен самый простой вариант , с последующей перезагрузкой руками ( фиксация при выводе по dde ) Гуглил много не нашёл ,сам переделать не могу , разряд не позволяет . Спасибо !

Совершенно верно , в В1 значение должно попадать при выводе по DDE . При событии change B1 "обмануть " не получается .

В С1 значение меняется однократно , не меняется при новых изменениях в А1

Казанский ! Спасибо , работает . А ещё вопрос , можно ли соединить на одном листе Ваш вариант с : Private Sub Worksheet_Calculate()
If [D2] < [D1] Then [D2] = [D1]
End Sub ( нахождение максимума ) Попробовал , ошибку выдаёт , потом вообще день коту под хвост , эксель вылетел , конечно без сохранения . Соединить хотел ,чтобы не множить листы лишние . Спасибо .

Казанский , проблему выше написал , так и прописал как Вы указали , потом " дебуккк " , и вылетел эксель , было открыто 15 книг , может из за этого косяк ( типа не лезь , мы работаем ) . Попробую сегодня вечером ещё раз . Кстати , у меня к Вам вопрос : влияет ли количество листов в книге на производительность эксель ? Например есть 15 листов , в каждом нахождение максимума минимума , чтоб избежать возможных косяков , делаю ещё 15 для другого события . Книг штук 20 . Я не про вычислительные возможности , а например про приём по DDE .

big-duke , так ? Исправьте , если нет , пока нет возможности проверить .
Private Sub Worksheet_Calculate()
application.enableevents=false
true
Cells(1, 3) = Cells(1, 1)
If [D2] < [D1] Then [D2] = [D1]
End Sub

при попытке записать true красным горит .

Так работает :


Модератор: Учимся использовать тэги оформления кода - FAQ
Но к сожалению изменение значения в D1 , D2 изменяет и уже " зафиксированное " значение в C3 . Придётся на разные листы разносить .