宏在三权确权发证中的重要应用.doc

宏在三权确权发证中的重要应用摘要：宏是微软公司为其OFFICE软件包设计的一个特殊功能，目的是让用户文档中的一些任务自动化。宏是一系列命令和函数 （函数:函数是预先编写的公式，可以对一个或多个值执行运算，并返回一个或多个值。函数可以简化和缩短工作表中的公式，尤其在用公式执行很长或复杂的计算时。），存储于 Visual Basic 模块 （模块:存储在一起作为一个命名单元的声明、语句和过程的集合。有两种类型的模块:标准模块和类模块。）中，并且在需要执行该项任务时可随时运行。Microsoft office组件中宏（macro）的应用具有很强的自动化功能，利用宏我们可以完成很多程序原本并不支持的特殊应用，所有想同时完成的操作都可以让宏来一次完成，并且所有会不断重复的命令都可以事先在宏里面定义好。目前，技校学生能熟练地掌握word与excel中常用的编辑、排版与数据处理登基本操作技巧，而对于宏的应用却少之又少。在全国计算机信息高新技术考试中对于宏命令操作的考题占了一定的比重，但就是现在学生所使用的学习教材对于宏命令操作的讲解实例却没有涉及到。因此，我就结合自己在教学过程，针对于宏命令在word与excel中的应用谈一些看法一、什么是宏所谓宏，就是一组指令集，通过执行类似批处理的一组命令，来完成某种功能。简单地说，那些能自动执行某种操作的命令都统称为“宏”。 计算机中宏又称为宏命令，即通过特殊的控制语，将一系列动作简便化；即：一种批处理的程序。如果在word或excel中需要反复执行某项操作，就可以讲该项任务录制为宏命令，再使用该宏命令来自动完成该任务，这样使得原本需要多步操作才能完成的任务就可以利用宏命令来快速地完成，提高了工作的效率和办公的自动化程度因为三权确权发证主要是以word和excel来工作的，因此在这里分别以宏命令在word和excel中的应用举例予以说明。二、宏在word中的应用在word中对文档进行编辑时，经常需要对文字进行字体、字号、字形、颜色、字符间距，对段落进行行距、段落间距等一系列的设置，我们用一般的操作方法就是用鼠标逐步点击菜单中的各项命令一项一项的完成，然而这样的操作比较繁琐，而且很费时间。如果我们能够把这一系列操作录制成“宏”，用宏命令来完成就可以大大提高工作效率。操作步骤如下：1.执行“工具”“宏”“录制新宏”命令，弹出“录制宏”对话框。2.在“宏名”文本框中输入宏的名称（宏名可自己定义）；在“将宏保存在”下拉列表框中选择“所有文档（norma.dot）”，这保证所有的word文档都可以使用该宏。3.单击“将宏指定到”选项下的“键盘”按钮，弹出“自定义键盘”对话框（也可以创建一个工具栏按钮来代替快捷键）。4.在“请按新快捷键”文本框中同时按下你希望用的宏的快捷键如ctrl+shift+f，单击“指定”按钮，最后单击“关闭”按钮。这时在窗口中就出现了这样一个浮动工具条，同时鼠标的指针前方有一个小磁带的标志出现，这就表明word已经开始记录你的操作了。此时，开始执行对文档中的文字和段落进行的一系列格式化操作，如：设置字体、字号、字形、颜色、字符间距、段间距、行距等操作。5.设置结束后,单击录制“宏”面板上的停止按钮，如图此时，宏的录制已经全部完毕，接着只需要执行宏命令即可。在文档中选中需要格式化的文本，同时按下该宏命令的快捷键（如ctrl+shift+f），即可将宏应用于该文本中。这样就避免了一步一步完成文档格式化设置的繁琐操作。三、宏在excel中的应用在excel中我们常常也需要对选定单元格的字体进行格式化设置，对齐方式的设置，为选定的单元格添加边框、底纹，设置行高、列宽等操作。那么对于这系列的操作步骤，我们也可以使用录制宏的方法来完成。excel创建宏的方法和word略有不同，excel中只能为宏指定快捷键，而不能为宏创建工具按钮，并且快捷键只能由字母组成，不能包含数字。操作步骤如下：1.执行“工具”“宏”“录制新宏”命令，弹出“录制新宏”对话框。2.在“宏名”文本框中输入宏的名称（宏名可自己定义）；将光标置于“快捷键”下面的文本框中同时按下宏的快捷键，如ctrl+shift+f，便可将快捷键指定为ctrl+shift+f；在“保存在”下拉列表框中选择“当前工作薄”，这保证当前工作薄中所有的工作表都可以使用该宏命令，最后单击“确定”按钮。这时在窗口处就出现了浮动工具条，表明已经开始进行宏的录制了。录制的过程与在word中相类似，我们只需要执行“格式”“单元格”命令，在弹出的“单元格格式”对话框中，使用“对齐”、“字体”、“边框”选项卡对其进行各项设置，再执行“格式”“行”/“列”命令进行行高、列宽的设置。3.格式化设置结束后，单击停止按钮结束录制。在进行编辑的工作表中选中需要设置的单元格区域后，同时按下ctrl+shift+f快捷键，即可将宏应用于该单元格区域。从以上操作可以看出，宏的录制仅是记录操作结果，而不记录操作过程。 上述的叙述我们知道excel中宏命令的简单应用。我们可以通过这个简单的应用一步一步的让复杂的工作简单化、让重复的工作自动化甚至扩充Excel自带的功能。那如何让我们做的更完善呢？首先说说excel自带的功能1、读取程序通过select语句读取Excel表的内容，存放在dataset中。这样，我们就可以很方便操作Excel表格。大致分为以下几步：记得先添加命名空间：using System.Data.OleDb; /Excel表数据操作1.1.创建连接，引用协议string strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + filePath + ;Extended Properties=Excel 8.0;HDR=False;IMEX=1;/其中 参数”filePath“，是安放Excel的位置。例如：E:/1.xls。OleDbConnection OleConn = new OleDbConnection(strConn);1.2.打开连接，并执行sql语句，别忘了末尾关闭连接OleConn.Open();String sql = SELECT * FROM Sheet1$;/可是更改Sheet名称，比如sheet2，sheet3等等 /这是要执行的sql语句。OleDbDataAdapter OleDaExcel = new OleDbDataAdapter(sql, OleConn);DataSet OleDsExcle = new DataSet();OleDaExcel.Fill(OleDsExcle, Sheet1);OleConn.Close();如果，还不清楚，不怕。下面，我们通过实例来加深理解。源代码：public static DataTable ReadExcel(string filePath) try string strConn; strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + filePath + ;Extended Properties=Excel 8.0;HDR=False;IMEX=1; OleDbConnection OleConn = new OleDbConnection(strConn); OleConn.Open(); String sql = SELECT * FROM Sheet1$;/可是更改Sheet名称，比如sheet2，等等 OleDbDataAdapter OleDaExcel = new OleDbDataAdapter(sql, OleConn); DataSet OleDsExcle = new DataSet(); OleDaExcel.Fill(OleDsExcle, Sheet1); OleConn.Close(); return OleDsExcle.TablesSheet1; catch (Exception err) MessageBox.Show(数据绑定Excel失败!失败原因： + err.Message, 提示信息, MessageBoxButtons.OK, MessageBoxIcon.Information); return null; 以上代码实现了Excel的读取，并把内容存放在dataset中. 接着，讲解下如何应用该datatable。方式一：把datatable内容读取到DataGridView中，显示所有Excel内容。1.先添加DataGridView控件，并命名为dataGridView12.添加DataGridView数据绑定语句如下：DataTable dt; /存放Excel表的内容dt=ReadExcel(E:/1.xls);/这里的路径，指的是你Excel表格存放的路径dataGridView1.DataSource = dt;就这样，简单的显示，就完成了。方式二：只显示你先要的内容。这个可以通过把DataTable当做数组来操作。1.添加一个label标签，命名为label12.添加语句;label1.Text = dt.Rowsxy.ToString();/这里的参数 x,y，对应的是你Excel表格的单元格内容。注意下，x，y是从0开始取值。最后还有一点要说明，就是读取的内容是从Excel表格的第二行开始。第一行，类似于数据库中的字段名，是不读取的。 2、累加计算自定义一个函数CountNums，并赋予它提取数字并累加的功能。参考代码如下所示： Function CountNums（rng As Range） Dim X as integer For X = 1 To VBA.Len（rng） 将单元格中的数字取出后累加 If Mid（rng， X， 1） Like “0-9” Then CountNums = CountNums + Val（Mid（rng， X， Len（rng） X =X + Len（Evaluate（Val（Mid（rng， X， Len（rng） End If Next X End Function该代码段未分行，我将它复制一下，便于理解：Function CountNums(rng As Range) Dim X As Integer For X = 1 To VBA.Len(rng) 将单元格中的数字取出后累加 If Mid(rng, X, 1) Like 0-9 Then CountNums = CountNums + Val(Mid(rng, X, Len(rng) X = X + Len(Evaluate(Val(Mid(rng, X, Len(rng) End If Next XEnd Function在使用时，假如说对E2单元格中的数字提取出来累加，结果存放到变量iNum中，则代码如下：iNum = CountNums(Range(E2) 3、执行下一个程序的命令比如你要创建一个按钮来执行将某个单元格涂成红色的步骤如下：1、录制一段宏2、添加按钮控件：在菜单栏空白地方单击鼠标右键，即上图“帮助”菜单右边空白的地方，选择Visual Basic，然后就打开了Visual Basic开发工具箱，单击控件工具箱，然后就打开了Visual Basic控件工具箱选择按钮控件，将按钮控件放置到自己想要放置的位置，选中按钮控件，点鼠标右键打开按钮控件属性，编辑按钮的caption即可改变按钮的名字，设置成确定即改成，安扭控件就编程3、给按钮控件写代码，首先看看刚刚录制的宏的子程序是什么名字，即选择工具-宏-编辑，发现代码如下：可以发现该子程序的名字为Macro1,选择按钮控件，点击右键，选择查看代码，于是打开了EXCEL VBA开发环境这里代码的意思是按钮1单击所触发的时间，这么写就是格式规定的，private sub是子程序的前缀，并且在所有模块内都可调用，end sub 是结束符，表示程序执行到此就要结束，简单的了解一