• 考试中心
  • CDA网校
  • CDA社区
    CDA竞赛 CDA技术答疑 CDA会员
  • CDA产品
    大数据与人工智能实验室 好学AI(下一代智能学习产品) CDA网校 CAIE人工智能工程师认证
  • 联系我们
热线电话:13121318867

  • 首页
  • 课程中心
    就业邦:
    CDA数据分析周末就业班2025 CDA数据分析脱产就业班2025 CDA敏捷算法建模周末班
    职业技能:
    CDA 业务数据分析 LEVEL Ⅰ 实操班 CDA 商业策略分析 LEVEL Ⅱ 集训营 CDA 机器学习与深度学习 LEVEL Ⅲ 集训营
  • 资讯
  • 动态
  • 认证考试
  • 企业内训
登录
热搜话题:
ai长文生成
Scikit-learn
Python
大数据
数据分析师
统计学
微积分
线性代数
Excel
Power BI
R语言
SPSS
Mysql
快速发帖
我要提问
shauna570392
2020-06-24 阅读量: 10907
wps如何粘贴为链接的图片

wps目前不支持粘贴为链接的图片,可以通过使用宏的方法实现


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

  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

  


38.5577
3
2
关注作者
收藏
评论(0)

发表评论

暂无数据
CDA考试动态
考试介绍
考试大纲
考试内容
考试地点
CDA报考指南
报考流程
考试时间
报名费用
联系我们
热门栏目
考试动态
报考指南
复习备考
职业发展
直播公开课
经验分享
推荐帖子
shauna570392
2020-06-24
2条评论
wps如何粘贴为链接的图片
wps目前不支持粘贴为链接的图片,可以通过使用宏的方法实现步骤1.建立“选择性粘贴——连接”的功能的宏  1.新建工作簿;  2.用快捷键ALT+F11打开VBE环境;  3.单击菜单【插入】【模块】,在模块中输入以下代码:  Sub选择性粘贴__连接() DimrngAsString,NewShtAsString,OldShtAsString,texts,iAsByte,ansAsByte
Copyright © 2015-2020, www.pinggu.com All Rights Reserved. CDA数据分析师(北京国富如荷网络科技有限公司) 版权所有 京ICP备18052299号-1