visual basic colour codes!

Mar 3rd, 2002, 03:04 PM

What is the visual basic code for white I need to know!

dk · Mar 3rd, 2002, 03:27 PM

The ColorIndex for white is 2. Is that what you're talking about? e.g.

Range("A1").Font.ColorIndex = 2

You can type ColorIndex Property into VBA help to get a full list.

HTH,
D

Jack in the UK · Mar 3rd, 2002, 03:31 PM

Hi

White is VBA 2, try 1 2 3 4 if unsure or check in help files sure its there.

BTW on old borad there was some guru who posted some code that bacgs out all colours in one column and the number next ! very cool if lasy like me.. i must have it some where but not archived in my knowledge base yet sorry, have a look..

Mar 3rd, 2002, 05:26 PM

I had the VBA Code. (Kept it from an earlier post)

Sub ColorIndices()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2).Value = i
Next i
End Sub

Mar 3rd, 2002, 03:31 PM	#3
Jack in the UK Board Regular Join Date: Feb 2002 Posts: 3,065	Hi White is VBA 2, try 1 2 3 4 if unsure or check in help files sure its there. BTW on old borad there was some guru who posted some code that bacgs out all colours in one column and the number next ! very cool if lasy like me.. i must have it some where but not archived in my knowledge base yet sorry, have a look.. __________________ Free Excel based Web Toolbar available here. Jack in the UK J & R Excel Solutions "making Excel work for you"

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 3rd, 2002, 03:04 PM	#1
Guest Posts: n/a	What is the visual basic code for white I need to know!

Mar 3rd, 2002, 03:27 PM	#2
dk MrExcel MVP Join Date: Feb 2002 Location: Sydney, Australia Posts: 2,908	The ColorIndex for white is 2. Is that what you're talking about? e.g. Range("A1").Font.ColorIndex = 2 You can type ColorIndex Property into VBA help to get a full list. HTH, D

Mar 3rd, 2002, 05:26 PM	#4
Guest Posts: n/a	I had the VBA Code. (Kept it from an earlier post) Sub ColorIndices() For i = 1 To 56 Cells(i, 1).Interior.ColorIndex = i Cells(i, 2).Value = i Next i End Sub