MyTetra Share
Делитесь знаниями!
VBA коды цветов
Время создания: 16.03.2019 23:43
Текстовые метки: ColorIndex, Interior, Color
Раздел: !Закладки - VBA - Excel - Range

Private Sub CommandButton1_Click()

For i = 1 To 20

Cells(i + 1, 2).Value = Cells(i + 1, 1).Interior.ColorIndex

Cells(i + 1, 3).Value = Cells(i + 1, 1).DisplayFormat.Interior.ColorIndex

' Cells(i + 1, 4).Value = Cells(i + 1, 1).Pattern

' Cells(i + 1, 5).Value = Cells(i + 1, 1).PatternColorIndex

' Cells(i + 1, 6).Value = Cells(i + 1, 1).ThemeColor

' Cells(i + 1, 7).Value = Cells(i + 1, 1).TintAndShade

' Cells(i + 1, 7).Value = Cells(i + 1, 8).PatternTintAndShade

Next i

End Sub


' .Pattern = xlSolid

' .PatternColorIndex = xlAutomatic

' .ThemeColor = xlThemeColorDark1

' .TintAndShade = -0.149998474074526

' .PatternTintAndShade = 0

Прикрепленные файлы:
 
MyTetra Share v.0.53
Яндекс индекс цитирования