返回列表 上一主題 發帖

[發問] 程式優化問題

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-4-20 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2021-12-9 16:43 | 顯示全部帖子
回復 1# y54161212

自創一個

Private Sub StartStop_Timer()
If TimerActive = False Then

    TimerActive = True
    Timer
ElseIf TimerActive = True Then
    TimerActive = False
End If
   

End Sub

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-4-20 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2022-1-25 04:17 | 顯示全部帖子
本帖最後由 singo1232001 於 2022-1-25 04:30 編輯

回復 4# y54161212


    抱歉 姍姍來遲 不常上  已補上檔案

timeactiveV1.zip (19.93 KB)

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-4-20 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2022-1-26 11:10 | 顯示全部帖子
回復 1# y54161212


由於application.run 處於sheet1內

怕原po不了解呼叫其他程序的方法  順便把呼叫方式放上

呼叫程序是addadd   如圖片範例 檔案在上一樓

Screenshot 2022-01-26 110221.png (47.12 KB)

Screenshot 2022-01-26 110221.png

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題