VBA编程，如何设置自动换行，表格设置就这么简单
yuyutoo 2024-10-17 16:55 36 浏览 0 评论
No.1
Excel工具栏中有一个自动换行功能，应该都会使用。
其功能是，当表格宽度一定的情况下，表格内容根据其宽度换行排列。
不会出现超出表格宽度或隐藏截取超出的数据。
这个功能在做表格的时候相当有用，谁都不愿意把内容截取掉，对于超出表格的内容打印出来，也十分不美观。
本节介绍一下如何用VBA代码来实现自动换行功能。
其方法很简单，使用到一个属性：WrapText
属性的内容如下图所示：
No.2
WrapText是Range对象下的一个属性。
使用方法：
Range("A1").WrapText=True‘换行
Range("A1").WrapText=False‘不换行
设置其值为True表示换行，False为不换行。
似乎也没什么可难理解的，只要把属性名记住就行。
如下以一个简单例子来看一下效果：
No.3
上图例子单击按钮，弹出输入对话框，输入一些数据，确定后自动实现换行。
具体看下代码如何实现这个过程：
Private Sub SetWrapTextRows()
ActiveSheet.Cells(1, 1).Offset(1, 0).Resize(Cells.Rows.Count - 1, Cells.Columns.Count).Clear
Dim Str As String
Str = "ABCDEFGHIJKLMN1234569，这是一个换行例子，根据文字长度不同，设定行宽，自动换行。"
Str = InputBox("", "输入数据：", Str)
If VBA.Len(Str) = 0 Then MsgBox "没有什么数据，隐藏列！", vbInformation, "提示": Exit Sub
Dim cell As Range
Set cell = ActiveSheet.Range("B2:B10")'定义数据区域
With cell
With .Offset(0, -1)
.Formula = "=row()-1"
.Borders.LineStyle = 1
.HorizontalAlignment = xlCenter
.Font.Bold = True
.Interior.Color = RGB(252, 121, 112)
End With
.Item(1).Value = Str
.FillDown
.ColumnWidth = VBA.Len(Str)
.WrapText = True '设置换行
.Rows.AutoFit
.Borders.LineStyle = 1
.HorizontalAlignment = xlCenter
.Font.Size = 12
.Interior.Color = RGB(112, 211, 212)
End With
MsgBox "当前行宽：" & cell.Width, vbInformation, "提示"
End Sub实现自动换行，在程序中对表格的处理有很好的实用性。只要把应该换行的单元区域定义好，然后应用WrapText属性即可。
当然了，些属性还可以返回值，如果一个区域里既有换行单元又有不换行单元，那么就会返回一个Null值。
欢迎关注、收藏。
相关推荐
- 墨尔本一华裔男子与亚裔男子分别失踪数日 警方寻人
-
中新网5月15日电据澳洲新快网报道，据澳大利亚维州警察局网站消息，22岁的华裔男子邓跃(Yue‘Peter’Deng，音译)失踪已6天，维州警方于当地时间13日发布寻人通告，寻求公众协助寻找邓跃。华...
- 网络交友须谨慎!美国犹他州一男子因涉嫌杀害女网友被捕
-
伊森·洪克斯克（图源网络，侵删）据美国广播公司（ABC）25日报道，美国犹他州一名男子于24日因涉嫌谋杀被捕。警方表示，这名男子主动告知警局，称其杀害了一名在网络交友软件上认识的25岁女子。雷顿警...
- 一课译词:来龙去脉（来龙去脉 的意思解释）
-
Mountainranges[Photo/SIPA]“来龙去脉”，汉语成语，本指山脉的走势和去向，现比喻一件事的前因后果（causeandeffectofanevent），可以翻译为“i...
- 高考重要考点:range（range高考用法）
-
range可以用作动词，也可以用作名词，含义特别多，在阅读理解中出现的频率很高，还经常作为完形填空的选项，而且在作文中使用是非常好的高级词汇。...
- C++20 Ranges:现代范围操作（现代c++白皮书）
-
1.引言：C++20Ranges库简介C++20引入的Ranges库是C++标准库的重要更新，旨在提供更现代化、表达力更强的方式来处理数据序列（范围，range）。Ranges库基于...
- 学习VBA，报表做到飞 第二章 数组 2.4 Filter函数
-
第二章数组2.4Filter函数Filter函数功能与autofilter函数类似，它对一个一维数组进行筛选，返回一个从0开始的数组。...
- VBA学习笔记:数组:数组相关函数—Split，Join
-
Split拆分字符串函数，语法Split（expression，字符，Limit，compare），第1参数为必写，后面3个参数都是可选项。Expression为需要拆分的数据，“字符”就是以哪个字...
- VBA如何自定义序列，学会这些方法，让你工作更轻松
-
No.1在Excel中，自定义序列是一种快速填表机制，如何有效地利用这个方法，可以大大增加工作效率。通常在操作工作表的时候，可能会输入一些很有序的序列，如果一一录入就显得十分笨拙。Excel给出了一种...
- Excel VBA入门教程1.3 数组基础（vba数组详解）
-
1.3数组使用数组和对象时，也要声明，这里说下数组的声明：'确定范围的数组，可以存储b-a+1个数，a、b为整数Dim数组名称(aTob)As数据类型Dimarr...
- 远程网络调试工具百宝箱-MobaXterm
-
MobaXterm是一个功能强大的远程网络工具百宝箱，它将所有重要的远程网络工具（SSH、Telnet、X11、RDP、VNC、FTP、MOSH、Serial等）和Unix命令（bash、ls、cat...
- AREX:携程新一代自动化回归测试工具的设计与实现
-
一、背景随着携程机票BU业务规模的不断提高，业务系统日趋复杂，各种问题和挑战也随之而来。对于研发测试团队，面临着各种效能困境，包括业务复杂度高、数据构造工作量大、回归测试全量回归、沟通成本高、测试用例...
- Windows、Android、IOS、Web自动化工具选择策略
-
Windows平台中应用UI自动化测试解决方案AutoIT是开源工具，该工具识别windows的标准控件效果不错，但是当它遇到应用中非标准控件定义的UI元素时往往就无能为力了，这个时候选择silkte...
- python自动化工具:pywinauto（python快速上手 自动化）
-
简介Pywinauto是完全由Python构建的一个模块，可以用于自动化Windows上的GUI应用程序。同时，它支持鼠标、键盘操作，在元素控件树较复杂的界面，可以辅助我们完成自动化操作。我在...
- 时下最火的 Airtest 如何测试手机 APP?
-
引言Airtest是网易出品的一款基于图像识别的自动化测试工具，主要应用在手机APP和游戏的测试。一旦使用了这个工具进行APP的自动化，你就会发现自动化测试原来是如此简单！！连接手机要进行...
- 【推荐】7个最强Appium替代工具，移动App自动化测试必备!
-
在移动应用开发日益火爆的今天，自动化测试成为了确保应用质量和用户体验的关键环节。Appium作为一款广泛应用的移动应用自动化测试工具，为测试人员所熟知。然而，在不同的测试场景和需求下，还有许多其他优...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- mybatis plus (70)
- scheduledtask (71)
- css滚动条 (60)
- java学生成绩管理系统 (59)
- 结构体数组 (69)
- databasemetadata (64)
- javastatic (68)
- jsp实用教程 (53)
- fontawesome (57)
- widget开发 (57)
- vb net教程 (62)
- hibernate 教程 (63)
- case语句 (57)
- svn连接 (74)
- directoryindex (69)
- session timeout (58)
- textbox换行 (67)
- extension_dir (64)
- linearlayout (58)
- vba高级教程 (75)
- iframe用法 (58)
- sqlparameter (59)
- trim函数 (59)
- flex布局 (63)
- contextloaderlistener (56)