作者hahawin (haha)
站內Office
標題Re: [問題] 100P! Excel VBA 可不可以"清除剪貼簿"?
時間Mon Dec 5 20:25:02 2011
很感謝bulldog大的指教!
不過有一個滿關鍵的問題想請教
就是因為我本來就有寫的巨集
我想將bulldog大寫這段程式碼到程式裡
請問要複製貼上到哪個位置啊? (我自己嘗試一直失敗)
懇請bulldog大指教一下,萬分感謝!!
以下是小弟的程式碼
Sub Bu()
Dim i As Integer
For i = 3 To 4
Workbooks("Book1.xls").Activate
Sheets("台北").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = Worksheets("Sheet1").Cells(i, 2).Value
Sheets("台北").Select
Range("C12").Select
Selection.Copy
Workbooks("Book2.xlsx").Activate
Worksheets("Sheet1").Cells(i, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False
Next
End Sub
請問bulldog大提供的程式碼要放在哪裡才不會有問題呢?
萬分感謝!!
※ 引述《bulldog ()》之銘言:
: ※ 引述《hahawin (haha)》之銘言:
: : excel 2007
: : 想請問各位高手
: : Excel VBA 有沒有辦法寫code 自動"清除剪貼簿"呢?
: : 感謝!
: : 以100P幣答謝!
: 單純不使用剪貼簿的話用
: Application.CutCopyMode = False
: 就可以了
: 如果只是要清空剪貼簿,後續還要用的話
: 用下面這段..
: Declare Function OpenClipboard Lib "User32.dll" _
: (ByVal hWndNewOwner As Long) As Long
: Declare Function EmptyClipboard Lib "User32.dll" () As Long
: Declare Function CloseClipboard Lib "User32.dll" () As Long
: Public Sub ClearClipboard()
: Dim Ret
: Ret = OpenClipboard(0&)
: If Ret <> 0 Then Ret = EmptyClipboard
: CloseClipboard
: End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.32.219.130
※ 編輯: hahawin 來自: 114.32.219.130 (12/05 20:25)
→ hahawin:小弟想要i每跑一次前都先清空剪貼簿 12/05 20:28
→ hahawin:感謝bulldog 12/05 20:36
→ hahawin:p幣已發 12/05 20:38
→ poleman:自學VBA有沒有適當的書可以推薦 最近看一本快吐寫了... 12/05 22:55
推 zchien:Application.CutCopyMode = False 放在Dim下面應該可以吧 01/30 21:27