基于VBA与Word的报表定制工具的设计与实现

文章编号:1008-1402(2007)04-0522-03

基于VBA 与W ord 的报表定制工具的设计与实现

①

文必龙,　詹丽丽,　王　瑞,　王　颖

(大庆石油学院计算机与信息技术学院,黑龙江大庆163318)

摘　要:　在综合分析了当前常用的报表样式之后,对它们进行分类,总结定义了多种常用报表样式.

用户可以自由选择组合定制自己所需要的报表样式.本文采用VBA 作为编程工具,以域的方式来实现数据的定义,在W ord 下完成了报表定制工具的设计与实现.实现报表模板的一次定制,多次使用.

关键词:　VBA ;W ord ;报表;定制工具中图分类号　TP311 文献标识码:　A

1　概　述

随着国内商用企业管理软件的逐渐成熟,市场对于企业报表的需求也日益升温.简单的操作方式帮助企业实现技术和业务的脱离,让不懂技术的业务人员也能方便的汇总不同的业务信息,形成各种分析汇总报表.目前市场上制作报表的工具很多,但是大多的报表工具都需要安装相应软件,业务人员操作困难,使用不方便.而W ord 作为当今主流的办公软件,拥有绝大多数的办公用户,它的简单易用也得到世界的公认.本文在收集分析了众多常用报表样式后,利用

VBA 在W ord 中设计实现了常用的报表定制工具,业务人员可以在熟悉的W ord 操作环境中定制所需报表,报表格式更加灵活,可编辑性更强,有助于提高办公效率.

2　VBA 简介

VBA (Visual Basic F or Application ),它是新一代

标准宏语言,是基于Visual Basic F or Windows 发展而来的.它与传统的宏语言不同,VBA 提供了面向

对象的程序设计方法,提供了相当完整的程序设计

语言[1]

.VBA 内嵌于Micros oft O ffice 应用程序套件中,用来对Micros oft O ffice 进行二次开发,O ffice +VBA 提供了一个强大的业务开发平台.VBA 与O f 2fice 宿主应用程序紧密整合、操作界面与O ffice 所

保持的一致性,以及不需要运用其它工具创建解决方案的能力,这些是其它语言、其它开发工具所做的不到的.对于商业管理者来说,利用O ffice +VBA

开发平台,意味着能迅速地开发解决方案并容易推广应用,这与用大量的时间开发新的应用程序和高昂的最终用户培训费用相比,这些解决方案在投资回报和省时方面提供了非常大的商业利益.

3　报表定制工具的设计与实现

3.1　报表定制工具的总体结构

图1描述了报表定制工具的总体框架.概括的说包括了3个主要的部分:数据定义,报表格式设计,解释生成报表.

图1　报表定制工具总体结构图

数据定义部分主要是定义数据库的连接信息.报表样式设计由报表表体设计模块和报表页面设计模块两部分组成.解释生成报表由报表解释模块,报表生成模块组成.通过把一个复杂的过程分成几个模块,各个模块相对独立,减轻了开发过程的复杂性.

①收稿日期:2007-03-05

作者简介:文必龙(1966-),男,湖北省仙桃市人,大庆石油学院计算机与信息技术学院,教授,博士.

　第25卷第4期 佳木斯大学学报(自然科学版) Vol.25No.4

　2007　年07月 Journal of Jiamusi University (Natural Science Edition )

July 2007

3.2　报表样式的分析和设计

通过统计和分析当前常用的报表格式,总结出几种报表的常用样式.将这些常用样式全部用宏代码编写在程序中,使表格样式输出自动化.在对市场的需求进行调查之后,本着灵活通用的原则,设计定义本工具基本报表样式如下:

1、单值定义.

2、显示多个字段的普通二维表.

3、首列显示序号的多字段二维表.

4、横向统计报表.

5、分栏显示表格.

6、字段合并表格.

7、首列显示序号的字段合并表格.

8、延伸方向为自左向右的表格.

9、最多显示N条记录.10、显示图片的表格.11、纵向统计.12、单元格拆分.

这12种基本报表样式构成了报表基本模板样式库.在报表样式选择模块里对每种样式都有图片示例和详细说明.用户在定制报表时可根据自己需要对库中的报表样式进行组合,定制出满意的报表模板.

3.3　报表定制工具的实现

报表定制工具的实现过程中,对于域的应用十分重要.域类似数据库中的字段,实际上,它就是W ord文档中的一些字段.每个W ord域都有一个唯一的名字,但有不同的取值.在报表定制工具的实现过程中都是采用域来记录和隐藏信息.

报表定制工具的实现可以分成3部分:数据库的访问,报表样式定制,报表解释生成.该报表定制工具支持3种数据库:Oracle,F oxpro,Access.在数据源定义模块选择数据库类型后根据各数据库的连接要求填写相应信息.程序将连接信息以域的方式写入报表模板.在生成报表时从文档模板中获取数据库连接信息,完成数据库连接.例如:选择Oracle 数据库作为数据源,则W ord文档中将以域的方式写入以下信息{SET DBS OURCE”Oracle”}{SET DBIP”127.0.0.1”}{SET USERNAME”user”}{SET PASSW D”tiger”}.数据库访问信息的域格式具体定义如表1所示:

报表样式定制,报表从形式上一般可分解为标题区,表头区,表体区,表尾区.报表的实质就是数据和空表结构的合成.除了表体区以外的其它组成的空表结构是相对固定的[2].所以报表样式定制可以分为两部分.对于相对固定的空表结构提供了表头设计和表尾设计模块,可以在生成报表时自动插入页码,表头和表尾信息等.对于表体部分的设计,通过直接引用或组合已定义的12种报表样式来完成.在模板中有两种可以变化的值:单值和表值.单值是指只有一个值,并且要求是从数据库中取出的.例如:石油行业中,要统计某口井的信息,井号通常作为单值处理.定制的报表模板样式的相应信息也是通过固定格式写入W ord文档的域中.例如:定义报表数据查询{SET QUERY test1”SE LECT I D,NAME,AGE FROM ST UDE NT}.报表表体部分定义{SET T ABLE1”test7”1101000}.

具体模板样式的域格式定义如表2:

表1　数据库访问的域格式定义

域格式说明

SET DBS OURCE

“数据源类型”

选择Oracle,F oxpro,Access

中的一种作为数据源

SET DBIP

“数据库地址”

访问远程数据库要给

出数据库的IP地址

SET DBNAME

“数据库名称”

连接的数据库名称或

数据文件的路径

SET USERNAME

“用户名”

数据库的用户名

SET PASSW D

“密码”

数据库的密码

当程序自动生成报表文件时,解释程序将根据这些域的定义和参数等信息来进行数据的载入和更新.

