为W 表格2005添加复制合并功能

文章作者 100test 发表时间 2007:09:15 11:52:58
来源 100Test.Com百考试题网

　　WPS 2005表格默认只能单个单元格数据复制到目标单元格。若是选中区域复制，则粘贴时也将粘贴至范围相同的区域，而不能粘贴到一个单元格中。

　　在某些特殊状况下需要先将区域中的数据合并再贴于目标单元格中，手工逐个操作显然事倍功半。本文讲述如何利用VBA自行编制一个“合并复制”功能。

　　本文假设您的WPS已安装VBA编辑器。

　　实现步骤：

　　一、建立“合并复制”工具按钮

　　1）新建工作表；

　　2）单击菜单【工具】【宏】【Visual Bisic编辑器】进入VBA代码编辑环境。

　　3）利用快捷键CTRL R调出工程资源管理器，再双击工程资源管理器中的“ThisWorkbook”打开代码窗体。工程资源管理器见图1.

图1 工程资源管理器

　　4）在右边代码窗口输入以下代码：

　　5）代码解析：

　　第一句表示本代码在每次打开工作表时都执行；

　　第二句表示在常用工具栏添加一个按钮；

　　第三句表示按钮名字为“另类复制 CTRL Q”；

　　第四句表示按钮影响的宏为“另类复制”；

　　第五句表示当鼠标移过按钮时显示的提示信息为“是不是感觉有用？”；

　　第六句表示在按钮前加入一条竖线。

　　另两句为结束语句。

　　光标置于代码任决位置后点F5执行本代码。然后回到ET工作表中，可以看到已添加了一个按钮。见图2所示。

图2 新建按钮