将剪贴板中的文本作为超链接添加到单元格

帕莎

我想创建一个宏,该宏在运行时将剪贴板中包含的链接粘贴为当前单元格的超链接。我尝试使用record宏生成了以下代码,并对其进行了一些修改:

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="abc.com" _
        , TextToDisplay:="Link"
End Sub

在这里,应该是“在键盘上粘贴文本”之类的东西,而不是abc.com。

ZwoRmi

根据@DanL注释,这是您需要的代码:

Sub Macro1()
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=GetClipboardText() _
        , TextToDisplay:="Link"
End Sub

Function GetClipBoardText() as String
   Dim DataObj As MSForms.DataObject
   Set DataObj = New MsForms.DataObject '<~~ Amended as per jp's suggestion

   On Error GoTo Whoa

   '~~> Get data from the clipboard.
   DataObj.GetFromClipboard

   '~~> Get clipboard contents
   GetClipBoardText = DataObj.GetText(1)


   Exit Sub
Whoa:
   If Err <> 0 Then MsgBox "Data on clipboard is not text or is empty"
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

将多个超链接添加到工作表中的多个单元格

来自分类Dev

VBA:将工作表的超链接添加到单元格中

来自分类Dev

当单元格和位置是动态的时,将超链接添加到单元格

来自分类Dev

将链接添加到单元格内而不是整个单元格内的文本

来自分类Dev

使用按钮将每个td单元格文本复制到剪贴板

来自分类Dev

将超链接添加到Google幻灯片演示文稿中的表格单元格

来自分类Dev

如何将超链接添加到Google工作表侧边栏附件中的单元格

来自分类Dev

将超链接添加到d3.js表行和单元格

来自分类Dev

将超链接添加到d3.js表的行和单元格

来自分类Dev

如何将文本添加到现有剪贴板

来自分类Dev

将超链接添加到JQuery中的文本

来自分类Dev

熊猫:如何将列表作为元素添加到DataFrame中的单个单元格

来自分类Dev

在FullRowSelect模式下将datagridview单元格内容复制到剪贴板

来自分类Dev

将单元格内容复制到剪贴板RadGridView WPF

来自分类Dev

将多个单元格从excel列复制到剪贴板

来自分类Dev

使用VBA将文本添加到Excel中的单元格

来自分类Dev

将单元格文本添加到VBA中的数组

来自分类Dev

使用委托将复选框添加到QTableView单元格中的文本

来自分类Dev

将单元格文本添加到VBA中的数组

来自分类Dev

如何将“复制到剪贴板”添加到自定义IntentChooser?

来自分类Dev

(.BAT)将字符串添加到剪贴板

来自分类Dev

防止将重复项从剪贴板添加到ListBox

来自分类Dev

jQuery将动态单元格添加到表中的静态单元格

来自分类Dev

将下面单元格中的值添加到上面的单元格

来自分类Dev

将文本添加到谷歌电子表格作为超链接

来自分类Dev

使用不支持超链接的文本编辑器的替代文本将超链接复制到剪贴板

来自分类Dev

将剪贴板作为文本粘贴到键盘缓冲区中

来自分类Dev

将文本链接添加到电子邮件中的超链接

来自分类Dev

Excel / VBA:“创建”按钮,用于将某些单元格的内容复制到剪贴板

Related 相关文章

  1. 1

    将多个超链接添加到工作表中的多个单元格

  2. 2

    VBA:将工作表的超链接添加到单元格中

  3. 3

    当单元格和位置是动态的时,将超链接添加到单元格

  4. 4

    将链接添加到单元格内而不是整个单元格内的文本

  5. 5

    使用按钮将每个td单元格文本复制到剪贴板

  6. 6

    将超链接添加到Google幻灯片演示文稿中的表格单元格

  7. 7

    如何将超链接添加到Google工作表侧边栏附件中的单元格

  8. 8

    将超链接添加到d3.js表行和单元格

  9. 9

    将超链接添加到d3.js表的行和单元格

  10. 10

    如何将文本添加到现有剪贴板

  11. 11

    将超链接添加到JQuery中的文本

  12. 12

    熊猫:如何将列表作为元素添加到DataFrame中的单个单元格

  13. 13

    在FullRowSelect模式下将datagridview单元格内容复制到剪贴板

  14. 14

    将单元格内容复制到剪贴板RadGridView WPF

  15. 15

    将多个单元格从excel列复制到剪贴板

  16. 16

    使用VBA将文本添加到Excel中的单元格

  17. 17

    将单元格文本添加到VBA中的数组

  18. 18

    使用委托将复选框添加到QTableView单元格中的文本

  19. 19

    将单元格文本添加到VBA中的数组

  20. 20

    如何将“复制到剪贴板”添加到自定义IntentChooser?

  21. 21

    (.BAT)将字符串添加到剪贴板

  22. 22

    防止将重复项从剪贴板添加到ListBox

  23. 23

    jQuery将动态单元格添加到表中的静态单元格

  24. 24

    将下面单元格中的值添加到上面的单元格

  25. 25

    将文本添加到谷歌电子表格作为超链接

  26. 26

    使用不支持超链接的文本编辑器的替代文本将超链接复制到剪贴板

  27. 27

    将剪贴板作为文本粘贴到键盘缓冲区中

  28. 28

    将文本链接添加到电子邮件中的超链接

  29. 29

    Excel / VBA:“创建”按钮,用于将某些单元格的内容复制到剪贴板

热门标签

归档