Заливка цветом ячеек на разных листах - Страница 2

Дата: Суббота, 02.10.2021, 21:51 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Цитата Kuzmich, 01.10.2021 в 18:02, в сообщении № 20 (

)

[vba]

Код

Private Sub Worksheet_Activate()
Dim i As Long
With Worksheets("Лист2")
For i = 2 To 4
.Range("A" & i & ":H" & i).Interior.ColorIndex = Cells(i, "F").Interior.ColorIndex
Next
End With
End Sub

[/vba]

Спасибо, все работает без перезагрузки после сохранения файла.

Сообщение отредактировал Serge_007 - Вторник, 19.10.2021, 15:47

Дата: Вторник, 19.10.2021, 15:31 | Сообщение № 22

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Цитата Kuzmich, 01.10.2021 в 18:02, в сообщении № 20 (

)

В модуль листа1

Еще вопрос возник: как это сделать на нескольких листах одновременно?
Не нашел информации. Попробовал сделать так:
[vba]

Код

Private Sub Worksheet_Activate()
Dim i As Long
With Worksheets("Лист2" & "Лист3" &"Лист4")
For i = 2 To 4
.Range("A" & i & ":H" & i).Interior.ColorIndex = Cells(i, "F").Interior.ColorIndex
Next
End With
End Sub

[/vba]
не работает.
Выдает ошибку "runtime error".

Сообщение отредактировал Serge_007 - Вторник, 19.10.2021, 15:47

Дата: Вторник, 19.10.2021, 15:42 | Сообщение № 23

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

как это сделать на нескольких листах одновременно?

В модуле эта книга выбрать
[vba]

Код

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

[/vba]
и туда поместить макрос

Сообщение отредактировал Kuzmich - Вторник, 19.10.2021, 15:57

Дата: Вторник, 19.10.2021, 20:12 | Сообщение № 24

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Цитата Kuzmich, 19.10.2021 в 15:42, в сообщении № 23 (

)

и туда поместить макрос

Спасибо большое!

Дата: Вторник, 19.10.2021, 21:19 | Сообщение № 25

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Цитата Kuzmich, 19.10.2021 в 15:42, в сообщении № 23 (

)

В модуле эта книга выбрать

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

и туда поместить макрос

Рано обрадовался... Работает, но почему-то не на всех страницах.
Даже перезапуск файла не помогает.
P.S.: На всякий случай тестовый файл приложил

К сообщению приложен файл: _5.xlsm (175.3 Kb)

Дата: Вторник, 19.10.2021, 22:14 | Сообщение № 26

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

Работает, но почему-то не на всех страницах

А, если переходить на страницы с листа Исходные данные, где у вас заданы цветовые условия?
Добавьте в правую часть кода явно лит Исходные данные
[vba]

Код

Worksheets("Исходные данные").Cells(i, "E").Interior.ColorIndex

[/vba]

Сообщение отредактировал Kuzmich - Вторник, 19.10.2021, 22:31

Дата: Среда, 27.10.2021, 02:14 | Сообщение № 27

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Цитата Kuzmich, 19.10.2021 в 22:14, в сообщении № 26 (

)

Добавьте в правую часть кода явно лит Исходные данные

Так и не разобрался, куда добавлять. И "где эта правая сторона" )))

Дата: Среда, 27.10.2021, 17:23 | Сообщение № 28

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

Так и не разобрался, куда добавлять

У вас в коде есть строки
[vba]

Код

.Range("A" & i & ":H" & i).Interior.ColorIndex = Cells(i, "F").Interior.ColorIndex

[/vba]
В правую часть этого кода вставить явно лист Исходные данные
[vba]

Код

.Range("A" & i & ":H" & i).Interior.ColorIndex = Worksheets("Исходные данные").Cells(i, "F").Interior.ColorIndex

[/vba]
Удачи!

Дата: Суббота, 30.10.2021, 21:11 | Сообщение № 29

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Цитата Kuzmich, 27.10.2021 в 17:23, в сообщении № 28 (

)

У вас в коде есть строки

.Range("A" & i & ":H" & i).Interior.ColorIndex = Cells(i, "F").Interior.ColorIndex

В правую часть этого кода вставить явно лист Исходные данные

.Range("A" & i & ":H" & i).Interior.ColorIndex = Worksheets("Исходные данные").Cells(i, "F").Interior.ColorIndex

Спасибо! Но, там не одна такая строка (см. картинку). Во всех менять? Или я ошибаюсь?

К сообщению приложен файл: 7534573.jpg (75.2 Kb)

Дата: Суббота, 30.10.2021, 22:51 | Сообщение № 30

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

Во всех менять?

Да, во всех.