www.5213.net > ExCEl中怎样用VBA实现单元格的字体显色?

ExCEl中怎样用VBA实现单元格的字体显色?

在单元格上 右键 设置单元格格式 在字体里面设置颜色,在图案里面可以设置 单元格的底色

sub s() dim a(3) t = [a1] for i = 0 to 3 a(i) = mid(t, i + 1, 1) next for i = 2 to 85 ff = true for j = 0 to 3 f = false for k = j * 7 + 11 to j * 7 + 17 if cells(k, i).text = a(j) then cells(k, i).font.colorindex = 3 f = true end if next ff = ff and f next if ff then cells(39, i).resize(7)

等会到电脑上去完成.

Application.Cells(idxCol, 1) .Interior.Color = sheetCurrent.Cells(1, j).Interior.Color Application.Cells(idxCol, 1).Font.Color = sheetCurrent.Cells(1, j).Font.Color

通过条件格式即可 选中A1:A4→条件格式→ 输入公式=A1="关",然后格式→填充→选择“蓝色”;同理:输入公式=A1="开",然后格式→填充→选择“红色”;

以下代码示例:Sub main() Range("A1").Interior.Color = vbRed'将A1单元格底色设置为红色 for i=5 to 10 Range("A"&i-4).Interior.ColorIndex = i'将A2-A6单元格底色以此设置为不同颜色 next i End Sub

a=Cells(j, i).Font.ColorIndex '字体颜色b=Cells(j, i).Interior.ColorIndex '单元格颜色

With Selection .WrapText = True '自动换行 .Interior.Color = 65535 '背景 黄 .Font.Name = "黑体" '字体 .Font.Size = 10 '字号 .Font.Color = -16776961 '颜色 红End With

Cells(1, 1).Font.ColorIndex = 3 '字的颜色号为3 红色Cells(1, 1).Interior.ColorIndex = 3 ' 背景的颜色为3 红色Cells(2, 1).Font.Color = RGB(0, 255, 0) '字的颜色绿色Cells(2, 1).Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色

excel里,字体为自动黑色时,他默认的值为-4105 指定主题颜色中的黑色时,值为1 如果值为Null,系统默认该单元格的字体颜色为黑,没有值 所以-4105,1,Null都代表单元格字体颜色为黑色

网站地图

All rights reserved Powered by www.5213.net

copyright ©right 2010-2021。
www.5213.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com