Word教程 Excel教程 PowerPoint教程 Visio教程 Outlook教程 Office教程
  • WPS教程
  • 当前位置:教程 > 办公软件 > WPS教程 > 正文

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

    编辑:教程网 来源:网络 时间:2011年09月10日 17:41
    IT产品库 http://www.websmill.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 新建按钮

      二、为按钮添加功能

      1)再到第一步输入的代码后面继续输入以下代码:

      2)代码解析

      第一句表示宏名称;

      第二句表示申明三个变量,并限制变量范围;

      第三句表示当本程序有错时执行err标签后的代码;

      第四句表示为变量i赋值,范围是1到选区单元格个数;

      第五句和第六句共用表示用一个字符串将选择的区域中的所有字符合并起来,成为一个长字符串;

      第七句表示将新字符串复制到 DataObject;

      第八句表示将数据从 DataObject 移到剪贴板上,结束程序;

      第九句表示定义一个标签,供On Error语句调用;

      第十句表示程序出错时将弹出的提示语句;

      三、关闭工作表时删除新建的按钮

      1)前面的代码后面追加以下代码:

      2)代码解析

      第一句表示本代码在关闭工作表时执行;

      第二句表示恢复“常用”工具栏;

      第三句结速程序。

      四、引用控件

      在VBE环境中单击菜单【工具】【引用】以图3方式勾选引用的控件。


    图3 引用控件

      五、测试功能

      1)在工作表中输入以下数据并插入一张图片。


    图4 待合并复制的数据

      2)选中A1:C1,单击“常用”工具栏新建的按钮------“合并复制”,然后在单元格E1粘贴数据;继续选中A2:C2再单击“合并复制”,粘贴至单元格E2;最后选择单元格区域A3:C4,并以同样方式粘贴至单元格E3.结果如图5所示。通过结果,可以验证工具设计成功。

  • 原文来自 教程网 转载请注明:http://www.websmill.com/office/WPS/22596.html

  • 上一篇:WPS OFFICE中股票投资管理系统模板的完善
  • 下一篇:神奇的WPS表格条件格式应用举例二则