报表的解释生成模块,是通过分析解释相应位置的域代码的内容,首先与数据源建立连接,执行查询,获取数据.然后依次分析文档中域的内容,确定报表样式,在指定位置填入查询出的数据,最终生成报表文件.在解释生成报表的时候,对于图片的处理是一个难点,尤其是在F oxpro数据库中G eneral字段中的图片如果是手工粘进去的,必须要经过特殊处理,存储在F oxpro中的图片不同的格式有不同的头信息.本工具采用的解决方法是,在分析了F oxpro中存储的图片的具体格式后,确定图片真正数据的开始位置,将数据读出生成临时图片文件,再将生成的临时图片文件导入到报表中,可以支持jpg和bm p两种格式的图片.部分代码如下: Dim bytedata()As Byte’存放图片的二进制串

Dim Arr()As Byte

Dim Bu ffer As S tring

Dim ObjectO ffset As Long

Dim BitmapO ffset As Long

Dim BitmapHeaderO ffset As Integer

Dim ArrBmp()As Byte

file length=rs(fieldindex1-1).ActualS ize

325

第4期文必龙,等:基于VBA与W ord的报表定制工具的设计与实现

ReDim Arr(file length)

Arr()=rs.fields(fieldindex1-1).

G etChunk(file length)

ObjectO ffset=20

Bu ffer=””

F or i=ObjectO ffset T o ObjectO ffset+512 Bu ffer=Bu ffer&Chr(Arr(i))

Next i

　BitmapHeaderO ffset=InS tr(Bu ffer,”BM”)

I f BitmapHeaderO ffset>0Then

　BitmapO ffset=ObjectO ffset+

BitmapHeaderO ffset-1

ReDim ArrBmp(UBound(Arr)-Bitmap

O ffset)

ReDim ArrBmp(UBound(Arr)-Bitmap

O ffset+1)

j=0

F or i=BitmapO ffset T o UBound(Arr)

ArrBmp(j)=Arr(i)

j=j+1

Next i

filenum=FreeFile

Open Application.path+”temp1.bmp”

F or Binary As filenum

Put#filenum,,ArrBmp()

Close#filenum

End if

…

Selection.InlineShapes.AddPicture filename:=Application.path+”temp1.bmp”’插入图片

LinkT oFile:=False,

SaveWithD ocument:=T rue

Selection.M oveLeft unit:=wdCharacter,

C ount:=1,Extend:=wdExtend

…

K ill Application.path+”temp1.bmp”

表2　模板样式的域格式定义

内容域格式说明

查询SET QUERY查询名称“查询表达式”查询名称可以是序号,也可以是标识符.查询表达式是标准的S Q L语句.

单值定义SET FIE LD查询名列号“值”

一个单值对应一个查询中第1条记录的一个列值.

列号用三位数表示,不足三个的前面用0补齐.初值为””.

单值引用REF FIE LD查询名列号

就是引用书签,生成报告时,自动显示成实际的值.在插入REF FIE LD

之前同时也插入一个SET FIE LD.

表值SET T ABLE“查询名”“参数列表”

查询名指定使用哪个S Q L语句获取数据.参数列表中的参数包括:

是否多页显示,每页显示条数,是否统计求和或平均数,

报表延伸方向,是否分栏显示,每栏显示的数据行数等等.

图2　生成报表实例

4　报表定制工具使用实例

报表工具的安装,首先把”C:\report\报表定

制工具模板.dot”点击右键“打开”,点击“工具->

宏->安全性”中将安全级设置为低.然后运行

“工具->宏->宏”,在列表框中选择“defineBut2

ton”,点击运行按钮,此时W ord工具栏中会出现一

组专用的菜单条.见图2报表实例所示,由4个功

能按钮组成:定义查询,已有报告模板,页面设置,

生成报告.

5　结束语

用VBA在W ord中开发报表定制工具,无须安

装其他软件,用户可以直接在他所熟悉的W ord中

定制报表模板,定制好的报表模板可以在其它地方

多次运行,业务人员可以在报表生成后自由编辑.

该报表定制工具已经应用在大庆油田录井专业数

据库建设项目的报表开发部分中,并且收到了良好

的反响.(下转527页) 425佳木斯大学学报(自然科学版)2007年

3　结束语

为使执行文件简捷,并没有在程序中给出输入语句,决定建立文本文件的个数,何况有时也不知道应该使用多少文件,例如:若将某磁盘写满,只能按大致范围修改参数,当磁盘没有足够空间时就不能建立文件,则自动退出.当然为了需要,用户也可

加入0AH 号功能调用,实现输入任意文件个数,满足用户需要.该程序通过实践运行检验,效果良好.参考文献:

[1]　孙维连.DE BUG 与软件维修技术[M].哈尔滨:哈尔滨工程大

学出版社,2005.1.

The Technology to Establish Mass Text Files

DAI Zhi -guo ,　XUE Jia -mei

(Jiamusi U niversity ,Jiamusi 154007,China )

Abstract :　The assembler to establish multiversion file was given through establishing environment and technical analysis of multiversion file.The application of redirection for the operating system was discussed in detail.

K ey w ords :　multiversion file ;assembler ;redirection

(上接524页)

参考文献:

[1]　闫丽,邓哲.基于VBA 的O ffice 二次开发[J ].通化师范学院学

报,2006.7,27(4).)

[2]　尹呈,徐立臻.基于语义对象报表工具的实现[J ].计算机工程

与设计.2006,27(16):3048-3050.

[3]　陈国华,刘海林.管理信息系统中自定义报表工具的研究与

设计[J ].计算机应用与软件.2006,23(5):74-75.

[4]　T aruna G oel ,Rachna Chaudary.VBA 专业项目实例开发[M].北

京:中国水利水电出版社,2003.

The Design and Implementation of R eport Customization Tool

B ased on VBA and the Word

WHEN Bi -long ,　ZH AN Li -li ,　WANG Rui ,　WANG Ying

(Dept .of Computer ,Daqing Petroleum I nstitute ,Daqing 163318,China )

Abstract :　A fter com prehensive analyzed the main report forms usually used ,they were Classified ,summarized and https://www.wendangku.net/doc/f81620241.html,ers can freely choose ,combine and customize their required report forms.In this paper the authors use VBA as programming tool to realize the definition of data by the field of W ord.The report customization tool design and im plementation were com pleted under the W ord.achieving customized report tem plates once to be used repeatedly.

K ey w ords :　VBA ;W ord ;report ;customization tool

7

25第4期代治国,等:海量文本文件建立技术

怎么用word制作表格

?怎么用word制作表格？ ?解答： 在Word中做表格有多种方法，今天我给大家讲解两种——绘制表格和插入表格。 一、绘制表格 用绘制表格的方式来制作表格，虽说是繁琐了些，或在应用熟练的人们手中简直是多余，但对于初学者，我建议大家还是应该掌握这种方式。 https://www.wendangku.net/doc/f81620241.html, 我们可以用图一所示的三种方式来打开绘制表格的窗口。 图一 点击“表格和边框”项后会出现图二所示窗口，同时鼠标也变成一枝铅笔模样。(当然，也有“表格和边框”项本来就勾选好了的，我们这时就只会发现鼠标变成了铅笔模样，同时“表格和边框”窗口中第一个“铅笔” 图标呈凹陷状态。)

