[發問] 表單按鈕連續執行

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-7-24 17:08 | 只看該作者

我在表單按鈕中設定巨集
希望在滑鼠點擊按鈕未放開滑鼠時可以連續執行巨集直至開放滑鼠，請問要如何設定？

複製代碼

偶而學習

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-8-25 15:57 | 只看該作者

本帖最後由 GBKEE 於 2012-8-25 15:59 編輯

回復 1# roy1221
試試看

Option Explicit
Dim Left_Msg As Boolean '表單私用變數
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'CommandButton1 按下按鈕的觸發事件程序
Left_Msg = True
Sub_Left
End Sub
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'CommandButton1 離開按鈕的觸發事件程序
Left_Msg = False 'Left_Msg = False 停止迴圈執行下去
End Sub
Private Sub Sub_Left() 'Left 是vba內建關鍵字,勿為變數,程序名稱
'按下按鈕要執行的程序
Dim Shift As Integer
Shift = Range("A7").Value
ActiveSheet.Shapes("Group 2").Select
Do While Left_Msg 'Left_Msg = True 迴圈執行下去
DoEvents
Application.StatusBar = Time '狀態列中顯示時間說明程序在執行中
Selection.ShapeRange.IncrementLeft -Shift * 75
Loop
ActiveCell.Activate
End Sub

複製代碼

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。