Паретто цветом для колонки с данными

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

Паретто цветом для колонки с данными (Макросы/Sub)

ant6729

Дата: Четверг, 29.03.2018, 11:48 | Сообщение № 1

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

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

Сообщений: 533

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

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

Excel 2010

Всем привет!
Есть ли у кого-то готовые решения, чтобы выделить цветом первые 20% желтым, остальные 80% зеленым?

Данные в первой колонке условно такие

1360
1123
1123
1104
1085
1085
1085
869
869
869
869
869
869
850
774
774
755
629
629
629
629
629
629
551
511
511
499
499
408
408
408
405
405
405
405
405
400
400
397
355
355
355
346
343
343
315
297
297
297
295
295
295
295
295
260
254
233
228
228
144
140

Нужно первых 20% самых больших залить желтым, остальные 80% зеленым.

Подскажите, пожалуйста, может, у кого - то есть в загашнике решение?

Ответить

and_evg

Дата: Четверг, 29.03.2018, 11:53 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 496

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

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

Excel 2007

ant6729, Здравствуйте. Если без файла. То см. Условное форматирование

Ответить

Апострофф

Дата: Четверг, 29.03.2018, 12:07 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 468

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

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

Excel 1997

ant6729, выделяйте данные и пробуйте -
[vba]

Код

Sub asd()
Dim r As Range
Set r = Selection
r.Interior.Color =vbgreen 'RGB(0, 255, 0)
r.Resize(r.Count \ 5).Interior.Color =vbyellow 'RGB(255, 255, 0)
End Sub

[/vba]

Сообщение отредактировал Апострофф - Четверг, 29.03.2018, 12:11

Ответить

ant6729

Дата: Четверг, 29.03.2018, 12:14 | Сообщение № 4

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

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

Сообщений: 533

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

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

Excel 2010

что - то странное, свое, но работает.

[vba]

Код

Sub jfjf()

lr = Cells(Rows.count, 1).End(xlUp).Row

ss = Round(lr * 80 / 100)
MsgBox ss

For i = lr - ss To lr
Cells(i, 1).Interior.Color = RGB(255, 0, 0)
Next i

For i = 1 To lr - ss
Cells(i, 1).Interior.Color = RGB(255, 255, 204)
Next i

End Sub

[/vba]