excel vba将内容设置为统一格式

1、设置字体，用以下代码：

With Selection.Font

.Bold = True

.Name = "宋体"

.Size = 16

End With

Range("P3").Select

2、复制格式用下面代码：

[b1].Select '复制B1格式粘贴到A列

Selection.Copy

Range("A:A").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False

3、复制列宽用下面代码：

For t = 1 To [a1].CurrentRegion.Columns.Count

Cells(1, t).ColumnWidth = .Cells(1, t).ColumnWidth

Next t '复制所有有内容的列宽相同

选择你想要显示那个数据的一列，单击右键选单元格格式设置的那一项，然后选择日期，挑你想要的日期格式然后确定。之后数据写到单元格会自动转化成日期格式。\x0d\x0a\x0d\x0a用代码的话，\x0d\x0a 选择单元格范围，例如：\x0d\x0a Range("A1:A9").Select\x0d\x0a 指定范围的格式\x0d\x0a Selection.NumberFormatLocal = "yyyy/m/d@"

你好 第一：选择要调整的单元格区域。

2

/7

第二：鼠标右键选择快捷中的单元格格式设置按钮。

3

/7

第三：在单元格格式设置对话框中选择对齐选项。

4

/7

第四：在对齐对话框中选择对齐方式中的水平对齐，然后在在右侧滚动条里选择要对齐的方向。

5

/7

第五：在对齐对话框中选择对齐方式中垂直对齐，然然后在在右侧滚动条里选择要对齐的方向。

6

/7

第六：在对齐对话框中选择对齐方式下侧有一个文本控制复选框，可以根据自己的需求进行选择。还有就是文字的方向和旋转的度数。

7

/7

第七：调整完成后，点击对话框右下角的确定按钮，然后点击完成就可以

扩展:开发速度快，客户的需求一般都是很着急要的，客户不会太看重过程，而是结果。所以VBA可以帮你快速实现你的想法，而其他语言，可能要2到3倍的时间。

2，完整的开发文档以及实例，开发过程中这些都很重要，有了它遇到一些问题解决的时间就不一样了，有了简单明了的实例代码，比到Google上搜索要有效的多。

3，知识的继承，当你写好了一个东西以后，只要编码规范，有很好的注释，新手很容易继续开发工作，而其他语言，需要更多的经验，更多的专门技术，更多的钱来养这些人。

4，窗体制作的效率，显然VBA要比Lisp等MapBasic要有明显的优势，当你有一个想法需要和客户沟通的话，10分钟以内你就可以将界面设计出来，然后与客户沟通，而用其他语言，你要花10倍以上的时间，而且和客户沟通的时候，你会发现你需要更多的纸张和语言描述来解释你的想法。

5，VBA支持调用Windows底层API，关键是，他们与VB几乎一样，这意味着，你使用Google搜索一个需要的函数的时候返回的查询结果可能是几千个而且很多有实例代码，而使用其他语言，其精确的查询结果往往是0.

6,VBA 一般嵌入在应用软件之中，他们常常与应用软件有很好的接口，你不用单独购买开发工具就可以立即着手开发。因为你会发现他们都有类似宏的概念。

7，语言是次要的，当开发一个项目的时候重要的是，思想，经验，算法。 即使是使用VBA 算法好的话，并不比VC仅供参考

---