Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel / 17 сообщений из 17, страница 1 из 1
11.11.2011, 21:26
    #37523059
Хиль
Хиль
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Здравствуте, уважаемые форумчане! Помогите пожалуйста с задачей. Завтра сдавать работу. Я не программист, все сделано методом тыка. Есть некая таблица выполнения заданий в течении некоторого времени. Если нет отметки о том что задание выполнено в соответствующей ячейке должно замигать "t истекло". Посмотрите пожалуйста в чем я накосячила
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 21:37
    #37523076
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
ХильПосмотрите пожалуйста в чем я накосячилаОтсутствует определение переменной RunWhen
Отсутствует End With
Отсутствует именованный диапазон O7:O51"t_истекло

В общем-то отсутствует понимание написанного в итоге
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 21:39
    #37523081
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub StartBlink()
With ThisWorkbook.Worksheets("Лист1").Range("O8").Font
        If .ColorIndex =  3  Then ' Red Text
            .ColorIndex =  9  ' Black Text
        Else
            .ColorIndex =  3  ' Red Text
        End If
    End With
    RunWhen = Now + TimeSerial( 0 ,  0 ,  1 )
    Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Sub StopBlink()
With ThisWorkbook.Worksheets("Лист1").Range("O8").Font.ColorIndex = xlColorIndexAutomatic
    RunWhen = Now + TimeSerial( 0 ,  0 ,  1 )
    Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , False
End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:08
    #37523105
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Shocker.Pro,

Подскажите как сделать, чтобы из трех слов функции в ячейке мигало только "t_истекло". Помогите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:16
    #37523113
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Прапор,
Люди, помогите!!! Очень надо!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:22
    #37523118
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Прапорчтобы из трех слов функции в ячейке мигалоне смог понять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:25
    #37523120
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Shocker.Pro,

А что именно.
Вот таблица в EXCEL. В одной из ячеек прописаны функции (ЕСЛИ((P7)="факт выполнено";"выполнено";ЕСЛИ((J3-N7)>=0;"t истекло";ЕСЛИ((L7-J3)>0;" ";"выполняется"))). Мне надо чтобы не все слова в ячейке мигали, а только "t истекло".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:32
    #37523123
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
ну вот так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub StartBlink()

Dim w As Range
For Each w In ThisWorkbook.Worksheets("Лист1").Range("O7:O50")
  If w.Value = "t истекло" Then
    With w.Font
        If .ColorIndex =  3  Then ' Red Text
            .ColorIndex =  9  ' Black Text
        Else
            .ColorIndex =  3  ' Red Text
        End If
    End With
  End If
Next
RunWhen = Now + TimeSerial( 0 ,  0 ,  1 )
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , True

End Sub

вторую процедуру - по аналогии
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:38
    #37523128
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Shocker.Pro,

Что-то я вторую сделала по аналогии, но дает ошибку. Подскажите до конца. Мерси заранее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:43
    #37523134
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Прапор,

Пожалуйста!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:51
    #37523141
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Shocker.Pro
Подскажите, где я сделала ошибку:

Sub StopBlink()
For Each w In ThisWorkbook.Worksheets("Ëèñò1").Range("O7:O50").Font.ColorIndex = xlColorIndexAutomatic
If w.Value = "t èñòåêëî" Then
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , False
End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 22:58
    #37523147
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Мой спасатель Вы где?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 23:15
    #37523165
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Убрать .Font.ColorIndex = xlColorIndexAutomatic и End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 23:19
    #37523169
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Antonariy,
Я все убрала, но все равно ошибку дает. Вот что у меня:

Sub StopBlink()
For Each w In ThisWorkbook.Worksheets("Ëèñò1").Range("O7:O50").WithFont
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 23:31
    #37523185
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Теперь сделала так и все равно ошибка. Подскажите

Sub StopBlink()
For Each w In ThisWorkbook.Worksheets("Лист1").Range("O7:O50")
If w.Value = "t истекло" Then
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , False
End If
Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 23:35
    #37523192
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Какая ошибка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 23:55
    #37523215
Прапор
Прапор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel
Antonariy,
Все, всем спасибо. У меня замигало. Я скажу даже большое спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 262ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158310]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 12ms
total:  262ms
x
x
Закрыть


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