图二 此时铅笔随我们的鼠标移动，我们便可以通过拖动的方式来绘制表格，很简单，记住一点，用鼠标拖动时首先绘制出的是一个四边形的虚线框，记住，这是整个表格的外框线，当我们放开鼠标的时候，虚线框变成了实线(前提是线条类型我们选择的是实线的前提下，这我们在后面会提到)如图三。 https://www.wendangku.net/doc/f81620241.html,

图三 外框确定下来了，我们现在可以在里面通过鼠标绘制出横线、竖线，根据需要，如果需要绘制斜线，同样可以绘制。需要注意的是，在绘制的时候一定要我们所需要的线一定是虚线位置定下来之后我们再放开鼠标。现绘制好的表格如图四。

图四 图四是所示的表格像很多初学者绘制的一样，看起来总的很别扭，不用急急的删除这样的表格，其实用绘制表格普遍会出现的问题，接下来我们来讲进如何调整。 其实我们可以很方便的将表格调整使它协调起来。 我们可以选定表格的所有单元格(鼠标从左上的第一个单元格选到右下的最后一个单元格或用相反的顺序，亦可以将鼠标移到表格左上端外框边缘的移动按钮上点击)，然后在“表格和边框”窗口中选择“平均分布各行”和“平均分布各列”来调整表格的行和列，然后再看表格，是不是成了一个标准的表格了。 https://www.wendangku.net/doc/f81620241.html,

Excel VBA_批量自动制图表实例集锦

1, 自动生成图表 ‘https://www.wendangku.net/doc/f81620241.html,/thread-1058346-1-1.html ‘统计报告0925a.xls ‘2013-9-25 Sub lqxs() Dim Arr, ks, js, nm1$, nm2$, dz1$, dz2$ Dim dz$, dz3$, yy$, nm$ Application.ScreenUpdating = False Sheet3.Activate Arr = [a1].CurrentRegion ks = 3: js = UBound(Arr) - 1 nm = https://www.wendangku.net/doc/f81620241.html, yy = Left(nm, Len(nm) - 3) nm1 = "图表6" nm2 = "图表4" dz = "A2:B" & js & ",D2:E" & js ActiveSheet.ChartObjects(nm1).Activate With ActiveChart .SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:=xlColumns .SeriesCollection(1).Select dz1 = "R3C2:R" & js & "C2" .SeriesCollection(1).Values = "='" & nm & "'!" & dz1 dz2 = "R3C4:R" & js & "C4" .SeriesCollection(2).Values = "='" & nm & "'!" & dz2 dz3 = "R3C5:R" & js & "C5" .SeriesCollection(3).Values = "='" & nm & "'!" & dz3 .ChartTitle.Select Selection.Characters.Text = yy & "月份合格率" End With ActiveSheet.ChartObjects(nm2).Activate With ActiveChart .ChartArea.Select dz = "H2:T2,H" & js + 1 & ":T" & js + 1 .SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:= _ xlRows dz2 = "R" & js + 1 & "C8:R" & js + 1 & "C20" .SeriesCollection(1).Values = "='" & nm & "'!" & dz2 .ChartTitle.Select Selection.Characters.Text = yy & "月份不良趋势统计" End With Range("A" & ks).Select

Excel VBA实例教程 #060：使用VBA自动生成图表

在实际工作中我们常用图表来表现数据间的某种相对关系，一般采用手工插入的方式，而使用VBA代码可以在工作表中自动生成图表，如下面的示例代码。 1.Sub ChartAdd() 2. Dim myRange As Range 3. Dim myChart As ChartObject 4. Dim R As Integer 5. With Sheet1 6. .ChartObjects.Delete 7. R = .Range("A65536").End(xlUp).Row 8. Set myRange = .Range("A" & 1 & ":B" & R) 9. Set myChart = .ChartObjects.Add(120, 40, 400, 250) 10. With myChart.Chart 11. .ChartType = xlColumnClustered 12. .SetSourceData Source:=myRange, PlotBy:=xlColumns 13. .ApplyDataLabels ShowValue:=True 14. .HasTitle = True 15. .ChartTitle.Text = "图表制作示例" 16. With .ChartTitle.Font 17. .Size = 20 18. .ColorIndex = 3 19. .Name = "华文新魏" 20. End With 21. With .ChartArea.Interior 22. .ColorIndex = 8 23. .PatternColorIndex = 1 24. .Pattern = xlSolid 25. End With 26. With .PlotArea.Interior 27. .ColorIndex = 35 28. .PatternColorIndex = 1

在word中表格制作教学设计

在word中表格制作教学设计 一、教学目标 1、认知目标 （1）了解表格中的基本概念及生活中表格的应用； （2）掌握在word文档中创建表格的方法；能熟练编辑制作的表格。 2、能力目标： （1）在利用菜单操作及实际绘制的过程中，了解绘制表格的方法，熟悉制作表格的过程。（2）培养学生的动手能力、思维能力、研究能力、观察能力、和实践操作能力。 3、情感目标： （1）通过学生对表格的创建与编辑，激发学生对美的追求；通过成果展示培养学生们的自信心。 （2）通过拓展知识点，多种操作手段的讲解，培养学生的开放性思维及创新能力。 二、教学重点与难点 （1）重点：表格的创建 （2）难点：单元格的合并。 三、教学准备 1、计算机网络教室 2、word软件； 四、教学过程 （一）、创设情境，引入课题 同学们，请问这节是什么课？你们是怎么知道的？ 展示课程表，及其它类型的各种表格，可见表格在我们的生活中运用广泛。 展示一份简单的自我介绍（文字版和表格版）提问：这两种介绍方式你更喜欢哪一种？为什么？ 文字版： 表格版 总结：表格形式的介绍更清晰明了，今天我们就要尝试制作一张自我介绍的表格。 学生回答 引出课程表 学生讨论分析两份介绍的优缺点 同步进行ppt展示 （二）、了解概念，学习操作 1、概念讲解 要制作表格，首先需要了解表格的一些基本概念。 （介绍行线、列线、单元格、行、列的概念） 2、这是一张老师制作的表格，你能不能做出来，试着做一做。

