Создание макроса, меняющего цвет ячейки

@Autoruner · Регистрация: 09.12.2013

Author24 — интернет-сервис помощи студентам

Помогите разобраться. В модуле прописываю

Visual Basic

Sub Макрос1()
 
End Sub
Sub м1()
    Dim i As Integer
     For i = 1 To 6
         If Sheets("Лист1").Cells(i + 1, 8) < 0 Then
    Call Изменение_цвета(i + 1, 8, "красный")
    Else:
        If Sheets("Лист1").Cells(i + 1, 8) > 10000 Then
    Call Изменение_цвета(i + 1, 8, "зеленый")
    End If
    End If
Next
End Sub

И ничего не происходит.

@Alex Dark · 25.04.2014, 22:33

У меня всё меняется
Только код не такой как у вас

Visual Basic

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'
 
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
End Sub

Добавлено через 3 минуты
PS в VB нет процедуры или функции с названием Изменение_цвета
Что у вас в вашей процедуре с этим названием, запустите под отладчиком и посмотрите результат

@Hugo121 · 26.04.2014, 21:33

Может быть если выполнять Sub м1() - то что-то и произойдёт

А Sub Макрос1() точно ничего делать не будет!

@Alex Dark · 26.04.2014, 21:47

Сообщение от Hugo121

Может быть если выполнять Sub м1() - то что-то и произойдёт

Может быть. А может и нет.
Гадать нет смысла.
Автор пропал. Содержания Изменение_цвета() нету.
Да и что он (автор) запускал (вы совершенно правы) то же под большим вопросом.

@Hugo121 6930 / 2838 / 545 Регистрация: 19.10.2012 Сообщений: 8,670
	26.04.2014, 21:33	3
	Может быть если выполнять Sub м1() - то что-то и произойдёт А Sub Макрос1() точно ничего делать не будет! 0

@Alex Dark Наблюдатель 457 / 192 / 33 Регистрация: 01.05.2012 Сообщений: 1,028
	26.04.2014, 21:47	4
	Сообщение от Hugo121 Может быть если выполнять Sub м1() - то что-то и произойдёт Может быть. А может и нет. Гадать нет смысла. Автор пропал. Содержания Изменение_цвета() нету. Да и что он (автор) запускал (вы совершенно правы) то же под большим вопросом. 0

Создание макроса, меняющего цвет ячейки

Решение