Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 关于我们
  • 新闻动态
  • Excel资源
  • 招贤纳士

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中国 联系方式
电  话:400-855-3990
邮  编:528400
Email:support@zstm.com
网  址:www.excel-cn.com

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

EXCEL VBA代码实现文字复制粘贴到QQ等其他窗口

在工作中,有时需要大量复制记事本粘贴,逐个复制效率低下。

下面实例通过Excel VBA,从Excel粘贴文字到QQ或者其他聊天窗口。


详细代码:

Public Sub 文本剪贴板()

'    alt+f11打开VBA编辑器,插入模块,粘贴本代码

 '’在alt+F8宏设置ctrl+e做为快捷键,选中区域时,按下ctrl+e即完成文本复制

'    结果以行列式文本存入剪贴板,列之间用空格分隔

'    或打开本工作表 在其他表中使用ctrl+e 也可以达到文本复制的效果

    Dim tt, a, i&, j&

    On Error Resume Next

    a = Selection.Value

    For i = 1 To UBound(a)

        For j = 1 To UBound(a, 2)

            tt = tt & " " & a(i, j) '列之间用空格分隔

        Next

        tt = tt & vbNewLine '换行

    Next

    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板

        .SetText tt

        .PutInClipboard

    End With

End Sub



效果图

e1.gif



点击次数:  更新时间:2017-07-29 16:37:17  【打印此页】  【关闭】
上一条:Excel文本透视-行列转置  下一条:Excel计算年月日和小时分钟的时间差
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2020 粤ICP备10043721号

广东省中山市西苑广场富贵阁 528400

QQ:4008553990 电话:0760-88315075

Excel交流网主要交流Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表以及Excel VBA,为网友提供一个最全的Excel交流网站

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2022  www.metinfo.cn