教师巡视指导。 …… 提问：插入表格的方法有哪些，你是怎么知道的呢？ 对学生操作步骤归纳细化 3编辑表格 观察如下两个表格，找出两个表格有什么不同。 学生仔细观察回答： 1) 单元格大小不一； 2) 第一行第一列单元格增加了斜线表头； 3) 右下角的3个单元格合并成了1个。 问学生：你能把你的表格也做成这样吗？ 自学指导： 根据导学资料卡第2页的内容，完成下列操作。 （1）调整单元格的大小； （2）在第一个单元格中绘制斜线表头，并输入日期和时间； （3）根据时间计划表的样式合并相应的单元格。 学生根据自学指导操作，教师巡视指导。 检测自学效果：随机展示学生的作品，请学生评价。 教师点拨、补充。 小结： 调整单元格的大小： 将鼠标放在要调整的边框线上，当光标变成双向箭头时，按住鼠标左键，当边框线变成虚线时拖动到所需位置即可。 制作斜线表头： 将光标移动到要插入斜线表头的单元格中，在“表格”菜单中选择“绘制斜线表头”命令，在弹出的“插入斜线表头”对话框中选择所需的表头样式和标题字号，输入行标题和列标题即可。 合并单元格： 选中要合并的几个单元格，单击鼠标右键，选择“合并单元格”命令即可。 根据学生掌握情况给予时间继续完善。

Word表格制作教案

Word表格制作教案 教学目标： 知识目标：了解表格中的基本概念，掌握表格的创建、编辑。 能力目标：能够熟练完成表格的制作。 情感目标：培养学生的审美能力，自主思考与学习能力，使其在探索中进步。 教学重点：表格的创建、编辑 教学难点：表格的编辑 教学方法：任务驱动法、讲授法、演示法及练习法 学法：思考、讨论、练习 教具准备：计算机、课件及多媒体设备 教学内容及过程： 课题引入： 展示两份自己的简历，一份使用表格，一份使用文字描述。（幻灯片展示） 提问：哪种表示方法更好，好在哪里？（学生对比两种方法，得出结论：表格更加直观、清晰的看到相关信息） 同学们，在我们日常生活中除了个人简历，你们还经常见到哪些表格？（学生回答）例如：上课要用到的课程表、考试结束后的成绩单（用幻灯片展示提到的两种表格）。这些表格让我们非常清晰、有条理化的看到相关信息。那么这些表格是怎么制作的呢？这就是本节课我们要学习的内容—word表格制作（展示幻灯片）。 讲授新课： 一、表格的创建 1、认识表格 在学习表格的制作之前我们先来认识表格。（利用我国奥运金牌汇总表进行讲解，展示第3张幻灯片。）

我们来看一下表格由哪些部分组成？ 表格：由横竖对齐的数据和数据周围的边框线组成的特殊文档。 单元格：表格中容纳数据的基本单元。 行：表格中横向的所有单元格组成一行。 列：竖向的单元格组成一列。 2、创建表格的方法（教师边演示边讲解） 方法一：使用菜单插入表格 操作如下： (1)打开文档，把光标定位于需要制作表格的地方； (2)单击“表格”菜单的“插入”子菜单中的“表格”项，打开“插入表格”对话 框； (3)在“插入表格”对话框中设置表格参数； 在[列数]和[行数]文本框分别用于设置所创建的表格的列数与行数； (4)单击“确定”按钮。 方法二：手动绘制表格 操作如下： (1)打开文档，把光标定位于需要制作表格的地方； (2)单击“表格”菜单的“绘制表格”项，鼠标指针变在笔形； (3)按住鼠标左键不放，并拖动鼠标，画出表格的外边框； (4)继续拖动鼠标画出表格的行、列线； (5)制作完成后，关闭“绘制表格”工具栏。 任务一：以“课程表”为例制作出“课程表”的初稿。（展示幻灯片，学生观察几行几列） 学生活动：在自己的计算机上分别用两种方法完成“课程表”的初稿。（建立一个8行，11列的表格）请同学分别演示用不同的方法制作课程表的初稿。 通过任务一小组讨论分析总结两种方法的适用于创建什么类型的表格（使用菜单插入表格：适用于相对较大结构规律的表格；手动绘制表格：适用于小的、结构比较自由的表格。） 思考：如何从任务一的表格变成一个完整的“课程表”？ 二、编辑表格 如何将我们刚才建立的表格变成一个完整的“课程表”，就要对表格进行编辑。编

VBA自动生成图表

Sub BatchPlot() Dim i For i = 2 To 10 Charts.Add '增加一个图表 ActiveChart.ChartType = xlLineMarkers '设置图表类型为折线图 ActiveChart.SetSourceData Source:=Sheets("批量绘图").Range("A1:D1," & "A" & i & ":D" & i), PlotBy:=xlRows '设置图表的数据源 ActiveChart.Location Where:=xlLocationAsObject, Name:="批量绘图" '设置图表的位置为当前工作表中 ActiveChart.Parent.Top = 220 * (i - 2) '设置图表的上下间隔为220磅 ActiveChart.Parent.Left = 456 '设置图表距左为456磅 Next i End Sub 以完成的 Sub BatchPlot() 'Set ab = Range("H7:Q23") '生成图表的位置 Set ab = Range(Cells(7, 8), Cells(23, 17)) Set bbb = ActiveSheet.ChartObjects.Add(0, 0, 0, 0) bbb.Chart.ChartType = xlLineMarkers '折线图 bbb.Chart.SetSourceData Source:=Sheets("Sheet1").Range("C1:C128") '数据源 'ActiveChart.Location Where:=xlLocationAsObject, Name:="批量绘图" '设置图表的位置为当前工作表中 With bbb .Top = ab.Top .Left = ab.Left .Width = ab.Width .Height = ab.Height End With End Sub

(完整版)Word中插入表格教案

Word中插入表格教案 一、教学目标 （1）知识与技能：学会在Word文档中插入规则表格和不规则表格的方法；能熟练编辑制作的表格。 （2）过程与方法：使用“任务驱动”教学模式，在利用菜单操作及实际绘制的过程中，了解绘制表格的方法，熟悉制作表格的过程。 （3）情感态度与价值观：通过学生对表格的自由修饰，激发学生对美的追求，培养学生的创新精神；通过成果展示培养学生们的自信心。 二、说教材分析 Word文字处理是信息技术等级考试的模块之一，它应用于各个领域和行业，是人们利用电脑学习、工作必不可少的。本节课教学内容，介绍了如何在Word文档中插入表格、编辑表格和修饰表格，在Word中是比较重要的一节，它具有一定的实际应用意义。本节课教学重点是Word表格绘制；难点是不规则表格的绘制及修饰。 三、说教法与学法： 1、为了使学生变被动学习为主动愉快学习，激发学生的求知欲望，继续使用“任务驱动”法。通过“任务驱动”法的使用，能逐渐来培养学生自学能力，充分发挥学生的主体作用，培养学生创新意识，提高学生们提出问题、分析问题、解决问题的综合能力。 2、在教学活动过程中，注意信息技术课与其它学科知识的渗透，注重学生信息素养的培养。 3、指导学生在学习过程中使用“观察、提问、搜索、评价、综合、创新、交流、评估”模型进行学习，以培养学生科学的发现问题、分析问题和解决问题的思维习惯。 4、教学辅助工具：黑马教学软件系统，教学课件。 四、说教学过程： （一）课前练习：键盘打字练习（5分钟）： 内容1：英文：英语课本中最近所学语句。 2：中文：古诗一首（或名句、重要时事新闻一则）。 （二）新授内容 1、展示制作精细美观的课程表两幅：（2分钟） 并布置为“任务”。 教师：这些课程表制作的怎么样？ 学生：（好看、美丽、……）

