唯一能清空剪切板的 api 函数附赠liulanqi

win2009 · 发表于 2012-9-25 14:45

哈哈，给点好东西.........................

win2009 · 发表于 2012-10-5 23:43

本帖最后由 win2009 于 2012-10-5 23:44 编辑

With CreateObject("VBSCRIPT.REGEXP")
      .Global = True
      .Pattern = "(\r\n *)+"
      s = .Replace(cc, "$1")
End With

with createobject("vbscript . regexp")
      . global = true
      . pattern = "(\r\n 重复零次或更多次)+"
      s =  . replace(cc  ， "$1")
end with
点错，在测试，哈哈

zhuquanmao · 发表于 2013-6-14 11:39

liucqa 发表于 2012-9-23 23:38
如果你清除剪贴板的目的是避免Excel关闭工作簿的时候出现提示，那么直接用range("A1").copy就行，不必把剪贴 ...

简单实用简洁赞个！

zouyuejian · 发表于 2013-7-11 22:05

参见这里 http://www.cpearson.com/excel/Clipboard.aspx

nbchn · 发表于 2013-9-10 21:49

本帖最后由 nbchn 于 2013-9-10 21:50 编辑

看过后，有点晕。能请老师讲一下具体的使用方法吗？
以下是我的代码，该怎么结合使用呢？
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '单击鼠标事件
Dim lngRow As Long, LngColumn  As Long, Dygz As Variant
LngColumn = Target.Column    '获取现在点击的列号
lngRow = Target.Row          '获取现在点击的行号
---------------------------------------------------
此处需添加清空剪切板的代码---请老师们帮助
---------------------------------------------------
Cells(lngRow, LngColumn).Select ‘点击单元格
Application.SendKeys "{F2}+{HOME}" '双击选定单元格内容
Application.SendKeys "^{x}"将单元格内容剪切到剪切板上去
End Sub

鄂龙蒙 · 发表于 2015-4-24 11:12

收藏学习,谢谢!

		自动登录	找回密码
密码			免费注册

[分享] 唯一能清空剪切板的 api 函数 附赠liulanqi

[分享] 唯一能清空剪切板的 api 函数附赠liulanqi