天极传媒:
天极网
比特网
IT专家网
52PK游戏网
极客修
全国分站

北京上海广州深港南京福建沈阳成都杭州西安长春重庆大庆合肥惠州青岛郑州泰州厦门淄博天津无锡哈尔滨

产品
  • 网页
  • 产品
  • 图片
  • 报价
  • 下载
全高清投影机 净化器 4K电视曲面电视小家电滚筒洗衣机
您现在的位置: 天极网 > 软件 > 办公>评测>为WPS表格2005添加“复制合并”功能

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

论坛整理2007-07-28 10:19我要吐槽


###adv###

  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语句调用;

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

推荐:Office2007专区>>

作者:andysky责任编辑:still)
请关注天极网天极新媒体 最酷科技资讯
扫码赢大奖
评论
* 网友发言均非本站立场,本站不在评论栏推荐任何网店、经销商,谨防上当受骗!
热点推荐
微软Windows 10操作系统Win10系统在Win8的基础上对界面、特性以及跨平台方面做了诸多优化。[详细]
Windows 10 新视界 [进入频道][使用技巧][微博互动]