' 双击单元格把剪贴板里的内容写入单元格 PrivateSub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel AsBoolean)
' 使用前绑定 ' 要先引用Microsofts Forms 2.0 Object Librery ' Dim D As DataObject ' Set D = New DataObject
' 后绑定建立MSForms.DataObject对象 Dim d As Object 'Set d = CreateObject("MSForms.DataObject") ' 不可行 Set d = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
' 双击单元格把剪贴板里的内容写入单元格 PrivateSub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel AsBoolean)
' 使用前绑定 ' 要先引用Microsofts Forms 2.0 Object Librery ' Dim D As DataObject ' Set D = New DataObject
' 后绑定建立MSForms.DataObject对象 Dim d As Object 'Set d = CreateObject("MSForms.DataObject") ' 不可行 Set d = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")