斗俩下载站提供最新Win11系统下载,Ghost Win10下载,win7系统下载,软件下载

xp教程办公软件教程seo游戏攻略

windows7旗舰版
当前位置:主页 > 办公软件教程 >

为WPS表格增加选择性粘贴——连接

发布时间:2022-08-24 来源:win7旗舰版 浏览量:

电子表格(Spreadsheet),又称电子数据表,是一类模拟纸上计算表格的计算机程序。电子表格可以输入输出、显示数据,也利用公式计算一些简单的加减法。可以帮助用户制作各种复杂的表格文档,进行繁琐的数据计算,并能对输入的数据进行各种复杂统计运算后显示为可视性极佳的表格,同时它还能形象地将大量枯燥无味的数据变为多种漂亮的彩色商业图表显示出来,极大地增强了数据的可视性。

   ET2005的选择性粘贴中的运算项有加减乘除运算,唯独没有&运算(即连接),见图一所示。这使工作中某些需求难以满足。

为WPS表格增加选择性粘贴——连接 三联

  假设需要输入以下内容,因没有连接功能,只好将重复的字符重复的输入,无疑降低了工作效率。

  客户地址

  广东省东莞市全兴有限公司

  广东省东莞市宏运有限公司

  广东省东莞市中天有限公司

  广东省东莞市月满楼有限公司

  广东省东莞市兴又盛有限公式

  解决思路:

  用VBA为WPS表格2005增设一个“选择性粘贴——连接”的功能,置于右键菜单方便调用。

  步骤1.建立“选择性粘贴——连接”的功能的宏

  本例假设你的WPS已具备VBA环境;

  1.新建工作簿;

  2.用快捷键ALT+F11打开VBE环境;

  3.单击菜单【插入】【模块】,在模块中输入以下代码:

  Sub选择性粘贴__连接() DimrngAsString,NewShtAsString,OldShtAsString,texts,iAsByte,ansAsByte IfActiveSheet.ProtectContentsThenMsgBox"工作表已保护,本程序拒绝执行!",64,"提示":ExitSub OnErrorGoToendd rng=Selection.Address OldSht=ActiveSheet.Name Application.DisplayAlerts=False Worksheets.Add NemSht=ActiveSheet.Name Range("a1").Select ActiveSheet.Paste IfActiveSheet.UsedRange.Count>1Then MsgBox"只能连接单个单元格的值。",64,"andysky" GoToendd EndIf texts=Selection.Text Application.ScreenUpdating=True Sheets(OldSht).Select ans=InputBox("请选择连接于目标前还是连接于目标后。"&Chr(10)&"1:连接于目标之前;"_ &Chr(10)&"2:连接于目标之后。","连接方式",1) Fori=1ToSelection.Count If--ans=1ThenSelection(i)=textsSelection(i) If--ans=2ThenSelection(i)=Selection(i)texts Next endd: Worksheets(NemSht).Delete EndSub

  步骤2.将宏功能加入右键菜单中

  1.用快捷键CTLR+R打开“工程资源管理器”,在左边的窗格中找到“ThisWorkbook”并双击;

  2.在右边的代码窗口输入以代码(两段代码:第一段为将工能加到右键菜单,另一段为关闭EXCEL时恢复右键):

  PrivateSubWorkbook_Open() WithApplication.CommandBars("cell").Controls.Add(Type:=msoControlButton,before:=4,Temporary:=True) .Caption="选择性粘贴__连接(&Paste)" .OnAction="选择性粘贴__连接" EndWith EndSub PrivateSubWorkbook_BeforeClose(CancelAsBoolean) Application.CommandBars("CELL").Reset EndSub

  步骤3.将工作簿另存为默认模板

  1.关闭VBE窗口返回工作表;

  2.单击菜单【文件】【另存为】,在保存类型处选择“WPS表格模板文件”。

WPS

  步骤4.测试效果   1.选择菜单【文件】【本机上的模板】,在列表中选择刚才存放的模板;

WPS

  2.在工作表中输入以下数据(见图五),然后复制A9,然后选择A2:A7,单击右键,选择菜单中的“选择性粘贴__连接”;

WPS

  3.此时程序弹出对话框,见图七,在里面输入1表示连接于前。单击确定后最后结果如图八所示。

WPS
WPS

  结束语:ET支持VBA进行二次开发,这使得它更具有灵活性。当默认的功能难以满足我们工作需求时,不妨用VBA来处理吧。


金山WPS Office专业版的安全性经过几百家权威机构及组织证明,金山wps办公套装无限扩展用户个性化定制和应用开发的需求;专为中国用户使用习惯的量身定制的wps Office软件,金山wps是中国最好的office办公软件。

关键词: 为WPS表格增加选择性粘贴——连接_wps图文详细教程_本站 
我要分享:

相关推荐

本站发布的ghost系统仅为个人学习测试使用,请在下载后24小时内删除,不得用于任何商业用途,否则后果自负,请支持购买微软正版软件!

如侵犯到您的权益,请及时通知我们,我们会及时处理。手机站

Copyright @ 2018 斗俩下载站(http://www.doulia.cn) 版权所有  xml地图 邮箱: