精华内容
下载资源
问答
  • vba清空剪贴板内容

    2011-06-29 20:58:21
    我自己收集的资料,有兴趣的可以下载看看 我自己收集的资料,有兴趣的可以下载看看 是关于vba清空剪贴板的代码
  • vba清空剪贴板方法

    2021-03-04 09:25:56
    方法一 Private Declare Function OpenClipboard Lib “user32” (ByVal hWnd As Long) As Long Private Declare Function CloseClipboard Lib “user32” () As Long Private Declare Function EmptyClipboard Lib ...

    方法一
    Private Declare Function OpenClipboard Lib “user32” (ByVal hWnd As Long) As Long

    Private Declare Function CloseClipboard Lib “user32” () As Long

    Private Declare Function EmptyClipboard Lib “user32” () As Long

    Public Sub JustEmptyClipboard()

    OpenClipboard (0)
    
    EmptyClipboard
    
    CloseClipboard
    

    End Sub

    方法二

    Application. CutCopyMode= False

    展开全文
  • 清除office剪贴板vba代码 生成工具栏图标
  • VBA玩转系统剪贴板

    2021-04-28 10:13:22
    前几天分享了博文《如何使用VBA将变量值拷贝到剪贴板?》,有的网友觉得使用的是旁门左道,今天来个根正苗红的Windows API解决方案。 示例代码如下。 Private Declare Function GlobalAlloc Lib _ "kernel32.dll" ...

    前几天分享了博文《如何使用VBA将变量值拷贝到剪贴板?》,有的网友觉得使用的是旁门左道,今天来个根正苗红的Windows API解决方案。
    示例代码如下。

    Private Declare Function GlobalAlloc Lib _
                    "kernel32.dll" (ByVal wFlags As Long, _
                                ByVal dwBytes As Long) As Long
    Private Declare Function GlobalLock Lib _
                    "kernel32.dll" (ByVal hMem As Long) As Long
    Private Declare Function GlobalUnlock Lib _
                    "kernel32.dll" (ByVal hMem As Long) As Long
    Private Declare Function GlobalSize Lib _
                    "kernel32" (ByVal hMem As Long) As Long
    Private Declare Function lstrcpy Lib _
                    "kernel32.dll" Alias "lstrcpyW" _
                    (ByVal lpString1 As Long, _
                    ByVal lpString2 As Long) As Long
    Private Declare Function OpenClipboard Lib _
                    "user32.dll" (ByVal hWnd As Long) As Long
    Private Declare Function EmptyClipboard Lib _
                    "user32.dll" () As Long
    Private Declare Function CloseClipboard Lib _
                    "user32.dll" () As Long
    Private Declare Function IsClipboardFormatAvailable Lib _
                    "user32.dll" (ByVal wFormat As Long) As Long
    Private Declare Function GetClipboardData Lib _
                    "user32.dll" (ByVal wFormat As Long) As Long
    Private Declare Function SetClipboardData Lib _
                    "user32.dll" (ByVal wFormat As Long, _
                                ByVal hMem As Long) As Long
                                
    Public Function GetFromClipboard() As String
        Dim lngPtr      As Long
        Dim lngLength   As Long
        Dim lngGLock    As Long
        Dim strTxt      As String
        Const CF_UNICODETEXT As Long = 13&
        OpenClipboard 0&
        If IsClipboardFormatAvailable(CF_UNICODETEXT) Then
            lngPtr = GetClipboardData(CF_UNICODETEXT)
            If lngPtr Then
                lngGLock = GlobalLock(lngPtr)
                lngLength = GlobalSize(lngPtr)
                strTxt = String$(lngLength \ 2& - 1&, vbNullChar)
                lstrcpy StrPtr(strTxt), lngGLock
                GlobalUnlock lngPtr
            End If
            GetFromClipboard = strTxt
        End If
        CloseClipboard
    End Function
    
    Public Sub SetToClipboard(strTxt As String)
        Dim lngPtr      As Long
        Dim lngLength   As Long
        Dim lngGLock    As Long
        Const GMEM_MOVEABLE As Long = &H2
        Const GMEM_ZEROINIT As Long = &H40
        Const CF_UNICODETEXT As Long = &HD
        OpenClipboard 0&
        EmptyClipboard
        lngLength = LenB(strTxt) + 2&
        lngPtr = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, lngLength)
        lngGLock = GlobalLock(lngPtr)
        lstrcpy lngGLock, StrPtr(strTxt)
        GlobalUnlock lngPtr
        SetClipboardData CF_UNICODETEXT, lngPtr
        CloseClipboard
    End Sub
    

    由于代码使用了多个API函数,并且涉及指针的概念,这里不再进行详细讲解,接下来看一下如何使用。

    Sub Demo()
        Dim strMsg As String
        strMsg = "2021年"
        SetToClipboard strMsg
        ' 粘贴
        ActiveSheet.[a1].Select
        ActiveSheet.Paste
        ' 赋值
        ActiveSheet.[a2].Value = GetFromClipboard
    End Sub
    

    【代码解析】
    SetToClipboard 过程讲变量strMsg的值放置到系统剪贴板,在此之后可以使用第7行代码进行粘贴,也可以用9行代码直接为单元格赋值。当然也可以在其他应用程序中粘贴。

    展开全文
  • vba选中的单元格到剪贴板If you want to share a smallpart of your Excel worksheet but don’t want to send an Excel file, you can copy part of the worksheet to the clipboard as a picture instead, which ...
    vba选中的单元格到剪贴板

    vba选中的单元格到剪贴板

    If you want to share a small part of your Excel worksheet but don’t want to send an Excel file, you can copy part of the worksheet to the clipboard as a picture instead, which can be pasted into any application that supports images, such as your favorite image editor.

    如果要共享Excel工作表的一小部分但不想发送Excel文件,则可以将工作表的一部分作为图片复制到剪贴板,可以将其粘贴到支持图像的任何应用程序中,例如作为您最喜欢的图像编辑器。

    The command in Excel 2007 to do this is oddly located on the Paste menu in the Ribbon. From the Home tab, click on the drop-down menu under the Paste button, and select As Picture \ Copy as Picture.

    Excel 2007中执行此操作的命令位于功能区中的“粘贴”菜单上。 在“主页”选项卡上,单击“粘贴”按钮下的下拉菜单,然后选择“作为图片\复制为图片”。

    4

    Now you will get a dialog asking you how you want to copy the picture. If you want to paste the picture into any application, you’ll need to select “As shown on screen”, and then “Bitmap”.

    现在,您将看到一个对话框,询问您如何复制图片。 如果要将图片粘贴到任何应用程序中,则需要选择“如屏幕上所示”,然后选择“位图”。

    image

    Now your cell data should be on the clipboard, ready to paste into any application that allows you to paste in a bitmap. Here’s an example of a bitmap I pasted into the editor I use for writing articles here:

    现在您的单元格数据应该在剪贴板上,可以粘贴到允许您粘贴到位图中的任何应用程序中。 这是我粘贴到用于在此处编写文章的编辑器中的位图示例:

    image

    Very useful!

    很有用!

    翻译自: https://www.howtogeek.com/howto/microsoft-office/copy-a-group-of-cells-in-excel-2007-to-the-clipboard-as-an-image/

    vba选中的单元格到剪贴板

    展开全文
  • 有些应用场景中仍然需要将某些内容放置到剪贴版中,这样可以供其他应用程序使用,如果内容已经在单元格中,那么直接使用Range对象的Copy方法就可以,但是如果内容是保存在变量中,是否可以直接放置到剪贴板,而不...

    VBA中使用Excel拷贝和粘贴方法是很容易的,并且很多时候为了提升代码运行效率,应尽量避免在代码中使用拷贝和站,而应优先采用直接赋值的方法。
    不可否认,有些应用场景中仍然需要将某些内容放置到剪贴版中,这样可以供其他应用程序使用,如果内容已经在单元格中,那么直接使用Range对象的Copy方法就可以,但是如果内容是保存在变量中,是否可以直接放置到剪贴板,而不使用单元格做中转呢?答案是肯定的。
    【方法1】使用WshShell对象

    Sub PutDataInClipboard()
        Dim objShell As Object
        Dim strInt  As String
        strInt = "12345"
        Set objShell = CreateObject("WScript.shell")
        objShell.Run "cmd /C echo|set/p=" & strInt & "| CLIP", 2
    End Sub
    

    【代码解析】
    第4行代码为需要放置到剪贴板中的字符串。
    第5行代码创建WshShell对象。
    第6行代码执行命令,将变量值放置到剪贴中。
    在此之后,在任何应用程序中都可以使用粘贴功能(Ctrl+V组合键),将"12345"粘贴到指定位置。
    【方法2】使用DataObject对象

    Sub SetClipboard(ByVal strInt As String)
        Dim objDO As Object
        Set objDO = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        With objDO
            .settext strInt
            .putinclipboard
        End With
    End Sub
    Public Function GetCB() As String
       Set objDO = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        With objDO
            .GetFromClipboard
            GetCB = .GetText
        End With
    End Function
    Sub DEMO()
        Call SetClipboard("ABC")
        [A1] = GetCB
        [A2].PasteSpecial Paste:=xlPasteAll
    End Sub
    

    【代码解析】
    SetClipboard过程将字符串放置到剪贴板中。
    第2行代码创建DataObject对象。
    第5和6行代码将变量的值放置到剪贴板中。
    GetCB函数用于读取剪贴板中的值。
    第12行代码使用GetFromClipboard方法读取剪贴板。
    第13行代码设置函数返回值。
    DEMO过程为示例。
    第17行代码调用SetClipboard过程将ABC放置到剪贴板中。
    第18行代码调用GetCB函数,将剪贴板内容写入A1单元格。
    第19行代码使用PasteSpecial方法,将剪贴板内容写入A2单元格。
    注意:如果在Excel中直接使用Ctrl+V组合键,插入的内容为不可以识别字符,如下图A3所示。
    在这里插入图片描述

    展开全文
  • 我想通过VBA将一些HTML格式的数据粘贴到Word。... 我发现只有将Word数据提供给Word的方法是将它们放入剪贴板。 即时通讯使用此功能:http://support.microsoft.com/kb/274326然后使用PasteSpeci...
  • 剪切板-监视剪贴板

    2016-05-17 10:12:00
    查询剪贴板中特定格式的数据内容 79 ListBox1.Items.Add(Clipboard.asText + ' ... ' ); 80 end ; 81 if Clipboard.HasFormat(CF_BITMAP) then 82 begin 83 ListBox1.Items.Add( ' Bitmap ' ); ...
  • VBA中经常使用以下语句,来复制文本到剪贴板,但有时会出错。 Dim MyData As New DataObject MyData.SetText sData, 1 MyData.PutInClipboard为了复制文本到剪贴板更加稳定,应该调用API来处理:复制文本到剪贴...
  • 剪贴板上有大量信息,是否保留其内容, 以便此后粘贴到其他程序中? 对策a 是文件关闭前,随便复制一个空单元格就可以了. 对策b Application.DisplayAlerts = False '关闭任何提醒 → 但复制的信息将仍旧保存在剪贴板...
  • 原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板 一、主要实现以下功能:1、用鼠标选择单元格(可谓连续单元格,也可为不连续的)后,按照要求格式“证件号码:+选定内容+“,”+”选定内容...
  • 清空剪切板ClearOfficeClipboard类,可用在Excel的VBA
  • 当监听链发生改变的时候,剪贴板的消息只会把消息发送给剪贴板监听链的第一个窗口,前面的窗口负责给后面的窗口发送剪贴板的消息,如果有一个窗口没有给后面的窗口发送剪贴板消息,那么后面的窗口接收不到剪切板的...
  • 清空剪贴板

    2014-03-24 11:22:44
    双击便可直接清空剪贴板,不用再经常误点到粘贴了
  • 剪切板清除

    2013-04-18 19:28:13
    剪切板清除:超好用的绿色的计算机系统剪切板清除工具软件。
  • 我想到的解决办法:通过调用VBA的openclipboard达到独占剪贴板的目的,防止程序运行中剪贴板的数据被别的程序覆盖。 求助:怎么样才能通过调用word中的openclipboard达到独占剪贴板的目的,或者,怎么才能防止...
  • 可以选择文本或图形,然后使用“剪切”或“复制”命令将所选内容移动到剪贴板,在使用“粘贴”命令将该内容插入到其他地方之前,它会一直存储在剪贴板中。例如,您可能要复制网站上的一部分文本,然后将其粘贴到电子...
  • vba

    2018-10-11 10:48:46
    1.注释 以 ' 开头的语句会被视为注释 以关键字 REM 开头的句子 2.MsgBox ... ...MsgBox(prompt[,buttons][,title][,helpfile,context]) ' prompt - 在对话框中显示的字符串,换行可用Chr(13)或者Chr(10)表示 ...
  • VBA

    2017-05-24 08:47:00
    在工具栏中将"开发工具"菜单调出来,点击VBA script或者快捷键ALT+F11, 打开编程窗口 下拉列表:选中要处理的单元格>>数据>>数据验证(数据有效性)>>序列>>输入示例:1,2,3 function和sub最大...
  • 复制文本到剪贴板代码基于clipboard.js制作,复制文本,粘贴文本,剪切板文本。
  • 最近需要在浏览器端实现excel数据的粘贴,一开始去找获取剪贴板数据的方法。但是在浏览器端,JS去取是受安全限制的。
  • 修改剪贴板内容

    2019-11-26 08:54:21
    #你先复制一段文字 #然后以管理员权限运行该脚本 #你会发现程序输出的是你复制的是去除换行符后的那段文字 ... #打开剪切板 wc.OpenClipboard() #获取剪切板的内容 txt = wc.GetClipboardData(w...
  • 用VB的API实现对剪贴板的监视 ,数据 的复制 查看
  • 监听剪贴板 C++源码 添加消息 BEGIN_MESSAGE_MAP(CClipboardDlg, CDialogEx) ON_WM_CLIPBOARDUPDATE() END_MESSAGE_MAP() 添加监听 BOOL CClipboardDlg::OnInitDialog() { CDialogEx::OnInitDialog(); ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,413
精华内容 565
关键字:

vba剪贴板