Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть задачка помогите решить / 3 сообщений из 3, страница 1 из 1
09.01.2007, 18:08:50
    #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
| Ответить | Цитировать | Написать  
11.01.2007, 16:45:21
    #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, 18:25:09
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть задачка помогите решить / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 285ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183658]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 42ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 17ms
get tp. blocked users:
 1ms
others: 202ms
total:  285ms
x
x
Закрыть


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