作者:乔山办公网日期:
返回目录:excel表格制作
点击录制宏,然后剪切一些东西,在黏贴上去,结束录制然后进去看看这两个步骤怎么写。
区域.ClearContents
如:sheet1.range("A1:B1").ClearContents
类似的需求可以直接复制宏,再查看宏代码。
excel软件教程专题来自:系统圣地
VBA操作剪贴板数据
一、设置剪贴板内容
'仅对窗体有效,DataObject 是MSFORM子类
Dim MyData As New DataObject '声明新DataObject 类
MyData.SetText "文本内容" '设定文本,可以将Me.TextBox1.Text作为文本传递
MyData.PutInClipboard '送入剪贴板
二、读取剪贴板内容
Function GetClipBoardText()
'将剪贴板中的636f7079e799bee5baa6339文本输出到一变量。
Dim MyData As DataObject
Set MyData = New DataObject
' 如果剪贴板的数据是文本
If MyData.GetFormat(1) = True Then
' 从剪贴板中获得数据
MyData.GetFromClipboard
' 把数据返回给函数值
GetClipBoardText = MyData.GetText(1)
End If
End Function
VBA 参考7a686964616fe59b9ee7ad94335代码:
Option Explicit
#If VBA7 Then
Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
#Else
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
#End If
Sub CallEC()
Dim lngRet As Long
lngRet = OpenClipboard(Application.hwnd)
If lngRet Then
EmptyClipboard
CloseClipboard
End If
End Sub
先复制一段文字到剪贴板,然后运行 CallEC 过程,之后便会看到剪贴板被清空了。