返回列表 上一主題 發帖

[發問] 程式流程控制問題

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-10-6 07:55 | 顯示全部帖子

[發問] 程式流程控制問題

我的問題如下圖,請教大大程式碼要如何更改?

麻煩大大幫忙解答,感恩謝謝!!
測試.rar (219.81 KB)
收藏 分享

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
2#
發表於 2016-10-6 20:32 | 顯示全部帖子
G大您好
不好意思,測試修正時改到一些內容,己更改好了
測試修正2.rar (222.58 KB)

TOP

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
3#
發表於 2016-10-8 07:16 | 顯示全部帖子
本帖最後由 blue2263 於 2016-10-8 07:26 編輯

回復 2# GBKEE
G大您好
不好意思,不會跳回主程式,的問題還是存在?

之前測試時,更改了程式內容,忘記改回來,請以測試修正2查看,謝謝
測試修正2.rar (222.58 KB)

還請G大幫忙解答,感恩謝謝!!!

TOP

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
4#
發表於 2016-10-8 13:19 | 顯示全部帖子
回復 5# c_c_lai

測試是可以順利進行,上下午盤的每分記錄
不過巨集更改後,有幾個延伸的小問題,想請教
1.巨集更改後,畫面會不停閃爍
2.程式執行後,如想停止執行,會無法停止

感謝C大幫忙,謝謝

TOP

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
5#
發表於 2016-10-8 14:36 | 顯示全部帖子
本帖最後由 blue2263 於 2016-10-8 14:41 編輯

回復 5# c_c_lai
  1. Sub 自動記錄()
  2.    
  3.         If uMode = 0 Then Exit Sub
  4.         If Time > TimeValue(aaTime) Then  '收盤時間以後不執行
  5.            Application.DisplayStatusBar = True  '打開狀態列。
  6.            Application.StatusBar = "收盤"
  7.            'ActiveWorkbook.Save '當前工作表儲存
  8.            Application.Wait (Now + TimeValue("0:00:10"))  '等待x秒後進行
  9.            Call 開始執行
  10.            Exit Sub
  11.         End If
  12.         '每分鐘記錄----------------------------------------------------------
  13.         If Second(Time) = 0 Then
  14.             xRow = Sht1.Range("A8").End(xlDown).Row  '由上往下找
  15.             Sht1.Range("B1") = xRow + 1
  16.             Sht1.Range("A10").EntireRow.Insert
  17.             Sht1.Range("A10:CZ10").Value = Sht1.Range("A9:CZ9").Value
  18.             Sht1.Range("b10") = Time
  19.         End If
  20.         
  21.         Application.OnTime Now + TimeValue("00:00:01"), "自動記錄"   '每一秒遞迴一次

  23. End Sub
複製代碼
C大您好
我增加第9列程式碼,跳回主程式便可正常執行
感謝C大熱心幫忙,謝謝!!

TOP

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
6#
發表於 2016-10-9 10:24 | 顯示全部帖子
回復 8# GBKEE
感謝G大
測試可用,原來也有此類寫法,受用了
謝謝G大熱心幫忙!!

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題