Quantcast
Channel: SetCombG.com Форуми
Viewing all articles
Browse latest Browse all 14446

Excel - Съвет за копиране стойностите на оцветени клетки

$
0
0
Използвам Excel 2003. Имам работещ макрос за смяна цвета на клетки в зависимост от цветовия им индекс. Работи без проблеми.


Код:

SubChangeColor()
Dim cell As Range
For Each cell in Range("E8:AM175")
If cell.Interior.ColorIndex < 0 Then
'Тук да копира ( или маркира) стойностите на клетките само които са с цвят < 0
cell.Interior.ColorIndex = 3


End If
Next cell
End Sub

Как да се преработи ? Или с други думи макрос за да се копират стойностите на клетки - Range("E8:AM175") които са с цвят < 0

Viewing all articles
Browse latest Browse all 14446

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>