第047篇：VBA之单元格格式设置基础（数字格式、字体格式、单元格底纹）

最新推荐文章于 2024-01-13 14:15:40 发布

o刘非刘o

最新推荐文章于 2024-01-13 14:15:40 发布

阅读量7.5k

点赞数

分类专栏： VBA学习笔记

本文链接：https://blog.csdn.net/liujinli0712/article/details/106795933

版权

本文介绍了如何使用VBA在Excel中设置单元格的数字格式，例如设置为两位小数；调整字体属性，如字体、字号、颜色；以及设置单元格底纹，包括索引颜色、早期颜色和自定义RGB颜色。通过示例代码展示了具体操作方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

今天原本没计划写博客，但电脑带都带回来了，要是不用它做点事情，总觉得亏哈

太阳是真的晒呀，早上迎着太阳上班，下午迎着太阳下班，一天烤两次，真要变黑了。

等我变成小黑孩的时候，没有一根紫外线是无辜的！

（一）数字格式

右击Excel中任意一个单元格，出来的菜单里会有一项“设置单元格格式”——“数字”下有多种数字格式的分类。

这里我们通过VBA代码来设置一下，简单举个例子：

	A	B
1	品类	单价
2	西红柿	4
3	菠菜	3
4	豆腐	2.5
5	鸡蛋	3.9
6	香菜	5
7

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

o刘非刘o

关注关注

0
点赞
踩
11

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

【Excel VBA】枚举一下设置单元格格式的所有方法，以备随时调用

碰碰虎的博客

05-19

4656

纲举目张说明代码code使用方法说明 单元格格式设置的不恰当会引发灾难的，估计在操作身份证、银行卡号等信息时踩坑的小伙伴深有同感。使用代码设置单元格格式时，虽然我们可以使用录制宏的方法得知如何设置，但是录制得到的代码比较啰嗦，对象不是很清晰，在此我总结了一下常用的设置单元格格式的代码，方便小伙伴们随时取用。代码code Sub 设置单元格格式() '首先为大家展示使用录制宏的方式得到的设置单元格格式的代码 Range("B2").Select Selection.NumberFormatLo

VBA_单元格格式设置代码

俊杰の博客

12-24

3326

VBA_单元格格式设置代码

参与评论您还未登录，请先登录后发表或查看评论

VBA入门练习小例子

02-20

VBA入门的练习几个小例子（xls）VBA入门的练习几个小例子（xls）

VBA开发：设置单元格格式

weixin_50233916的博客

06-24

1万+

好的应用离不开友好的界面，在开发VBA应用时，经常需要用到设置单元格的格式，包括数据格式、字体、对齐模式、单元格宽度、单元格高度、单元格文本的自动换行、单元格背景颜色，文字颜色、单元格线型等等。本文通过实例，详细展示了如何方便的设置单元格的各种格式，可以作为初学者的一个较全面的参考。

Excel VBA 单元格格式

hack_tian的博客

12-04

3782

单元格水平竖向居中 Sheet.Range(“A6”).HorizontalAlignment = = xlCenter ‘= 3单元格水平居中 Sheet.Range(“A6”).VerticalAlignment = xlCenter ‘=2 单元格竖向居中此属性的值可设为以下常量之一： xlCenterxlDistributedxlJustifyxlLeft 设置单元格边框

单元格格式VBA(3)

q14091355的博客

05-28

1365

前面PDF转出的数据在原有EXCEL文件里。结合成品表样式设置在转完数据后直接新建一个表格将数据搬过去；并设置好格式用到的代码与注释（部分注释为查OFFICE官网解释) Sub a1() Dim wb1 As Workbook '定义一个工作本 Dim ws1 As Worksheet, ws2 As Worksheet '定义2个表 Dim wb1name As String '定义文本名 Set wb1 = ...

EXCEL-VBA：设置单元格格式

热门推荐

鞠勇鸿的技术专栏

09-20

2万+

EXCEL-VBA：设置单元格格式

VBA：强制设置单元格/Range的格式

Allen_tang的博客

05-18

2871

