VBA/Excel/Access/Word/Application/Color Constant

Материал из VB Эксперт
Версия от 15:46, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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>