Setting colors/borders for cell

K

k483

What is the VB code syntax for setting background colors and borde
style for a particular cell.

Worksheets("Sheet1").Cells(1,1)???????? = ???????

.Borderstyle doesn't work in this syntax, does it?

thank
 
F

Frank Kabel

Hi
simple solution: Record a macro while doing it manually :)

e.g. background:
activecell.interior.colorindex=3
 
F

Frank Stone

hi,
the command is like below
Worksheets("Sheet1").Cells(1,1).interior.colorindex = ?
to find the colorindex codes, in a blank workbook, copy,
paste and run the following code.
-----------------------------------
Sub macGetColors()
' Macro written 2/10/01 by FSt1
Sheets("Sheet1").Select
Range("B2").Select
Set ci = Range("A1")
ci.Value = 1
Set c = Range("B2")
Do Until ci > 56
Set c2 = c.Offset(1, 0)
Set cnum = c.Offset(0, 1)
c.Interior.ColorIndex = ci.Value
c.Offset(0, 1) = ci.Value
ci.Value = ci.Value + 1
Set c = c2
c.Select
Loop
End Sub
---------------------------------------------
borders get a little more complecated because there are so
many.
Cell(1,1).select (or Range("a1").select)
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
 
Top