我们在使用Excel的时候，经常需要使用格式设置，尤其是文本设置，时间设置，就像是“城市牛皮癣”一样，换不过来！！真是让人火大。即使，在VBA中使用C开头的函数，只是转换了Variant的类型，等填入到单元格并不是我们想要的类型。比如有时明明用cells(1,1)=Cstr(000001)，但是到了单元格还是1，而不是文本000001！！ CBool(expression) 转换为Boolean型 CByte(expression) 转换为Byte型 CCur(expressi

第043篇：VBA之单元格简写与引用、值与地址

liujinli0712的博客

06-10

1142

（夏天，多听听苏打绿，快乐感up） “汗水在他的身上化成了彩虹步伐的节奏延续生命的河流默默在岗位战斗的每个小小英雄”

【VBA(七)：事件与典型应用案例】【关于单元格格式设置中的WITH语句+事件与典型应用案例+小结与练习】

12-14

例如，当你需要改变一个单元格的字体、颜色和大小时，可以这样写： ```vba With Range("A1") .Font.Name = "Arial" .Font.Size = 12 .Font.Color = RGB(255, 0, 0) End With ``` 这比单独写三次`Range("A1")....

Excel VBA基础教程--素材及练习

02-07

Excel VBA基础教程--素材及练习第1章 VBA基础知识 2-11.工作簿综合运用(拆分工作簿) 第3章 单元格区域操作第4章事件过程第5章数组

使用VBA设置数字格式

神奇的BI

07-23

5880

在Excel工作表中，使用自定义格式可以轻松实现指定宽度（数字个数）格式，例如设置单元格格式为“000”，输入数字6，则单元格显示内容为006，如下图所示。组成的字符串，只是此处作为格式字符，相当于Excel中的自定义格式。有的小伙伴可能说这个很简单，可以使用Range对象的Text数据，例如。接下来创建一个自定义函数实现格式转换，函数提供了两个参数。这个方法是可行的，其实还有更简单的方法。连接符将填充字符串和数字合并，然后使用。组成的字符串，以下简称为填充字符串。函数提取字符串从右侧开始的指定位数。...

VBA设置单元格格式

weixin_34062329的博客

06-05

301

OptionExplicit SubsetFormat() DimSelectionCellAsRange SetSelectionCell=Worksheets("Sheet1").Range("A1:D4") WithSelectionCell .Borders.Weight=4 .Font...

VBA-单元格格式设置

qq_44390640的博客

08-21

820

SUB 格式() Worksheets("申报表" & i).Range("A1:I6").Interior.ColorIndex = 2 Worksheets("申报表" & i).Range("A" & O + 4 & " :J" & O + 4).Borders.LineStyle = xlContinuous Worksheets("申报表" ...

Excel VBA 之单元格格式

soga235的博客

06-03

1378

一个频繁的任务就是给选中的单元格或区域设置格式。你的VBA过程可能需要查明某个具体单元格的格式。我们可以使用NumberFormat属性来找回单元格格式： ?Range("A1").NumberFormat 在立即窗口输入上面的问题后，Excel显示“General” Range("A1").NumberFormat = "$#,##0.00" 如果你在单元格A1里输入55，当你使用上面的指令给它设置格式后，单元格A1将显示“$55.00”。你可以在Excel窗口的“设置单元格格式...

xssfdataformat 设置单元格式为数值_VBA常用函数——单元格常用格式设置1

weixin_39783771的博客

12-11

474

Part 1：字体设置Sub test1() Set sht1 = ThisWorkbook.Worksheets("示例") Set cell1 = sht1.Range("A1") Set cell2 = sht1.Range("A2") '设置字体，大小，是否加粗，字体的颜色，对齐方式 cell1.Font.Name = "黑体" cell1.Font.Size = 16 cell1.Fon...

VBA对Excel单元格数字类型进行批量格式化处理

weixin_44449720的博客

06-08

3160

VBA对EXCEL当前表A列单元格或区域的数字类型进行批量格式化处理方法

VBA学习笔记之单元格式之数字格式

aiyin1399的博客

09-01

972

'Range.NumberFormatLocal 属性 1 Sub 获取单元格设置数字格式() 2 For Each Rng In [a1:a3] 3 Cells(Rng.Row, 2) = Rng.NumberFormatLocal '获取单元格的格式代码 4 Next Rng 5 End Sub 1 Sub 给单元格设置数字格式() 2 For E...

EXCEL学习--003、使用VBA设置单元格背景【interior.colorindex、pattern】