Имеется столбец в котором числа они идут сначала с большего - меньше - меньше, потом наступает переломный момент и числа идут в рост.
Задача закрасить данные числа таким образом чтобы было видно падение и рост. То есть большие числа самые тёмные (например тёмно зелёные) при падении они зелёные потом светло зелёные и при росте зелёные тёмно зелёные, только нужно больше цветов, чтобы зрительно лучше воспринимать.
Я пример приложил справа колонка, как я хочу видеть, я вручную закрасил их, единственное нужно будет больше цветов (больше производных зелёного) так как чисел больше будет.
Слева заготовка, каким правилом можно воплотить мою задумку?
Извиняюсь, нашёл, в экселе есть цветовые шкалы, оно мне и подошло.
Доброй ночи!
Имеется столбец в котором числа они идут сначала с большего - меньше - меньше, потом наступает переломный момент и числа идут в рост.
Задача закрасить данные числа таким образом чтобы было видно падение и рост. То есть большие числа самые тёмные (например тёмно зелёные) при падении они зелёные потом светло зелёные и при росте зелёные тёмно зелёные, только нужно больше цветов, чтобы зрительно лучше воспринимать.
Я пример приложил справа колонка, как я хочу видеть, я вручную закрасил их, единственное нужно будет больше цветов (больше производных зелёного) так как чисел больше будет.
Слева заготовка, каким правилом можно воплотить мою задумку?
Извиняюсь, нашёл, в экселе есть цветовые шкалы, оно мне и подошло.stalber
Подходит спасибо! Единственно вопрос, как продублировать это правило если столбцов много?
Нужно к каждому столбцу такое правило. Если я выделю все столбцы и пропишу это правило он посчитает все данные за единое, а у меня каждый столбец отвечает за разные цели.
Подходит спасибо! Единственно вопрос, как продублировать это правило если столбцов много?
Нужно к каждому столбцу такое правило. Если я выделю все столбцы и пропишу это правило он посчитает все данные за единое, а у меня каждый столбец отвечает за разные цели.stalber
Сообщение отредактировал awaddwaawddw - Вторник, 20.02.2018, 01:25
Не понял, нужно к каждому столбцу такое правило. Если я выделю все столбцы и пропишу это правило он посчитает все данные за единое, а у меня каждый столбец отвечает за разные цели.
В ручную вписывать данное правило к каждому столбцу очень долго, так как столбцов ~100.
Не понял, нужно к каждому столбцу такое правило. Если я выделю все столбцы и пропишу это правило он посчитает все данные за единое, а у меня каждый столбец отвечает за разные цели.
В ручную вписывать данное правило к каждому столбцу очень долго, так как столбцов ~100.stalber
Выделяете столбец в заданным УФ -- нажимаете кнопку Формат по образцу на вкладке Главная -- выделяете столбец без форматирования, правило УФ копируется на новый столбец
Выделяете столбец в заданным УФ -- нажимаете кнопку Формат по образцу на вкладке Главная -- выделяете столбец без форматирования, правило УФ копируется на новый столбецPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Если 100 столбцов одинаковые и расположены регулярно, то можно записать макрос по действиям, которые описала Pelena, макрорекордером и 100 раз нажать на кнопку.
Ну или напрячься и вписать макрос из макрорекордера в цикл от 1 до 100
Если 100 столбцов одинаковые и расположены регулярно, то можно записать макрос по действиям, которые описала Pelena, макрорекордером и 100 раз нажать на кнопку.
Ну или напрячься и вписать макрос из макрорекордера в цикл от 1 до 100abtextime
Sub Цветовые_шкалы() Dim t As String Dim c As Long Dim ran As Range Dim ra As Range Dim col1() Dim col2() Dim col3()
col1 = Array(7039480, 8109667, 7039480, 8109667, 7039480, 8109667, 10285055, 7039480, 8109667, 7039480, 16776444, 13011546) col2 = Array(8711167, 8711167, 16776444, 16776444, 16776444, 10285055, 8109667, 16776444, 16776444, 16776444, 7039480, 16776444) col3 = Array(8109667, 7039480, 8109667, 7039480, 13011546, 0, 0, 0, 0, 0, 0, 7039480) Set ran = Selection t = InputBox("1 = построчно" & vbCr & "2 = по столбцам" & vbCr & "3= весь диапазон", "применить для", 1) If t = "" Then Exit Sub c = InputBox("Вариант расцветки", , 0) If t = "3" Then Call цветШкала(ran, col1(c) * 1, col2(c) * 1, col3(c) * 1): Exit Sub If t = "1" Then For Each ra In ran.Rows Call цветШкала(ra, col1(c) * 1, col2(c) * 1, col3(c) * 1) Next Exit Sub End If If t = "2" Then For Each ra In ran.Columns Call цветШкала(ra, col1(c) * 1, col2(c) * 1, col3(c) * 1) Next Exit Sub End If End Sub
Private Sub цветШкала(r As Range, col1#, col2#, col3#) With r .FormatConditions.AddColorScale ColorScaleType:=3 .FormatConditions(.FormatConditions.Count).SetFirstPriority With .FormatConditions(1) .ColorScaleCriteria(1).Type = xlConditionValueLowestValue .ColorScaleCriteria(1).FormatColor.Color = col1
Sub Цветовые_шкалы() Dim t As String Dim c As Long Dim ran As Range Dim ra As Range Dim col1() Dim col2() Dim col3()
col1 = Array(7039480, 8109667, 7039480, 8109667, 7039480, 8109667, 10285055, 7039480, 8109667, 7039480, 16776444, 13011546) col2 = Array(8711167, 8711167, 16776444, 16776444, 16776444, 10285055, 8109667, 16776444, 16776444, 16776444, 7039480, 16776444) col3 = Array(8109667, 7039480, 8109667, 7039480, 13011546, 0, 0, 0, 0, 0, 0, 7039480) Set ran = Selection t = InputBox("1 = построчно" & vbCr & "2 = по столбцам" & vbCr & "3= весь диапазон", "применить для", 1) If t = "" Then Exit Sub c = InputBox("Вариант расцветки", , 0) If t = "3" Then Call цветШкала(ran, col1(c) * 1, col2(c) * 1, col3(c) * 1): Exit Sub If t = "1" Then For Each ra In ran.Rows Call цветШкала(ra, col1(c) * 1, col2(c) * 1, col3(c) * 1) Next Exit Sub End If If t = "2" Then For Each ra In ran.Columns Call цветШкала(ra, col1(c) * 1, col2(c) * 1, col3(c) * 1) Next Exit Sub End If End Sub
Private Sub цветШкала(r As Range, col1#, col2#, col3#) With r .FormatConditions.AddColorScale ColorScaleType:=3 .FormatConditions(.FormatConditions.Count).SetFirstPriority With .FormatConditions(1) .ColorScaleCriteria(1).Type = xlConditionValueLowestValue .ColorScaleCriteria(1).FormatColor.Color = col1