Здравейте,
Използвам функция със следният код:
Function GetCellColor(xlRange As Range)
Dim indRow, indColumn As Long
Dim arResults()
Application.Volatile True
If xlRange Is Nothing Then
Set xlRange = Application.ThisCell
End If
If xlRange.Count > 1 Then
ReDim arResults(1 To xlRange.Rows.Count, 1 To xlRange.Columns.Count)
For indRow = 1 To xlRange.Rows.Count
For indColumn = 1 To xlRange.Columns.Count
arResults(indRow, indColumn) = xlRange(indRow, indColumn).Interior.Color
Next
Next
GetCellColor = arResults
Else
GetCellColor = xlRange.Interior.Color
End If
End Function
Когато променям цветовете в таблицата е нужно да натисна F2 и ENTER или SHIFT + F9, за да рефрешне и калкулира.
Прочетох, че във кода на функцията трябва да присъства Application.Volatile, но той си присъства и въпреки това не калкулира при промяна на цветовете, освен ако не използва по-горе посочените комбинации от бутони.
Може ли да дадете някакви съвети?
Благодаря Ви!