Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
If Target.Value <> "" Then
With Rows(Target.Row)
.Font.ColorIndex = 1
.Interior.ColorIndex = 15
.Interior.Pattern = xlSolid
End With
End If
End If
End Sub
Как ообусловить ряд в Excel
Вот есть такая запись (благосклонно предоставленная форумчанами)
Все великолепно работает - спасибо большое. Но появилась подзадача: красить ряды с номером больше 25 (т.е. с 26го и дальше) в другой цвет и цвет шрифта в первой ячейке ряда делать белым цветом. Вот как "обусловить", чтобы и номер колонки контролировался и номер ряда. Т.е. ряды по 25-й красить как и прежде, а те, что дальше, другим цветом?
Заранее спасибо.
Код:
Все великолепно работает - спасибо большое. Но появилась подзадача: красить ряды с номером больше 25 (т.е. с 26го и дальше) в другой цвет и цвет шрифта в первой ячейке ряда делать белым цветом. Вот как "обусловить", чтобы и номер колонки контролировался и номер ряда. Т.е. ряды по 25-й красить как и прежде, а те, что дальше, другим цветом?
Заранее спасибо.
Вот так:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
If Target.Value <> "" Then
With Rows(Target.Row)
.Font.ColorIndex = 1
.Cells(1, 1).Font.ColorIndex = 2
If Target.Row<=25 Then
.Interior.ColorIndex = 15
Else
.Interior.ColorIndex = 16
End If
.Interior.Pattern = xlSolid
End With
End If
End If
End Sub
If Target.Column = 8 Then
If Target.Value <> "" Then
With Rows(Target.Row)
.Font.ColorIndex = 1
.Cells(1, 1).Font.ColorIndex = 2
If Target.Row<=25 Then
.Interior.ColorIndex = 15
Else
.Interior.ColorIndex = 16
End If
.Interior.Pattern = xlSolid
End With
End If
End If
End Sub
Цитата: Cutty Sark
Вот так:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
If Target.Value <> "" Then
With Rows(Target.Row)
.Font.ColorIndex = 1
.Cells(1, 1).Font.ColorIndex = 2
If Target.Row<=25 Then
.Interior.ColorIndex = 15
Else
.Interior.ColorIndex = 16
End If
.Interior.Pattern = xlSolid
End With
End If
End If
End Sub
If Target.Column = 8 Then
If Target.Value <> "" Then
With Rows(Target.Row)
.Font.ColorIndex = 1
.Cells(1, 1).Font.ColorIndex = 2
If Target.Row<=25 Then
.Interior.ColorIndex = 15
Else
.Interior.ColorIndex = 16
End If
.Interior.Pattern = xlSolid
End With
End If
End If
End Sub
Сорри, конечно, а если у человека появится новая 'подзадача' с 31 рядом..
Что тогда?!!
Не легче отправить человека почитать встроенный Help, литературу?!.. чем объяснять элементарные решения, описанные где попало!!
Цитата: koltaviy
Сорри, конечно, а если у человека появится новая 'подзадача' с 31 рядом..
Что тогда?!!
Не легче отправить человека почитать встроенный Help, литературу?!.. чем объяснять элементарные решения, описанные где попало!!
Что тогда?!!
Не легче отправить человека почитать встроенный Help, литературу?!.. чем объяснять элементарные решения, описанные где попало!!
Я тебя, конечно, поддерживаю в стремлении научить людей читать хелп (Кстати, тебя как зовут? Меня - Сергей). Но вот конкретно Dmitry2064 растёт на наших глазах. От Ворда уже перебрался к Экселю. Почему бы не помочь? Видно, что человек постепенно, но планомерно учится. А вот студентов-халявщиков-"помогите-выгоняют" - этих надо гонять нещадно... Я так думаю. ;-)
Цитата: Cutty Sark
Я тебя, конечно, поддерживаю в стремлении научить людей читать хелп (Кстати, тебя как зовут? Меня - Сергей). Но вот конкретно Dmitry2064 растёт на наших глазах. От Ворда уже перебрался к Экселю. Почему бы не помочь? Видно, что человек постепенно, но планомерно учится. А вот студентов-халявщиков-"помогите-выгоняют" - этих надо гонять нещадно... Я так думаю. ;-)
А меня Костя.
Может он и растет, но, если бы читал литературу - рос бы куда быстрей..
Действительно, все элементарно. Мог бы и сам дотумкаться. Только физиология мозга (возможно моего) такова, что "по аналогии" намного легче соображается, чем листая книжки. Хотя Костя прав. Надо самому стучаться головой, а не эксплуатировать других. Но это так сложно. Хоть и читаю потихоньку учебник по ВБА (будете смеяться, но стал его искать, чтобы посмотреть автора, и не нашел. Вот так читатель!) :o.
Ну и кроме того, что вы хотели? Сила есть - ума ж не надо!:)
Ещё можно так цвет менять:
for i=1 to 255
form1.BackColor=RGB(255-1,i,0) 'Изменяет цвет от красного к зелёному
next i
for i=1 to 255
form1.BackColor=RGB(255-1,i,0) 'Изменяет цвет от красного к зелёному
next i