Смешение цветов

@lixar21 · Регистрация: 02.01.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте, форумчане.
Помогите решить проблему.

На листе в определенном диапазоне (B5:I37) - часть ячеек имеют прозрачную заливку, а часть залита определенными цветами.
Как макросом выдать в ячейку М6 - суммарный цвет данного диапазона?

То есть тот цвет, который получится в результате смешения этих нескольких цветов из диапазона (B5:I37).

@OLEGOFF · 29.07.2017, 20:18

Visual Basic

Sub MixColors()
 
Dim aRange As Range
Dim c, i As Variant
    
Set aRange = Application.InputBox(prompt:="Выберите диапазон", Type:=8)
  If aRange Is Nothing Then
    MsgBox "Ошибеа выбора диапазона"
  Else
k = 0
R = 0
For Each c In aRange.Cells
  i = c.Interior.Color
 If i <> 16777215 Then
  k = k + i
  R = R + 1
 End If
Next
End If
MainColor = k / R
Cells(6, 13).Interior.Color = MainColor
 
End Sub

@lixar21 · 29.07.2017, 20:30 **[ТС]**

OLEGOFF , спасибо за код.

@lixar21 0 / 0 / 0 Регистрация: 02.01.2017 Сообщений: 123
	29.07.2017, 20:30 [ТС]	3
	OLEGOFF , спасибо за код. 0