Как обновлять значения в ячейках автоматически? и упростить код?

[budmit]

Подскажите, пожалуйста, как упростить код и сделать его читабельнее :
значение ячеек являются некими параметрами и используется в коде - в логике
внутри логики их значения меняются
эти изменения надо чтобы приводили к изменению значения в отображаемой ячейки
при этом нет желания переприсваивать значение постоянно - это захламляет код.
ну и логику описывать без ссылок на конретные ячейки а только единожды связав переменную с конкретной ячейкой.
Надеюсь понятно объяснил .
Спасибо.

[kuklp]

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

Подскажите, пожалуйста, как упростить код и сделать его читабельнее :
...
Надеюсь понятно объяснил .
Спасибо.

Не-а! Варианты:
1) прочитать правила форума, выложить файл со своим макросом - Вам постараются помочь;
2) почитать форум, тут полно примеров блестящего программирования(это дольше, но и результат для Вас полезней).

[budmit]

' область связывания переменных с ячейками
Сorrect = Worksheets("dde").Cells(8, 2)
pips = Worksheets("dde").Cells(9, 2)
LastPr = Worksheets("dde").Cells(6, 2)
HH = Worksheets("dde").Cells(3, 2)
MP_Tr = Worksheets("dde").Cells(2, 2)

' логика
If MP_Tr.Value = 1 And LastPr.Value > HH.Value + pips.Value Then
HH.Value = Int(LastPr.Value / Correct.Value) * Correct.Value
End If

почему так не работает и что надо сделать чтобы так примерно писать? без ссылок на ячейки и без постоянных пере присваиваний?

[kuklp]

budmit, Вы читать умеете? Я писал о файле с макросом, а не о кусках кода. Касательно кусков. Переменным типа range значения присваиваются так:

Set Сorrect = Worksheets("dde").Cells(8, 2)

И далее по списку.

[budmit]

ох и тон у Вас