Выделение строки цветом и вставка символа - Microsoft Office Excel

konistra · 16.06.2010, 19:25

Здравствуйте, помогите доделать код или переписать его. Я пробовал не вышло.
В общем есть столбец О или 15 по счету при нажатии на ячейку в этом столбце в этой ячейке ставится "+" и строка до упора влево выделяется цветом (светло синим (не особо важно сам сменю)) если опять нажать на плюс в столбце О то "+" меняется на "" и заливка исчезает.
Код находится лист 1 " Текущие заявки" Выделен зеленым
Спасибо.

nilem · 16.06.2010, 20:35

Так попробуйте

Код:

.....
    If Not Intersect(Target, Range("O727:O1000")) Is Nothing Then
        If Target = "" Then
            Target = "+"
        Else
           Target = ""
        End If
    End If
End Sub

konistra · 16.06.2010, 20:47

не работает

nilem · 16.06.2010, 20:52

Не может быть. Вот в файле.

konistra · 16.06.2010, 21:16

Все спасибо доделал работает как надо.
p.s вставил код также не работала. в скачаной все работает.

16.06.2010, 20:35	#2
nilem Форумчанин Регистрация: 25.04.2010 Сообщений: 616	Так попробуйте Код: `..... If Not Intersect(Target, Range("O727:O1000")) Is Nothing Then If Target = "" Then Target = "+" Else Target = "" End If End If End Sub`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выделение цветом столбца и строки активной ячейки	cerberochek	Microsoft Office Excel	7	28.11.2012 12:56
вставка символа "конец строки" (Pascal)	ТаняН	Помощь студентам	2	05.06.2010 15:08
Выделение цветом последней строки DBGrig	Yura_S	Помощь студентам	2	28.10.2009 08:35
Функции управления цветом символа BC++3.1	Go6a	Помощь студентам	6	02.04.2008 21:16

16.06.2010, 20:47	#3
konistra Пользователь Регистрация: 27.05.2010 Сообщений: 50	не работает

16.06.2010, 21:16	#5
konistra Пользователь Регистрация: 27.05.2010 Сообщений: 50	Все спасибо доделал работает как надо. p.s вставил код также не работала. в скачаной все работает.