ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть задачка помогите решить
3 сообщений из 3, страница 1 из 1
Есть задачка помогите решить
    #34243763
Максим Моисеев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Максим Моисеев
Гость
При E3>=F3 значение ячейки С3 должно становиться равным 4 (С3=4), и оставаться равным четыре пока выполняется условие E3>G3, даже если E3 уже не >=F3, а например равно уже E3<F3. (Пока E3>G3 то С3=4 игнорируя соотношения между E3 и F3.) Но как только E3 становиться меньше или равно G3 (E3<=G3) то С3 должно становиться нулем (С3=0). Пока Е3 снова не станет больше или равно F3 (E3>=F3). В момент когда E3 становится больше или равно F3 (E3>=F3) в ячеку T3 должна выводится дата и время этого события, а в ячейку U3 должно выводится значение E3 которое было во время этого события. Величины E3, F3, G3 не статичны и все время меняются.
Спасибо если кто помодет мне написать эту формулу или массив....
Для более детального расмотрения прилогаю файл.
...
Рейтинг: 0 / 0
09.01.2007, 18:08:50
| Ответить | Цитировать | Написать  
Есть задачка помогите решить
    #34249539
Aliced
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aliced
Гость
В общем, может кто придумает потом что-то посильнее, а я только макросы научилась писать. Предлагаю такой макрос, который надо запускать после каждого изменения указанных ячеек. Для этого можно вывести макрос на панель инструментов, или повесить на сочетание клавиш.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Sub Makros1()
' Макрос записан 11.01.2007 (Alice)

    Range("F3").Select
    f = ActiveCell.Value
    Range("E3").Select
    e = ActiveCell.Value
    Range("C3").Select
    If (e >= f) Then
      If (ActiveCell.Value =  0 ) Then
         ActiveCell.Value =  4 
         Range("T3").Select
         'ActiveCell.Value = now
         'тут нужно написать функцию даты-времени,
         'а справка у меня сейчас не работает, а искать и ставить-долго
         '(у меня винт с инсталлами залетел :(((
         Range("U3").Select
         ActiveCell.Value = e
      End If
      Else: ActiveCell.Value =  4 
    End If
    
    Range("E3").Select
    e = ActiveCell.Value
    Range("G3").Select
    g = ActiveCell.Value
    Range("C3").Select
    If (e > g) Then ActiveCell.Value =  4 
    If (e <= g) Then ActiveCell.Value =  0 
        
End Sub

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

Для того, чтоб записать этот макрос в твой файл, запиши в него любой макрос с помощью меню Сервис/макрос/начать запись, потом открой редактор VisualBasic там же и исправь на нужный код. не забудь сохранить ;)
...
Рейтинг: 0 / 0
11.01.2007, 16:45:21
| Ответить | Цитировать | Написать  
Есть задачка помогите решить
    #34249867
Максим Моисеев
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Максим Моисеев
Гость
AlicedВ общем, может кто придумает потом что-то посильнее, а я только макросы научилась писать. Предлагаю такой макрос, который надо запускать после каждого изменения указанных ячеек. Для этого можно вывести макрос на панель инструментов, или повесить на сочетание клавиш.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Sub Makros1()
' Макрос записан 11.01.2007 (Alice)

    Range("F3").Select
    f = ActiveCell.Value
    Range("E3").Select
    e = ActiveCell.Value
    Range("C3").Select
    If (e >= f) Then
      If (ActiveCell.Value =  0 ) Then
         ActiveCell.Value =  4 
         Range("T3").Select
         'ActiveCell.Value = now
         'тут нужно написать функцию даты-времени,
         'а справка у меня сейчас не работает, а искать и ставить-долго
         '(у меня винт с инсталлами залетел :(((
         Range("U3").Select
         ActiveCell.Value = e
      End If
      Else: ActiveCell.Value =  4 
    End If
    
    Range("E3").Select
    e = ActiveCell.Value
    Range("G3").Select
    g = ActiveCell.Value
    Range("C3").Select
    If (e > g) Then ActiveCell.Value =  4 
    If (e <= g) Then ActiveCell.Value =  0 
        
End Sub

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

Для того, чтоб записать этот макрос в твой файл, запиши в него любой макрос с помощью меню Сервис/макрос/начать запись, потом открой редактор VisualBasic там же и исправь на нужный код. не забудь сохранить ;)

Спасибо попробую....)))
...
Рейтинг: 0 / 0
11.01.2007, 18:25:09
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть задачка помогите решить
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34243763&tid=2183658]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 61ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 237ms
total:  375ms
созд. / загр.: 375ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]