利用VBA自动提取CAD图纸明细表并进行数据库管理

自动提取CAD图纸明细表及数据库管理的研究与实践 本文TAG：工程图明细表自动提取AutoCAD数据库管理2008-10-21 作者：尹胜安出处：e-works 阅读：1582 推荐：0 本文详细介绍了如何开发应用AutoCAD来自动提取CAD图纸明细表及管理数据库，其切切实实的 为设计工作节约了大量的时间。 制造企业工程技术人员在利用CAD进行产品设计时产生大量的DWG文件，每一个DWG文件中包含一张或数张图纸，设计的基础资料如：工程项目、图号、设备（物料）名称、型号规格、材质、数量、重量、备注等等文本信息都记录在图纸标题栏明细表中。设计工作完成后，工艺编制、成本预算、物料消耗、物流采购、计划调度、车间生产等项管理业务都将依据图纸进行操作。在通常的管理中，各业务部门往往通过人工的方式从CAD图纸或纸质图纸明细表中获取技术文件数据，再利用WORD或EXCEL 进行手工二次录入，编制各自需要的明细表、经过汇总，生成相应的报表，并在此基础上产生工艺技术文件通俗简称为（工单），按不同的用途也有的称之为物料消耗单、物料清单BOM等。这种单页面的文本制作方式虽然使用了电脑操作，但并未能摆脱繁重的手工录入和编辑工作，不能进行数据的自动处理，存在图纸与制表数据不一致、差错率高、工作量大、编制周期长、效率低下、查询繁琐、数据不能共享等多种弊端。因此，采用自动提取CAD明细表与进行数据库管理的方法是克服以上弊端提高企业设计、技术、管理效率和工作质量的有效途径。 AutoCAD是AutoDesk公司开发的通用CAD工作平台，在机械、造船、电子、汽车、测绘、建筑等许多行业中得到广泛的应用，其完善的图形绘制和编辑功能，多种接口文件，较强的数据交换能力，特别是开放的二次开发功能给用户提供了有力的技术支撑。 Microsoft VBA (Visual Basic for Application) 是一个面向对象的可视化编程环境，它是由Visual B asic派生而来，AutoCAD内嵌的VBA提供了与Visual Basic相似的丰富的开发能力。AutoCAD从R14版开始增加了作为ActiveX Automation服务器应用程序的功能，这是一个功能强大的接口，它提供了一系列开放的对象，通过这些对象，VBA应用程序便可以对AutoCAD进行编程控制。AutoCAD2000及以

Word表格制作教学设计

Word表格制作 知识目标：了解表格中的基本概念，掌握表格的创建、编辑与调整。能力目标：能够熟练完成表格的制作。 情感目标：培养学生的审美能力，自主思考与学习能力，使其在探索中进步。 教学重点：表格的创建、编辑与调整教学难点：表格的编辑与调整 教学方法：任务驱动法、讲授法、演示法及练习法学法：思考、讨论、练习 教具准备：计算机、课件及多媒体设备 教学内容及过程：课题引入： 同学们，在我们日常生活、工作中往往会用到表格，例如：上课要用到的课程表，考试结束后的成绩单，求职时的个人简历等等（用第１张幻灯片展示提到的几种表格）。这些表格让我们非常清晰、有条理化的看到相关信息。那么这些表格是怎么制作的呢？这就是本节课我们要学习的内容—word表格制作（展示第２张幻灯片）。 讲授新课： 一、表格的创建 1、认识表格 在学习之前我们先来认识表格。（利用我国奥运金牌汇总表进行讲解，展示第3张列：竖向的单元格组成一列。最多可以有63列，列号的范围是A—CK。

2、创建表格的方法（教师边演示边讲解，展示第5张幻灯片） 方法一：使用菜单创建表格（展示第6张幻灯片） 操作如下： (1)打开文档，调整好光标位置； (2)单击“表格”菜单的“插入”子菜单中的“表格”项，打开“插入表格”对话框； (3)在“插入表格”对话框中设置表格参数； 在[列数]和[行数]文本框分别用于设置所创建的表格的列数与行数； (4)单击“确定”按钮。 方法二：使用“插入表格”按钮创建表格（展示第7张幻灯片） 操作如下： (1)首先要启动word； (2)调整好光标的位置，使它正好位于要插入表格的地方。 (3)将鼠标放在[常用]工具栏的[插入表格]按钮上，按下这个按钮，将出现一个示意网格。按住鼠标并拖动鼠标穿过这些网格，当达到预定所需的行列数后，释放光标键。 例：拖动鼠标使其亮度显示5行6列，并释放鼠标，即在文档中插入一个5行6列表格。 方法三：手动绘制表格（展示第8张幻灯片） 操作如下： (1)打开文档，调整好光标位置；

如何把Word中制作好的表格转换成Excel表格

如何把Word中制作好的表格转换成Excel表格 方法一：打开EXCEL，将光标定位到单元格，点击菜单栏的插入按钮-对象-在新建中，选择对象类型为Microsoft Word 文档。 方法二：将Word表格整体选中，复制到剪贴板上后，打开一个Excel工作薄，在一张新工作表上，选中A1单元，然后，粘贴即可。 例如，一份已经在Word中编辑好价格表，需要以Excel表格形式报出。但是，如果Word表格的单元格中，有多段文字，用上述方法转换会出问题。即，Word表格粘贴到Excel后，有多段文字的单元格，会显示出是，有多个单元格组成的，仅仅是它们之间的单元格框线“隐藏”（视图上显示灰色，不打印）了。 更麻烦的是，那个单元格所在行的其它单元格，均为成为合并单元格。原来Word表格的一行，在Excel 中，“占用”了多行。不但难看，且给编辑带来诸多不便。 解决方法是： 第一步，在Word中，用“编辑”·“替换”命令，将所有单元格中的分段取消。即， 在“查找和替换”对话框的“替换”选项卡上，“查找内容”框中输入（特殊字符）段落标记，且让“替换为”框中空白，然后单击“全部替换”。 第二步，将Word表格整体选中，复制到剪贴板上后，打开一个Excel工作薄，在一张新工作表上，选中A1单元，然后，粘贴。 第三步，在内容需要分段的单元格中，用快捷键－“Alt＋Enter”分段。 提示：不能在Excel中，采用合并单元格的方法，来解决问题。因为，单元格合并后，只能保留，原位于左上方的那个单元格中的内容，其它单元格中的内容会被删除。 想要实现Word内部全部表格数据一次性导入Excel，可以参照如下步骤：首先在Word文档中选择“文件→另存为”，在文件类型中选择“*.htm”。接下来，打开Excel，选择“数据→导入外部数据→导入数据”，在”选择数据源”对话框中选择我们刚刚保存的HTM文件，单击“打开”。在“新建Web查询”窗口中点击你要导入的表格数据前面的黄色“箭头”标记，最后选择“导入”，并选择“数据的放置位置”即可。

