vba常用小程序

最新推荐文章于 2023-10-11 17:55:27 发布

Mavey__Loo

最新推荐文章于 2023-10-11 17:55:27 发布

阅读量1.2k

点赞数 1

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/Mavey__/article/details/117702517

版权

'将文本复制到剪贴板
Sub copyToClipbox(strText As String, Optional noMsg As Boolean)
    
    On Error Resume Next
    
    '1C3B4210-F441-11CE-B9EA-00AA006B1A69 是标识符，通俗点说就是COM对象的身份证号码。
    '明确的称呼是 GUID（Globally Unique Identifier的简称，中文翻译为“全局唯一标示符”）,在Windows系统中也称之为Class ID，缩写为CLSID。
    '至于这串标识符所代表的某COM对象长啥样，你可以打开注册表编辑器（regedit），以这串字符串为关键字，就会得到结果
    With CreateObject("new:{
  1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText strText
        .PutInClipboard
    End With
    
    On Error GoTo 0
    
    If noMsg = False Then
        MsgBox "语句已经复制到剪贴板", vbInformation, "友情提示"
    End If
    
End Sub

'循环当前工作簿的所有工作表，将其他sheet数据复制到同一sheet
Sub cycleExcel()
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ThisWorkbook.Activate
    
    Dim STRNAME As String
    Dim I As Integer, j As Integer
    j = 3
    I = 0
    
    STRNAME = ""
    
    On Error Resume Next