作者:电脑信息网日期:
返回目录:设置问题
1楼的方法有可取之处
不过不直接
如果你的公式抄是固定的.那么就用1楼的第1个: range("B14").Formula="=SUM(B1:F3)"
如果想用相对的,就是这样了,
range("B14").FormulaR1C1="sum(R1C:R3C[4])"
说明:
RC分表代表百行列度,后面的数字代表了相应的行列号,如果没加" [ ]" ,就是绝对引用,如果加了"[ ]"就是相对引用了. 方向由正负号控制问
再举个例子:
比如: 当前单元格值总是等于它左边三个单答元格的和.那么公式为:
activecell.FormulaR1C1="=sum(RC[-3]:RC[-1])"
楼主:你好,对于你这个问题有个前提条百件:
如果你的Excel版本是2003版,那么你只能用系统预设的56色。用VBA代码实现的其他填充色会被转换为和度这56色最接近的一种。知
如果你的Excel版本是2007及以上,那么单元格填充色几乎不受限制,你完全可以通过单元格填充的命令道实现自定义颜色填充,支持RGB、HSL两种模式,无需借助VBA。
如果版使用VBA,代码如下:
Sub test()
'将A1单元格填充为权红色,RGB(红,绿,蓝) ,红、绿、蓝取值在0~255,可设置不同值获得不同颜色。
Range("A1").Interior.Color = RGB(255, 0, 0) '填充为红色
'如果想去掉填充色,用这句
Range("A1").Interior.Pattern = xlnoe
End Sub
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) '背景的颜色蓝色zd