网站空间,网上怎么找承包小工程,智能网站建设维护,wordpress 电影主题《VBA高级应用30例》#xff08;版权10178985#xff09;#xff0c;是我推出的第十套教程#xff0c;教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开#xff0c;这套教程案例与理论结合#xff0c;紧贴“实战”#xff0c;并做“战术总结”#xff0c;以…《VBA高级应用30例》版权10178985是我推出的第十套教程教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开这套教程案例与理论结合紧贴“实战”并做“战术总结”以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序写好的程序可以升级。本套教程共三册三十个专题本讲的内容是VBA高级应用30例应用3在Excel中的ListObject对象插入行和列
【分享成果随喜正能量】 以无我心行善是无为之法。行善而不执着是成就之因。
佛说以无我相无人相无众生相无寿者相行一切善即得阿耨多罗三藐三菩提。。
应用3 在Excel中的ListObject对象 在VBA中表(Tables)的应用还是较普遍的它们被称为ListObjects这是Excel 2003引入的一个集合。但是对象模型的这一部分有很大的变化我在这个专题简单给大家讲解一下应用包括创建及一些格式操作。
4 插入行和列
ListObject对象还具有增加行及列的功能例如我们会用到ListRows的Add方法增加行这时会用到“AlwaysInsert”参数。
ListRows.Add 方法将新行添加到指定的 ListObject 表示的表中。
语法expression.Add (Position, AlwaysInsert)
其中expression为一个代表ListRows对象的变量。
参数
名称
必需/可选
数据类型
说明
Position
可选
Variant
整数。 指定新行的相对位置。
AlwaysInsert
可选
Variant
Boolean 类型的值nbsp;。 指定在插入新行时是否始终移动表格中最后一行下面的单元格中的数据而不考虑表格下面的行是否为空行。 如果为nbsp;True则表格下面的单元格将下移一行。如果为nbsp;False如果表格下面的行为空表格将展开以占用该行而不移动其下方的单元格但如果表格下面的行包含数据则插入新行时这些单元格将下移
ListColumns.Add 方法向列表对象中添加新列
语法expression.Add (Position)
其中expression为一个代表 ListColumns 对象的变量。
参数
名称
必需/可选
数据类型
说明
Position
可选
Variant
整数。 从 1 开始指定新列的相对位置。 以前位于此位置的列则向后移动。
我们看下面的代码
Sub mynzTableInsert() Dim oSh As Worksheet Set oSh ActiveSheet oSh.ListObjects(myTable1).Range.Select 在特定位置插入 Selection.ListObject.ListColumns.Add Position:4 在右边插入 Selection.ListObject.ListColumns.Add 在上面插入 Selection.ListObject.ListRows.Add (11) 在下面插入 Selection.ListObject.ListRows.Add AlwaysInsert:True
End Sub
代码截图 代码的讲解以上代码利用了Add方法分别插入了一些行和列大家要注意以上语句的用法。这些用法都是我们在实际工作中经常用到的。列表对象对于实际工作有着非常重要的价值值得我们深入的学习。
代码的运行测试 如果需要对新插入的行执行某些操作可以将对象变量设置为新行
Dim oNewRow As ListRow
Set oNewRow Selection.ListObject.ListRows.Add(AlwaysInsert:True)
oNewRow.Range.Cells(1,1).Value Value For New cell 我20多年的VBA实践经验全部浓缩在下面的各个教程中
