如何用vba 控制字体颜色

如何用vba 控制字体颜色

google_ad_width = 250; google_ad_height = 250; google_ad_format = "250x250_as"; google_color_url = "000000";

第2楼. 由 fewind2100 于 2007-6-28 10:16:55 发表

控制excel某一列的字体颜色

第3楼. 由 jacktown 于 2007-6-28 10:48:29 发表

Range("a:a").Font.Color = vbRed

或者

range("A:A").font.colorIndex=2

第4楼. 由 fewind2100 于 2007-6-28 11:17:40 发表

我是想根据B列的正负来确定A列的颜色

我是这么写可是有提示定义对象出错

Private Sub Workbook_Open()

Dim i As Long

For i = 0 To 65533

If Sheet1.Range("B" + CStr(i)).Cells.Value < 0 Then

Sheet1.Range("A" + CStr(i)).Cells.font.Color = vbRed

End If

Next

End Sub

第5楼. 由 jacktown 于 2007-6-28 13:48:23 发表

你为什么要用0开始呢？最小的行标应该为1才对！修改如下：

Private Sub Workbook_Open()

Dim i As Long

For i = 1 To 65536

If Sheet1.Range("B" + CStr(i)).Cells.Value < 0 Then

Sheet1.Range("A" + CStr(i)).Cells.font.Color = vbRed

End If

Next

End Sub

第6楼. 由 fewind2100 于 2007-6-28 14:17:54 发表

晕啊~~出现这样错误！谢谢百谷之王！非常感谢~！！