word中如何制作表格

word 中如何制作表格 篇一：如何用 word 制作表格 我们可以用图一所示的三种方式来打开绘制表格的窗口。 图一 点击“表格和边框”项后会出现图二所示窗口，同时鼠标也变成一枝铅笔模样。(当然，也 有“表格和边框”项本来就勾选好了的，我们这时就只会发现鼠标变成了铅笔模样，同时 “表格 和边框”窗口中第一个 “铅笔” 图标呈凹陷状态。 ) 图二 此时铅笔随我们的鼠标移动，我们便可以通过拖动的方式来绘制表格，很简单，记住一 点，用鼠标拖动时首先绘制出的是一个四边形的虚线框，记住，这是整个表格的外框线，当我 们放开鼠标的时候，虚线框变成了实线(前提是线条类型我们选择的是实线的前提下，这我们 在后面会提到)如图三。 图三 外框确定下来了，我们现在可以在里面通过鼠标绘制出横线、竖线，根据需要，如果需 要绘制斜线，同样可以绘制。需要注意的是，在绘制的时候一定要我们所需要的线一定是虚线 位置定下来之后我们再放开鼠标。现绘制好的表格如图四。 图四 图四是所示的表格像很多初学者绘制的一样，看起来总的很别扭，不用急急的删除这样 的表格，其实用绘制表格普遍会出现的问题，接下来我们来讲进如何调整。其实我们可以很方 便的将表格调整使它协调起来。 我们可以选定表格的所有单元格 (鼠标从左上的第一个单元格选到右下的最后一个单元 格或用相反的顺序，亦可以将鼠标移到表格左上端外框边缘的移动按钮上点击)，然后在“表格 和边框”窗口中选择“ 平 均分布各行”和“平均分布各列”来调整表格的行和列，然后再看表格，是不是成了一个标 准的表格了。 图五 篇二：Word 表格制作技巧大全(新手必备) Word 表格技巧大全 一,文字巧妙转换成表格 通常大家制作表格时，都是采用表格和边框工具来绘制表格，或者利用“表格→插入→表 格”命令来定制表格，请问如已输入了文字，则有没有办法让文字快速产生表格呢？ 答：有，可以用 Word 提供的表格与文字之间的相互转换功能完成。具体方法是这样： 1 / 7

使用VBA实现EXCEL批量生成图表并发送

使用EXCEL VBA实现图表批量生成并发送 业务需求 office word2007的邮件合并功能是财务、文秘类工作经常使用的功能之一，该功能可以生成包含可变内容的批量邮件文档，广泛适用于发送工资条、成绩单、通知书等，这里不再赘述。笔者所在单位最近为加强员工考核管理工作力度，提出了一个类似于邮件合并功能，但使用邮件合并功能却不能实现的需求，下面用文字结合图表描述： 1.将员工百分制考核结果批量以图表(折线图)反应出来，每一条员工数据均生成一个类似于下图右侧的图表。 （图1） 2.使用类似于邮件合并方式实现员工考核图表的批量发送，将生成的图表插入邮件正文分别发送给每位员工。 （图2） 解决思路 思路一：使用https://www.wendangku.net/doc/f81620241.html,+Sqlserver（或ACCESS等，下同）开发一个网站，设置好权限，允许员工查看自己的反馈结果。 思路评价：可行，但达不到设想中的推送效果。 思路二：使用https://www.wendangku.net/doc/f81620241.html,+Sqlserver开发一个系统，内置图表模板，图表基于固定区域数据生成；为每位员工复制一份作为报表，将该员工数据填写到固定区域；将每位员工的报表作为附件发送给每位员工。 思路评价：可行，但开发量大，效果不直观。

思路三：使用https://www.wendangku.net/doc/f81620241.html,+Sqlserver开发一个系统，使用VS2008版以上自带控件或第三方控件如dotnetcharting，为每位员工生成一张图片，将该图片插入邮件发送给每位员工。 思路评价：可行，但开发量大。 思路四：使用excel VBA为每位员工生成一张图片，将该图片插入邮件发送给每位员工。这个思路一开始并没有列入考虑范围，主要原因是当时认为在excel中为每位员工生成一个图表是不可能的，即使能生成也没办法脱离excel工作薄，分别和员工对应起来并发送。最终采用本思路，是缘于笔者发现VBA可以非常容易地把图表导出为图片。 思路评价：可行，事实证明，开发量比想象的小很多。 开发环境准备 1.在运行该程序的电脑上安装Office Excel2007或以上版本； 2.正确配置OUTLOOK使之能够正常发送邮件； 3.打开Excel2007新建工作薄，把测试数据输入到sheet1工作表，把工作薄保存到工作目录（为方便后文描述，这里的目录设为“E:\excel-vba”），在该目录下新建“imgfile”子目录，以存放图片。示例数据如下： 注意：附件路径是个公式：=concatenate(“E:\excel-vba\imgfile\”,A1,”.jpg”) 含义是图片以员工姓名命名，这意味着员工姓名不可重复。 4.完成宏安全设置，如图所示： （图3） 实现过程 这个业务需求实现包含两个难点，一是为每位员工生成对应的图片；二是批量发送带图片的邮件。基于这两点，笔者在excel工作薄中设置了两个按钮，编写了两段代码，分别对应上述两个问题。事实上，这两段代码完全可以整合到一起，这里为了方便理解，还是分开介绍。笔者采取代码中加入注释的方式帮助大家理解代码含义。

(完整版)word中的表格教案

4.3 作品登记表（WORD中表格制作） 一、教学目标 知识与能力：使学生会利用文字工具软件WORD对表格信息进行加工与表达。 过程与方法：通过演示的方法，让学生先理解操作任务所用的命令，然后再自主实践和探究完成操作任务，合作探究操作中所碰到的问题 情感态度价值观：培养学生自主探究能力，树立学生积极向上的求学精神 二、学情分析 对于本节内容，学生已经有一定程度接触。对所涉及的命令，学生会有不同程度的掌握，有的学生的操作已经熟悉，而有的学生可能没有学过，因此老师要根据学生的实际情况调整教学内容和教学方法，使用适当的教学方法进行教学 三、教学策略选择与设计 Word 对现在的学生来说，是一个比较简单的操作模块，因此我选用了自主实践与合作探究相结合的方法，充分利用电子教室让学生之间相互学习，扬长避短，而且这样也可以照顾到各个水平的学生，保证不放弃每一个学生，以达到教学的目的 四、教学重点及难点 教学重点：利用WORD软件灵活处理表格信息 教学难点： 1、培养学生自主实践与探究能力 2、调动学生间相互协作的积极性 五、教学过程 课堂引入： 1、同学们都看一下p54表4-3-1这个表格，我们在学习生活中是不是经常碰到 呢？那你们知不知道用什么工具软件来处理？那我们一块看一看WORD软件是否具有这种功能？思考并回答（师生互动） 2、任务：实践1 请同学们参考p54操作提示，老师演示一步，你们跟着老师操作一步。 a.设置页面 b.建立一个5行4列的规则表格 c.合并单元格 d.调整行高、列宽 e.输入文本并设置文字格式 f.保存文件 3、自主实践： 学生自主完成p55实践2，可以互相交流讨论，老师巡回指导。 4、优秀作品展示： 在班上抽两三名学生的优秀作品进行展示，供其他学生借鉴比较。

