简单宏编辑---褚卫乾.docVIP

简单的宏编辑 尊敬的各位同事： 大家好！ 随着鲜冻品业务量的不断增加，相关的报表也不断的增加，在有限的人力资源的条件下，唯有提高我们的工作技巧，才能快速的完成工作任务。通过对13家工厂的经营日报的填制过程的调查，目前只有淮安双汇一家在使用“宏”做经营日报，为了提高大家的工作效率，我将大家经常用的“复制”、“选择性粘贴”操作的编制过程介绍一下： 一、“宏”的录制 每天固定位置的粘贴可以通过对操作过程的录制来实现，以后执行“宏”就可以自动完成“复制粘贴”过程， 新建两个excel表格“新建 “Microsoft Excel 工作表”和“新建 Microsoft Excel 工作表 (2)”，在“Microsoft Excel 工作表”中 “Sheet1”表中的“A1:C5”单元格输入一些数据，通过录制“宏”数值化粘贴到“新建 Microsoft Excel 工作表 (2)”中“Sheet2”的“D6：F10”单元格。 使用“宏”操作，需先将excel的安全性设置为“中”，点击“工具”--“选项”--“安全性”--“宏安全性”--“中”确定；点击“工具”--“选项”--“安全性”—“个人信息选项”中“保存时从文件属性中删除个人信息”前边的勾去掉。 在“Microsoft Excel 工作表”中点击“工具”---“宏”---“录制新宏”弹出对话框，点击“确定”，接着用鼠标选择“A1:C5”，右击复制，点击“新建 Microsoft Excel 工作表 (2)”中“Sheet2”的“D6”单元格右击---选择性粘贴---数值---确定，点击“工具”---“宏”---“停止录制”，点击保存。 右击“工具”---将“窗体”勾上，弹出如右图所示的标签，点击 在表格中添加图标，右击增加的“图标”—“指定宏”----弹出“指定宏对话框”选择刚才录制的宏，确定即可。以后相同的操作就可以点击按钮就可以完成，不用在手工进行“复制粘贴”。 二、“宏”的VBA语言解读 点击“工具”--“宏”--“Visual Basic 编辑器”---“视图”--“工程资源管理器”，双汇左边窗口中的“模块1”，如右图中间的窗口将显示如下内容： Sub Macro2() Macro2 Macro 宏由 MC SYSTEM 录制，时间: 2010-1-21 Windows(新建 Microsoft Excel 工作表.xls).Activate Sheets(Sheet1).Select Range(A1:C5).Select Selection.Copy Windows(新建 Microsoft Excel 工作表 (2).xls).Activate Sheets(Sheet2).Select Range(D6).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWorkbook.Save End Sub 一个完成的“宏”以“sub 宏名字（）”以“end sub”结束， Sub Macro2()中的“Macro2”为这个宏的名字，可以直接改成汉字“淮安”等如“Sub 淮安()”。 宏由 MC SYSTEM 录制，时间: 2010-1-21，前边带有单引号的为说明性的文字，前价格单引号使本句程序在该“宏汇总不起作用，可以全部删除。 Windows(新建 Microsoft Excel 工作表.xls).Activate，选中在Windows下打开的新建 Microsoft Excel 工作表.xls表， Sheets(Sheet1).Select，选中Sheet1表 Range(A1:C5).Select 选中A1:C5区域 Selection.Copy 将选中的区域复制，“右击复制操作” Windows(新建 Microsoft Excel 工作表 (2).xls).Activate选中在Windows下打开的新建 Microsoft Excel 工作表 (2).xls表 Sheets(Sheet2).Select 选中Sheet2表 Range(D6).Select 选中D6单元格 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False