Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
BusTeR
Зарегистрирован: 27.02.2003 Сообщения: 318 Откуда: Lugansk
|
Добавлено: Чт Авг 23 2007 23:43 Заголовок сообщения: MS EXCEL зафиксировать значение из формулы |
|
|
Привет всем!
Стала такая задача. Есть главная таблица в которую постоянно подгружаются данные из смежных. По мере заполнения некоторых полей в этих смежных таблицах растёт сумма в главной таблице. Так вот стоит задача, чтобы когда эта сумма доходила, к примеру, до 100000, то в пустую ячейку в какую-нибудь вписывалось бы 100000 и некое значене из какой-то другой ячейки, но эти данные были сохранены как текст. Если сумма доходила до 200000, то, соответственно, в следующей ячейке и т.д. через интервал в 100000. Как такое сделать?
Заранее спасибо! |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005 Сообщения: 358 Откуда: откуда все люди родятся
|
Добавлено: Пт Авг 24 2007 20:30 Заголовок сообщения: |
|
|
А ты в VBA это все реализовать хочешь иль что-нить другое? |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
BusTeR
Зарегистрирован: 27.02.2003 Сообщения: 318 Откуда: Lugansk
|
Добавлено: Пт Авг 24 2007 23:14 Заголовок сообщения: |
|
|
без разницы...подскажите плиз как это сделать с пом. любых средств. |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005 Сообщения: 358 Откуда: откуда все люди родятся
|
Добавлено: Сб Авг 25 2007 15:23 Заголовок сообщения: |
|
|
Ну, в VBA сделать это не сложно. Исходник писать не буду, но вот тебе алгоритм:
Делишь сумму на 100000 без остатка; тем самым определяешь, в какую ячейку надо записать тот текст. Если ячейки для текста по умолчанию пустые, проверь есть ли там (в этой ячейке) какая-нить запись. Если есть, то больше ничего делать не надо (запись уже была проведена). Если нет, то пишешь туда, что тебе надо.
Вот такая простая программка... Запускаешь ее при каждом изменении главной таблицы. Удачи! ![Wink](images/smiles/icon_wink.gif) |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
BusTeR
Зарегистрирован: 27.02.2003 Сообщения: 318 Откуда: Lugansk
|
Добавлено: Вс Авг 26 2007 10:05 Заголовок сообщения: |
|
|
спасиб...я вообще в VBA раньше ничё не писал...только начал....не подскажите, как сделать, чтобы этот макрос выполнялся по таймеру? ну например раз в 5 секунд? |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005 Сообщения: 358 Откуда: откуда все люди родятся
|
Добавлено: Пн Авг 27 2007 19:25 Заголовок сообщения: |
|
|
Посмотрел в книжке - функции такой не нашел. Есть, в принципе, один способ (правда, корявый):
Код: |
Dim MyVar
MyMark:
'Некий код
MyVar = DateAdd("s", 5, Now)
While Now < MyVar: Wend
GoTo MyMark
|
|
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
|