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

Регистрация

Напомнить пароль

= Мир MS Excel/Заливка цветом ячеек на разных листах - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Заливка цветом ячеек на разных листах (Макросы/Sub)

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

Дата: Четверг, 30.09.2021, 20:43 | Сообщение № 1

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

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

Сообщений: 13

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

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

Всем доброго времени суток!

Проблема в следующем:

Имеем два листа Excel «лист1» и «лист2». На листе1 несколько ячеек (пусть будет F2, F3, F4) выделяются цветом. В зависимости от цвета ячейки на листе 2 этим цветом закрашивается выделенный диапазон строки (или можно даже вся строка) т.е 2,3,4 соотвественно.
Попробовал просто решить «условным форматированием», но не получилось.
Т.к. в VBA имею смутные базовые познания, то надеюсь на вашу помощь.

Всем заранее спасибо!

Ответить

Дата: Четверг, 30.09.2021, 21:07 | Сообщение № 2

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

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

Сообщений: 713

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

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

Excel 2003

[vba]

Код

Sub iColor()
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]

Ответить

Дата: Пятница, 01.10.2021, 08:10 | Сообщение № 3

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

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

Сообщений: 13

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

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

Kuzmich, спасибо большое!
Еще один вопрос в дополнение: Хочу сделать так, чтобы макрос автоматически запускался при запуске файла.
Добавил в Ваш код:
[vba]

Код

Private Sub Workbook_Open()
Sub iColor()
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]
но не работает.
Пишет "expected end sub"

Сообщение отредактировал blaskgeneral - Пятница, 01.10.2021, 08:27

Ответить

Дата: Пятница, 01.10.2021, 08:29 | Сообщение № 4

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

Ранг: Участник

Сообщений: 66

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

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

Excel 2010, 2019

Уберите строчку

Цитата blaskgeneral, 01.10.2021 в 08:10, в сообщении № 3 (

)

Sub iColor()

Ответить

Дата: Пятница, 01.10.2021, 09:57 | Сообщение № 5

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

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

Сообщений: 13

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

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

Цитата Erjoma1981, 01.10.2021 в 08:29, в сообщении № 4 (

)

Уберите строчку

Если убрать эту строчку, то сообщение об ошибке исчезает, но макрос не работает.

Ответить

Дата: Пятница, 01.10.2021, 10:09 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата blaskgeneral, 01.10.2021 в 09:57, в сообщении № 5 (

)

но макрос не работает.

Чем докажите?

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Пятница, 01.10.2021, 10:34 | Сообщение № 7

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

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

Сообщений: 13

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

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

Цитата RAN, 01.10.2021 в 10:09, в сообщении № 6 (

)

Чем докажите?

Сейчас могу продемонстрировать только скрины с excel 2002 (слабый нетбук не тянет старшую версию).
Если это для Вас не доказательство, то вечером попробую снять видео или скрины с нормальной машины.

К сообщению приложен файл: 5879341.jpg (68.4 Kb) · 5342526.jpg (68.5 Kb)

Сообщение отредактировал blaskgeneral - Пятница, 01.10.2021, 10:35

Ответить

Дата: Пятница, 01.10.2021, 10:35 | Сообщение № 8

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

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

Сообщений: 13

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

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

И вот 3-й файл:

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

Ответить

Дата: Пятница, 01.10.2021, 10:58 | Сообщение № 9

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

Ранг: Форумчанин

Сообщений: 102

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

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

Excel 2010

Судя по третьему скриншоту макрос у вас лежит в Лист2. Переместите его без изменений в Этакнига.

Ответить

Дата: Пятница, 01.10.2021, 11:05 | Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

Цитата mgt, 01.10.2021 в 10:58, в сообщении № 9 (

)

Судя по третьему скриншоту

макрос лежит в ЭтаКнига

ЮMoney 41001841029809

Ответить

Дата: Пятница, 01.10.2021, 11:19 | Сообщение № 11

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

Ранг: Участник

Сообщений: 66

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

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

Excel 2010, 2019

