Question

各位高手，请教一下 用VBA设置单元格的格式为“自动换行”

各位高手，请教一下 我们有excel中可以用单元格格式中的“对齐” “文本格式”选择 “自动换行” 在VBA设置单元格的格式为“自动换行”，如单元格A1，谢谢。

Answer 1

你好 第一：选择要调整的单元格区域。
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仅供参考

Answer 2

excel 单元格内换行的方法，通过函数公式和VBA来实现excel单元格内换行
excel单元格内换行的方法，比如通过alt+enter组合键等等方法。

　　注：如果使用alt+enter组合键使用excel单元格内换行之后，应该再重新调整行高（双击行与行之间间隔快速调整为合适高度）。

　　本文介绍一些特殊的excel单元格内换行的实例。

excel单元格内换行实例一：
　　如何用VBA实现15位数值以每5个数字自动换行。

excel单元格内换行

　　按ALT+F11，打开VBE窗口，单击插入——模块，复制下面代码，按F5键运行即可自动实现excel单元格内换行。
Sub 单元格内换行()
For x = 1 To Range("A" & Range("A:A").Count).End(3).Row
Cells(x, 1) = Left(Cells(x, 1), 5) & Chr(10) & Mid(Cells(x, 1), 6, 5) & Chr(10) & Right(Cells(x, 1), 5)
Next x
End Sub

excel单元格内换行实例二：
　　excel一个单元格内换行内容，如A1所示，如何自动将A1自动换行的内容转换为多个单元格，如A3：A5的效果。

excel单元格内换行2

　　按ALT+F11，打开VBE窗口，单击插入——模块，复制下面代码，按F5键运行即可自动实现excel单元格内换行。

Sub 单元格内换行()
v = Split(Cells(1, 1).Value, Chr(10))
Cells(3, 1).Resize(UBound(v) + 1, 1).Value = Application.Transpose(v)
End Sub

excel单元格内换行实例三：

　　Excel工作表中以分号隔开的数据，如何操作可以实现这些信息在Excel单元格内换行？

excel单元格内换行3

　　将A1单元格处实现单元格内换行。在B1单元格输入公式： B1=SUBSTITUTE(A1,";",CHAR(10))，然后调整B1单元格的列宽和行高。

Answer 3

录制一下宏就有了。
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
＝＝＝＝＝＝＝＝＝＝
就是这一句改一下：range("A1").WrapText = True

Answer 4

.WrapText = True