巨集停止請教 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 巨集停止請教

返回列表下一主題上一主題發帖

[發問] 巨集停止請教

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2014-7-9 23:16 | 顯示全部帖子

回復 1# bqwangs
我猜你是要這樣吧....

最上面加個全域變數
Public gbStop as Boolean
修改crMain

Sub crMain()
gbStop = False
lastM = 0
Do
If lastM <> fMdfd Then
lastM = fMdfd
getCSV
End If
DoEvents
Loop Until gbStop
End Sub

複製代碼

另新增(按鈕呼叫此巨集)

Sub UserStop()
gbStop = True
End Sub

複製代碼

靜思自在 : 原諒別人就是善待自己。

返回列表下一主題上一主題