Дело в этой строчке

Цитата blaskgeneral, 01.10.2021 в 08:10, в сообщении № 3 (

)

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

Если книгу сохраняли и был активен лист 2, то откроется и считается лист2.
Измените ее на
[vba]

Код

.Range("A" & i & ":H" & i).Interior.ColorIndex = Worksheets("Лист1").Cells(i, "F").Interior.ColorIndex

[/vba]

Сообщение отредактировал Erjoma1981 - Пятница, 01.10.2021, 11:20

Ответить

Дата: Пятница, 01.10.2021, 11:28 | Сообщение № 12

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

Ранг: Форумчанин

Сообщений: 102

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

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

Excel 2010

Workbook в заголовке при активном втором листе в меню Проекта? >_<

Ответить

Дата: Пятница, 01.10.2021, 11:32 | Сообщение № 13

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

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

Сообщений: 713

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

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

Excel 2003

Может лучше повесить выполнение макроса на событие активации листа1

Ответить

Дата: Пятница, 01.10.2021, 11:59 | Сообщение № 14

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

mgt, а что Вас смущает?

К сообщению приложен файл: 6890868.png (70.1 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 01.10.2021, 12:00

Ответить

Дата: Пятница, 01.10.2021, 13:08 | Сообщение № 15

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

Ранг: Форумчанин

Сообщений: 102

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

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

Excel 2010

В вашем скриншоте ничего. У автора же окно проекта неактивно (лист горит серым), при том что работает он в книге. Впрочем, как такого добиться я уже понял.

Сообщение отредактировал mgt - Пятница, 01.10.2021, 13:08

Ответить

Дата: Пятница, 01.10.2021, 15:30 | Сообщение № 16

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата mgt, 01.10.2021 в 13:08, в сообщении № 15 (

)

Впрочем, как такого добиться я уже понял.

А поделиться?

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Пятница, 01.10.2021, 16:33 | Сообщение № 17

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

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

Сообщений: 713

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

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

Excel 2003

Цитата

чтобы макрос автоматически запускался при запуске файла.

В модуль эта книга
[vba]

Код

Private Sub Workbook_Open()
Dim i As Long
Worksheets("Лист1").Activate
  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]

Ответить

Дата: Пятница, 01.10.2021, 17:50 | Сообщение № 18

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

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

Сообщений: 13

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

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

Цитата Erjoma1981, 01.10.2021 в 11:19, в сообщении № 11 (

)

Если книгу сохраняли и был активен лист 2, то откроется и считается лист2.
Измените ее на

.Range("A" & i & ":H" & i).Interior.ColorIndex = Worksheets("Лист1").Cells(i, "F").Interior.ColorIndex

Изменяю. Снова получаю ошибку:

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

Ответить

Дата: Пятница, 01.10.2021, 17:53 | Сообщение № 19

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

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

Сообщений: 13

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

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

Цитата Kuzmich, 01.10.2021 в 16:33, в сообщении № 17 (

)

В модуль эта книга

Private Sub Workbook_Open()
Dim i As Long
Worksheets("Лист1").Activate
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

Все работает, но только после перезапуска файла. этом, если в перезапущенном файле снова поменять цвет, то он не поменяется до перезапуска.
Это так задумано? Или можно сделать чтобы менялось без перезапуска файла? Или каждый раз нужно запускать макрос?

Цитата Kuzmich, 01.10.2021 в 11:32, в сообщении № 13 (

)

Может лучше повесить выполнение макроса на событие активации листа1

Если так удобнее и проще, то почему нет, но я не знаю как это сделать.

Сообщение отредактировал blaskgeneral - Пятница, 01.10.2021, 18:00

Ответить

Дата: Пятница, 01.10.2021, 18:02 | Сообщение № 20

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

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

Сообщений: 713

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

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

Excel 2003

Цитата

но я не знаю как это сделать.

В модуль листа1
[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]

Ответить

Заливка цветом ячеек на разных листах (Макросы/Sub)

Страница 1 из 2
1
2
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!