PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-12-14 18:56 | 只看該作者

[發問] 如何在worksheet avtivate 之後仍保留剪貼簿的資料?

VBA, 剪貼簿

各位大大好,

小弟的問題在於
假設我有A、B兩個分頁
都有設定Worksheet activate

所以當我以人工的方式從A分頁複製客戶姓名
點選B分頁,接著進行貼上的時候

就會發現剪貼簿被清空了

因為activate的時候已經執行過巨集

有甚麼方式可以在執行VBA之後仍保留剪貼簿的資料嗎?

樓主熱帖

PKKO

s13030029

　暱稱: 伊恩

中學生 Rank: 2

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

2^#

發表於 2020-12-15 10:20 | 只看該作者

可以用
Application.CutCopyMode =true
Application.CutCopyMode =false
來偵測~

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

3^#

發表於 2020-12-15 10:59 | 只看該作者

回復 1# PKKO

A、B兩個分頁都有設定Worksheet activate
所以, ACTIVATE後有程式運作, 改變了工作表, 也取消了COPYMODE,
工作表事件小心運用, 常常會讓某些基本操作無法使用, 如"貼上"或"復原"

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2020-12-24 18:02 | 只看該作者

回復 PKKO

A、B兩個分頁都有設定Worksheet activate
所以, ACTIVATE後有程式運作, 改變了工作表, ...
准提部林發表於 2020-12-15 10:59

大大您說的部份沒錯
但有解決的方式嗎?

可以將剪貼簿保存起來的方法嗎?

PKKO

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

5^#

發表於 2020-12-24 18:48 | 只看該作者

回復 4# PKKO

Private Sub Worksheet_Activate()
If Application.CutCopyMode Then Exit Sub
其它執行程式
End Sub

TOP

Joforn

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

6^#

發表於 2021-1-19 19:56 | 只看該作者

回復 4# PKKO
簡單點的話就是在進入你的處理程式之前先把剪切板所有內容保存起來，所有處理完成后，在激活另一個工作表avtivate時，再把保存的內容恢復回剪切板內。
當然，還有更簡單的方式就是找到自己代碼內影響到剪切板內容的代碼，想辦法讓它不要影響到剪切板或是用其它不會影響到剪切板內容的代碼替換。

世界那麼大，可我想去哪？

TOP

PKKO