У меня такая задача: В столбце H номера (от 1 до 50) В столбце I цвета (цветовая шкала) соответствующие каждому из 50 номеров В столбцах А-Е некая матрица из повторяющихся цифр от 1 до 50
Нужно окрасить ячейки в столбцах А-Е соответствующим цветом из столбцов H-I
Это реализуемо?
Всем здравствуйте
У меня такая задача: В столбце H номера (от 1 до 50) В столбце I цвета (цветовая шкала) соответствующие каждому из 50 номеров В столбцах А-Е некая матрица из повторяющихся цифр от 1 до 50
Нужно окрасить ячейки в столбцах А-Е соответствующим цветом из столбцов H-I
Sub u_24() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row For Each v In Range("a2:e" & u) w = Application.Match(v.Value, Range("h:h"), 0) x = Range("i" & w).DisplayFormat.Interior.Color v.Interior.Color = x Next Application.ScreenUpdating = True End Sub
[/vba]
примерно так [vba]
Код
Sub u_24() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row For Each v In Range("a2:e" & u) w = Application.Match(v.Value, Range("h:h"), 0) x = Range("i" & w).DisplayFormat.Interior.Color v.Interior.Color = x Next Application.ScreenUpdating = True End Sub
Ой, я даже не знала, что у меня в профиле указано такое. Когда-то, наверное, действительно была семерка. Я попробовала поменять, но просит код безопасности и не подгружает его
Ой, я даже не знала, что у меня в профиле указано такое. Когда-то, наверное, действительно была семерка. Я попробовала поменять, но просит код безопасности и не подгружает его KatiaW