三九宝宝网宝宝百科宝宝知识

VBA如何在WORD中实现移动表格

12月25日 编辑 39baobao.com

[请教EXCEL表格中如何建立下拉选项]这个要分两步来做: 1:做下拉菜单: 选择你要设置下拉的区域单元格,数据-有效性-允许-序列- 下面输入你的选项 每个用","英文的逗号隔开,最后一个后面不要。 如果选项太多,那么就用定义...+阅读

使用VBA操作Word表格 一、生成表格 Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range Set mRange = ActiveDocument.Range mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.End Set SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns) End Sub 上面过程的作用是在活动文档的末尾插入一个mRows行,mColumns列的表格。 二、在读写表格中的单元格 写入单元格使用如下代码:TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter "文本" 上面代码的做用时在curRow行,curColumn列处插入字符“文本”。其中TableObject为表格对象,如果使用了生成表格中的例子,那么可以用SelfGenTable来替代TableObject。三、调整单元格对齐方式 水平对齐设置 Selection.ParagraphFormat.Alignment=水平对齐常数(具体的常数可以查看帮助文件的说明) 如何选择单元格? 选定特定单元格 TableObject.Cell(Row:=1,Column:=1).Select'选定单元格1,1 选定行 TableObject.Rows(i).Select'选定第i行 选定列 TableObject.Columns(i).Select'选定第i列 选定整个表格 TableObject.Select 首先执行表格元素选择程序,然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。垂直对齐方式 Selection.Cells.VerticalAlignment=垂直对齐常数 也是首先选择表格元素,可以使单个单元格,单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列,有兴趣的朋友可以自行寻找答案。 四、设置表格边线类型 下面的代码对整个表格的所有边线设置成细实线: SelfGenTable.Select With Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle Borders(wdBorderVertical).LineStyle = wdLineStyleSingle End With 同样是对Selection进行设置,所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置,这里就不再列举了。 五、调整表格尺寸 下面的代码对一个六列的表格设置宽度,宽度采用百分比宽度,从左至右的宽度百分比依次为:30,10,10,30,10,10: Dim WidthP(0 To 2) As Integer Dim j As Integer dim i as Integer WidthP(0) = 30 WidthP(1) = 10 WidthP(2) = 10 j = 0 For i = 0 To SelfGenTable.Columns.Count - 1 If j >2 Then j = 0 End If SelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j) j = j + 1 Next 上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式,这里选择的是百分比列宽,可以根据自己的实际情况选择其他列宽形式,然后再设置相应的数值。 表格的行高请读者以此类推(实际上我还没设置过行高,都用自动生成的就够了) =============================================== 编写操作表格的程序时需要注意,Word表格的行列起始值为1,而不是0。 =============================================== 下面是一个拆分字符串的代码,当插入表格的文本过长时,可以设定一个长度,超过这个长度就进行回车,这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整以使文本能完整的显示,这也就是我为什么没有通过代码设置单元格高度的原因。 Private Function FoldText(mLen As Integer, mStr As String) As String '折叠文字函数,mLen为折叠前的文字长度,mStr为文字的内容 Dim i As Integer Dim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) >mLen Then Do While Len(mStr) >mLen tmpStr(0) = Left(mStr, mLen) mStr = Right(mStr, Len(mStr) - mLen) tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf Loop tmpStr(1) = tmpStr(1) + mStr Else tmpStr(1) = mStr

以下为关联文档:

如何用excel电子表格做仓库的出入库操作方法如下 1 首先,新建一个工作表,命名为“一月”注意:一个进销存表至少要包括:物料编号、名称、数量、单价和总金额等信息,即使是最简单的进销存表也至少要包含上述要素。 2....

如何用电子表格做每日出入库表格如何2113用电子表格做每日出入库表格 仓库 物料 收发存 入帐表物料编码 物料名称 2010 年 10 月日期5261摘要单位入库数量发出数量结存单价金额备注说明210-1上月结存 10-2...

库存进库出库每天都有进出库我想问问高手怎么样做这个表格首先第一表为库存表:项目有-名称,入库,出库,库存量 第二表为入库表:项目有-日期,名称,数量,合计 第三表为出库表:项目有-日期,名称,数量,合计 之后,在库存表中的名称列录入你的所有商品名...

EXCEL仓库出入库表格全做参考,你看看 搜索:北京富通维尔科技有限公司网站,里面有很多版本可以下载,包括。仓库公司版关注的是库内管理,比如货位管理、先进先出等;进销存公司版关注的是采购成本和销售...

求excel出入库表格带公式的仅仅通过公式,是实现不了仓库管理的,要通过VBA,而且要用到sql功能。 我给你发了一个,你可以参考一下。 功能扩展性很强,先看看介绍: Excel物资管理系统,实现入出库管理、库存管理、...

两个EXCEL表格数据合并问题精通Vlookup的来楼上的方法不能处理同名学生的情况,下面我介绍我的办法。 根据你的情况,同一学校里同名学生的概率还是很大的,所以合并时,不但要对比姓名,还要对比班级,也就是把班级和姓名都相同...

航海类应届毕业生个人简历表格范文word求职简历模板 发到你QQ邮箱了,希望能够帮的上你 更多简历模板参考: -----范文---------- 航海技术专业个人简历模板 教育背景 毕业院校:**大学**系航海技术专业 所学课程:交...

如何使用wps表格自动计算功能1、首先我们使用wps office2019打开一个表格,然后点击左上角的文件图标 2、在文件列表中,我们找到工具,点击打开 3、在工具的下拉列表中,我们找到选项,点击打开 4、在wps offi...

在WPS表格里怎么计算啊付费内容限时免费查看 回答 您好!已收到您的问题了,正在帮您整理答案,请稍等一会哦 打开WPS表格,输入折扣。 2 /7 复制原来的价格所在的表格区域。 3 /7 粘贴在折扣后金额的表格...

推荐阅读
图文推荐