Word表格制作技巧大全(新手必备)

Word表格技巧大全 一, 文字巧妙转换成表格 通常大家制作表格时，都是采用表格和边框工具来绘制表格，或者利用“表格→插入→表格”命令来定制表格，请问如已输入了文字，则有没有办法让文字快速产生表格呢？ 答：有，可以用Word提供的表格与文字之间的相互转换功能完成。具体方法是这样： （1）按照自己的计划先将表格中的各项内容输入Word文件中，在这需注意的是，一定要利用一种特别的分隔符隔开准备产生表格列线的文字内容，该分隔符可以是逗号、制表符、空格或其他字符。 （2）选中需产生表格的文字内容，在菜单栏单击“表格→转换→文本转换成表格”命令，在弹出的对话框中的“文字分隔符位置”选项中选逗号（一定要和输入表格内容时的分隔符一致），同时按所要的表格形式对其他选项做适当的调整。 2 用“+”、“-”号巧制表格 表格制作一般的Word用户都会，但如果只利用键盘上的“+”号和“-”号来快速完成表格制作，可能很多朋友都不会，它的具体操作方法又是如何进行？ 答：利用键盘上的“+”与“-”号制作表格，有时会给我们带来更高的效率。在制作前首先得明白“+”号表示下面将产生一列线条，而“-”号起到连线的作用，其具体制作方法是：首先在要插入表格的地方输入“+”号，用来制作表格顶端线条，然后再输入“-”号，用来制作横线（也可以连续输入多个“-”号，“-”号越多表格越宽），

接着再输入一些“+”号（“+”号越多，列越多）。完成后再按回车键，便可马上得到一个表格。 小提示：用此方法制作出的表格只有一行，若需制作出多行的表格，则可将光标移到表格内最后一个回车符号前，按“Tab”键或回车键（Enter），即可在表格后插入行。 3 轻松微调行列宽度 在Word中制作表格时，有时需要对行列宽度进行一些微调，请问除了进行表格属性外，有没有其他更方便的方法呢？ 答：在进行Word表格编辑时，如果要知道行或列的宽度，只需在按住鼠标左键调行的同时按下右键，标尺上（调整行时会在垂直标尺上显示，而在调整列时会在水平标尺上显示）就会显示出行或列的尺度。 小提示：此时表格标尺的精确度为0.01字符。 4 表格行列宽度调整技巧 表格在制作完成后常需进行一些调整，而在调整中有没有技巧呢？ 答：技巧当然有，下面就给大家介绍一下如何对表格行列宽度进行调整的技巧。 首先选中要调整的行或列，并在选择区域上单击鼠标右键，在弹出菜单中选择“表格属性”选项，然后再根据实际情况选择“行”或“列”选项卡（若要调整行高度则选择“行”选项卡，要调整列宽度则选择“列”选项卡），再选择“指定高度”复选框，然后在其后输入具体数值，完成后单击“确定”按钮便可设置完成。当然若不需达

Excel VBA编程 使用VBA创建图表

Excel VBA编程使用VBA创建图表 VBA也是一种宏语言，它可以使用手动方法将较为复杂的宏编写成VBA代码，从而完成某种功能的实现。本节介绍如何使用VBA代码来创建图表。 在VBE窗口中，新建一个模块。然后，打开该模块代码窗口，输入如图17-3所示的创建图表的代码。 输入 图17-3 输入创建图表的代码 其中，输入的创建图表的代码如下： Sub 图表() ' 选择A2至B7单元格区域 Range("A2:B7").Select ' 激活工作区选择添加图表选项 ActiveSheet.Shapes.AddChart.Select ' 激活图表选择工作表1中的A2至B7单元格区域 ActiveChart.SetSourceData Source:=Range("Sheet1!$A$2:$B$7") 选择图表类型为饼图 ActiveChart.ChartType = xlPie End Sub 在上面的代码中，主要包含以下几点内容： ●Shapes.Range 属性 该属性返回一个ShapeRange对象，它代表Shapes集合中形状的子集，其语法为：表达式.Range(Index) 其中，表达式为一个代表Shapes对象的变量。参数Index为必选参数，包含该区域中的各单个形状，可以是指定形状索引号的整数、指定形状名称的字符串，也可以是包含整数或字符串的数组。 ●Chart.SetSourceData 方法 该方法为指定图表设置源数据区域，其语法为：表达式.SetSourceData(Source, PlotBy) 其中，表达式为一个代表Chart对象的变量。参数Source为必选参数，为包含源数据的区域。参数PlotBy 为可选参数，为指定数据绘制方式。 ●Chart.ChartType 属性 该属性返回或设置图表类型，其语法为：表达式.ChartType。其中，参数ChartType表示图表类型。 完成代码的编辑之后，用户可以单击VBE窗口中的【运行宏】按钮，即可在工作表中生成一个饼图，如图17-4所示。

WORD表格制作教学设计

Word表格制作（一）教学设计 临江市桦树中学王慧玲 教材分析：这是七年级信息技术教材第三单元活动八中的一节基础课，也是四年级下册WORD 表格制作知识模块的提高和应用。由于该节知识内容较多，操作性强，学生应掌握操作方法也有多种，有一定的难度。所以共分二课时完成，本节是第一课时。通过本课的学习让学生学会掌握表格制作的方法、调整行高和列宽，学会拆分和合并单元格，能绘制简单的斜线表头。从而能根据实际学习和生活的需要制作表格。 学习者分析：学生在前面已经学习word文字排版中各工具和菜单的使用方法，对本节课的学习起到了很好的铺垫作用。 教学目标： 知识与技能： 1、掌握绘制表格的方法； 2、了解行、列、单元格的概念； 3、掌握Word调整行高列宽、移动表格、改变表格大小的方法； 4、掌握Word中单元格的合并与拆分； 5、学会绘制斜线表头。 能力目标： 1、通过自我探索，培养学生独立动手操作完成任务的能力； 2、使学生具备设计表格的能力，感知生活中运用表格的知识。 情感、态度与价值观： 1、通过具体操作，让学生充分展示自我，自我激励，体验成功，在不断摸索中陶冶情操，感受信息技术的魅力。 2、通过小组合作完成任务，培养学生团结协作精神。 一、教学重点及解决措施： 熟练掌握表格的制作方法、能根据制作表格的要求灵活合并和拆分单元格并会绘制斜线表头；解决措施：通过小组合作和任务驱动的方法。 二、教学方法：小组合作法、任务驱动法、 三、教学课时：一课时

