EXCEL VBA 啟用停止按鈕功能?

2015-10-23 2:19 pm
http://www.FunP.Net/462219

原VBA寫法如下

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode Then Exit Sub
'Application.Calculate
Application.ActiveWorkbook.ActiveSheet.Calculate
End Sub

請教如何修改或新增,可達到按一下「啟用/停止」按鈕後,即可啟用以上VBA效果,再按一下則停止功能效果

求解,非常感謝!!!
更新1:

S大~非常感謝幫忙,但忘了說明,以上VBA作用是讓滑鼠點選到的當列儲存格自動反色。 但希望可透過按鈕,點一下可以停止反色效果,或點一下繼續有反色效果。原因是因為有時候作業上會不需要反色效果存在,有時候又需要!然後希望反色效果預設是啟動的。謝謝~ 最後因為我不會寫VBA,所以不知道該怎麼修改以下程式碼,再麻煩了~~~~~非常感謝。

回答 (2)

2015-10-25 3:01 am
新增ActiveX按鈕控制項
Private Sub CommandButton1_Click()
Cells.Interior.Pattern = xlNone
ActiveCell.Interior.Color = 65535
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Top
End Sub
2015-10-24 3:51 am
段野..好似吾齊料...
特別係尼句 "If Application.CutCopyMode Then Exit Sub" 到底你係想個Mode = xlCopy, 定=xlCut, 先去Calculate?

思路分析: 其實你講戈個啟用/停止,我地可以用一個最簡單既方式. 加個制 (ToggleButton1), 再用IF 去判斷 個制個名(即: "啟用" 或 "停止") 從而去判斷你想要佢行既程序就可以了.


收錄日期: 2021-05-04 02:01:17
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20151023061901AAYCAOu

檢視 Wayback Machine 備份