[已解决]怎么设置某个单元格的样式，如背景色，字体

787851791

如题

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-6-25 16:48

1. Sub 单元格格式()
   
2. With [a1] '单元格
   
3. .Interior.ColorIndex = 3 '背景色。改变数字改变背景色
   
4. .Borders.LineStyle = 1 '边框：1→实绩；2→虚线；0→无边框
   
5. .HorizontalAlignment = xlCenter '水平居中
   
6. .Font.Name = "黑体" '字体
   
7. .Font.ColorIndex = 2 '字体颜色，改变数字改变颜色
   
8. .Font.bold=true'字体加粗。False不加粗，True加粗。
   
9. End With
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

xuyouxm

这个是什么意思？
直接右击单元格选择属性，然后根据自己的需求进行相应的设置就成了。。。

787851791

xuyouxm 发表于 2013-6-25 16:26
这个是什么意思？
直接右击单元格选择属性，然后根据自己的需求进行相应的设置就成了。。。

额 我要用vba代码

风林火山

姐姐，如题是啥题

787851791

风林火山 发表于 2013-6-25 16:28
姐姐，如题是啥题

标题啊 用vba修改一个单元格的背景或者字体 用cells()定位

chmmm

录个宏，改改，不就行了吗……

xuyouxm

我也没看懂，原来是要用VBA啊

ligh1298

1. Sub 单元格格式()
   
2. With [a1] '单元格
   
3. .Interior.ColorIndex = 3 '背景色。改变数字改变背景色
   
4. .Borders.LineStyle = 1 '边框：1→实绩；2→虚线；0→无边框
   
5. .HorizontalAlignment = xlCenter '水平居中
   
6. .Font.Name = "黑体" '字体
   
7. .Font.ColorIndex = 2 '字体颜色，改变数字改变颜色
   
8. .Font.bold=true'字体加粗。False不加粗，True加粗。
   
9. End With
   
10. End Sub
    

复制代码

yuntian450

cells().interior//设置背景
cells().font    //设置字体