Сообщений в теме: 5006

[Fide]

Тут же спички нельзя

[Sumrak32]

а чем обычный мангал не устраивает?...

[*Nox*]

какую тока фигню не придумают )))

[seri-kz-han]

можно много палок закинуть.

виагра чтоли?

[zavuch]

вот!! я давно предлагал виагру!!

[seri-kz-han]

мне черненькую

[Magistr]

вот!! я давно предлагал виагру!!

Зачем?

[seri-kz-han]

вот!! я давно предлагал виагру!!

Зачем?

ему ешшо чонить от склероза.

[zavuch]

спички низя а виагру дают, поэтому обменяем её на спички!

много списек.. ой.. чё эт я написал случайно ))

[Magistr]

Без макроса мигалки точно не будет?

[zavuch]

не прецтавляю как..

[Magistr]

Могешь макрос слабать?

[zavuch]

а ячейка может быть любая в листе, да? а как выставлять для какой ячейки какие ограничения, ячеек же мульоны..

[Magistr]

а ячейка может быть любая в листе, да? а как выставлять для какой ячейки какие ограничения, ячеек же мульоны..

Любая. Пусть ссылается на значение в определенной ячейке.

[zavuch]

хз как, могу попробовать, но можт и не получицца

[zavuch]

м мигать она должна непрестанно, поуа значение не поменяешь? а то если раз пять мигнёт, это можно и не заметить, и тогда от усл.форматирования ничем толком отличаться не будет

[zavuch]

ещё и на любом листе в книге или лист может быть один конкретный?

[Magistr]

Постоянно.
Пусть начнет мигать, если значение в ней стало меньше, чем в другой.
Для начала конкретный.

Сообщение отредактировал Magistr: 15.01.2014, 15:42:48

[Weise]

Маги, а самому макрос написать никак?

[zavuch]

В код листа, за ячейками которого надо следить, вставить это:

 

Sub Worksheet_Change(ByVal target As Range)
On Error GoTo e
Set Module1.cel = target
Call Module1.migalka
e:
End Sub

 

Ещё сделать в книге модульный лист, в который вставить это:

 

Global cel As Range
Sub migalka()
On Error GoTo e
cels = Array("a1", "b2")
rest = Array(5, 10)
For i = 0 To UBound(cels)
    If LCase(Replace(cel.Address, "$", "")) = cels(i) And cel.Value >= rest(i) Then
    DoEvents
    Application.OnTime Now + TimeValue("0:0:2"), "migalka"
        If cel.Interior.Color = RGB(255, 0, 0) Then
            cel.Interior.Pattern = xlNone
        Else
            cel.Interior.Color = RGB(255, 0, 0)
        End If
    Else
        'cel.Interior.Pattern = xlNone
    End If
Next i
e:
End Sub

 

вот этот код задаёт, в каких ячейках отслеживаемого листа при достижении какого значения нужно мигать:

cels = Array("a1", "b2")
rest = Array(5, 10)
 

то есть если в том листе где вбахан код слежки WorksheetChange в ячейке a1 пославить число от 5 и выше, она будет раз в 2 секунды красно-белой заливкой баловаться..

если при этом ещё и в b2 поставить 10 или больше, то она начнёт мигать, а a1 перестанет мигать, но останется красной..

параллельно мигание не получилось, но по каждой последней ячейке, в которой что-то меняешь, эт работает

правда если ячеек дофига, наверное, они будут тормозить друг-друга и экскль вешать

 

ещё круче кажца уже не напишу )

мож в ветку по программированию под эксель забросить, там какой-то вумный макросник сидел ))

 

кинь емэйл в ЛС, книгу сброшу с кодом

Сообщение отредактировал zavuch: 15.01.2014, 16:31:44