四、教学资源：PPT课件，网络教室 五、教学过程： （一）、谈话导入，激发兴趣，导入新课 刚才呢，我向各位领导和老师、同学们做了简单的自我介绍，其实我还想让各位领导、老师特别是同学们进一步了解我，所以请大家看大屏幕（出示PPT自我介绍）师说：大家是不是对我有了更深的了解呢？这也要感谢我的另类好朋友——WORD的帮助，它不仅能把文章打扮的漂漂亮亮的，它还有另一种本事，“那就是制作表格的”本领。（出示板书：Word表格制作一）大家好像不信呀，那好，我这里还有我们WORD好朋友制作的一些其他作品。我们一起来欣赏一下吧！（出示PPT:其他样式的表格）正如大家刚才所看到的一样，在我们的生活和学习中，会见到接触到各种各样的表格，使用表格可以简洁、直观地记录和展现一些有关联的文字和数据。那我们还等什么呢，让我们快快行动起来，一起来看看WORD给我们带来的“奇迹”！ （二）、师生互动，获取新知 1、学习制作表格： 师说：“同学们你们能不能试着与WORD好朋友交流一下，看看你们能不能在WORD好朋友的帮助下制作出表格呢？”也可以参考此网站内容学习呀: 在Word中制作表格的三种方法：https://www.wendangku.net/doc/f81620241.html,/question/334407300.html 制作表格的方法：https://www.wendangku.net/doc/f81620241.html,/view/0fed6ade5022aaea998f0f5a.html 利用加减号在Word中快速制作表格技巧：https://www.wendangku.net/doc/f81620241.html,/html/1332.html 学生试着自学完成制作表格，在此过程中教师边巡视边进行适当的指导。学生试着操作，教师巡视指导之后，师说：我看有的同学已经制作出了表格，那么谁能说说你的表格是如何制作出来的呀？学生可以到操作台前演示操作，师生交流，在此过程中师生共同总结出制作的表格的方法，老师要做适当的操作演示制作表格的方法。学生边说教师边整理边演示边出示(ppt:插入表格的方法)师说：“第一种方法是手动绘制表格：方法是单击“表格”菜单在其下拉菜单中找到“绘制表格”命令或是点击“表格和边框”工具栏,选择“绘制表格”按钮，

word绘制复杂表格

竭诚为您提供优质文档/双击可除 word绘制复杂表格 篇一：word复杂型表格制作教案 word20xx复杂型表格制作一体化教案 授课人：谭邓 专业：计算机基础应用教学重点： 掌握复杂型表格的制作流程，以免出现繁琐或重复的调整步骤而影响工作效率和表格的美观。教学难点： 1、熟悉复杂型表格的制作流程。 2、掌握控制表格局部变形的技巧。 3、熟练操作表格编辑工具。 4、斜线表头的绘制方法（掌握“插入斜线表头”时变形的处理方法）教学方法： 1、通过“多媒体网络教室”讲授。 2、结合制作实例，由教师实操演示来达到教学效果。教具配合： 多媒体网络教室、计算机教学过程： word复杂型表格制作流程：（一）、页面设置 1.启动word软件→ 2.在“文件”的“页面设置”中设置“纸张”大小（以最终打印的纸张大小为标准）。→ 3.在

“页面设置”中设置“页边距”上、下各为“n厘米”；左、右各为“n厘米”（本例全部设为2厘米）。→4.在“页面设置”中设置“纸张方向”。(本例为“横向”) （针对以上步骤提出假设条件，并摆出可能会出现的问题）（二）、插入表格和编辑表格 1.先输入表头文字部分：“广东省中等职业学校学生学籍卡”和“学校（盖章） 办学类型学制 专业 年级 班别 ” 学生证号码学籍号码 →2.调整表 头文字的格式。（调整文字大小、文字间距等）→3.插入表格49列、29行，选择“根据窗口调整表格”。（具体看教师演示）→4.输入表尾文字：广东省教育厅职业与成人教育处制 年 月 日→5.控制在一页纸中，用“编辑表格”工具来编辑表格达到自己想要

的效果。（活用：拆分、合并单元格等工具）→6.绘制斜线表头。（注意撑握绘制方法） 1 篇二：利用word制作复杂的文字表格 篇三：word表格制作技巧大全(新手必备) word表格技巧大全 一,文字巧妙转换成表格 通常大家制作表格时，都是采用表格和边框工具来绘制表格，或者利用“表格→插入→表格”命令来定制表格，请问如已输入了文字，则有没有办法让文字快速产生表格呢？ 答：有，可以用word提供的表格与文字之间的相互转换功能完成。具体方法是这样： （1）按照自己的计划先将表格中的各项内容输入word 文件中，在这需注意的是，一定要利用一种特别的分隔符隔开准备产生表格列线的文字内容，该分隔符可以是逗号、制表符、空格或其他字符。 （2）选中需产生表格的文字内容，在菜单栏单击“表格→转换→文本转换成表格”命令，在弹出的对话框中的“文字分隔符位置”选项中选逗号（一定要和输入表格内容时的分隔符一致），同时按所要的表格形式对其他选项做适当的调整。 2用“+”、“-”号巧制表格

ExcelVBA_批量自动制图表实例集锦

1, 自动生成图表 -1058346-1-1.html 统计报告0925a.xls ‘2013-9-25 Sub lqxs() Dim Arr, ks, js, nm1$, nm2$, dz1$, dz2$ Dim dz$, dz3$, yy$, nm$ Application.ScreenUpdating = False Sheet3.Activate Arr = [a1].CurrentRegion ks = 3: js = UBound(Arr) - 1 nm = https://www.wendangku.net/doc/f81620241.html, yy = Left(nm, Len(nm) - 3) nm1 = " 图表6" nm2 = " 图表4" dz = "A2:B" & js & ",D2:E" & js ActiveSheet.ChartObjects(nm1).Activate With ActiveChart .SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:=xlColumns .SeriesCollection(1).Select dz1 = "R3C2:R" & js & "C2" .SeriesCollection(1).Values = "='" & nm & "'!" & dz1 dz2 = "R3C4:R" & js & "C4" .SeriesCollection(2).Values = "='" & nm & "'!" & dz2 dz3 = "R3C5:R" & js & "C5" .SeriesCollection(3).Values = "='" & nm & "'!" & dz3 .ChartTitle.Select = yy & " 月份合格率" End With ActiveSheet.ChartObjects(nm2).Activate With ActiveChart .ChartArea.Select dz = "H2:T2,H" & js + 1 & ":T" & js + 1 .SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:= xlRows dz2 = "R" & js + 1 & "C8:R" & js + 1 & "C20" .SeriesCollection(1).Values = "='" & nm & "'!" & dz2 .ChartTitle.Select = yy & " 月份不良趋势统计End With Range("A" & ks).Select