VBA/Excel/Access/Word/Application/Color Constant — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
Содержание
- 1 To use standard colors: vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, or vbWhite
- 2 VBA-Defined Constants: vbBlack
- 3 VBA-Defined Constants: vbBlue
- 4 VBA-Defined Constants: vbCyan
- 5 VBA-Defined Constants: vbGreen
- 6 VBA-Defined Constants: vbMagenta
- 7 VBA-Defined Constants: vbRed
- 8 VBA-Defined Constants: vbWhite
- 9 VBA-Defined Constants: vbYellow
To use standard colors: vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, or vbWhite
<source lang="vb">
Sub colorYellow()
range("A1").Interior.color = vbYellow
End Sub
</source>
VBA-Defined Constants: vbBlack
<source lang="vb">
Sub obj2()
Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbBlack
End Sub
</source>
VBA-Defined Constants: vbBlue
<source lang="vb">
Sub obj3()
Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbBlue
End Sub
</source>
VBA-Defined Constants: vbCyan
<source lang="vb">
Sub obj4()
Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbCyan
End Sub
</source>
VBA-Defined Constants: vbGreen
<source lang="vb">
Sub obj5()
Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbGreen
End Sub
</source>
VBA-Defined Constants: vbMagenta
<source lang="vb">
Sub obj6()
Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbMagenta
End Sub
</source>
VBA-Defined Constants: vbRed
<source lang="vb">
Sub obj7()
Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbRed
End Sub
</source>
VBA-Defined Constants: vbWhite
<source lang="vb">
Sub obj8()
Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbWhite
End Sub
</source>
VBA-Defined Constants: vbYellow
<source lang="vb">
Sub obj9()
Dim myObject As Range Set myObject = Range("A1:B10") myObject.Interior.Color = vbYellow
End Sub
</source>