GBKEE

回復 1# 藍天麗池

1. Option Explicit
   
2. Option Base 1       '在模組層次中用來宣告陣列索引的預設下限
   
3. Dim Ar As Variant   '這模組的絲用便變數
   
4. Sub Ex() '下一秒的程式碼
   
5.     With Sheets(1)  '指定的工作表
   
6.         If Not IsEmpty(Ar) Then
   
7.             If Ar(1) <> .[A1] Then .[A2] = .[A1] - Ar(1)
   
8.             If Ar(2) <> .[b1] Then .[b2] = .[b1] - Ar(2)
   
9.         End If
   
10.         Ar = Array(.[A1].Value, .[b1].Value)
    
11.     End With
    
12. End Sub

複製代碼

GBKEE

回復 8# 藍天麗池
程式碼已更新.
由於眼睛長時間的盯看螢幕,急需休養,所以這個月每天開機的時間,僅是看mail,
偶爾還是會在論壇看看.

GBKEE

回復 11# 藍天麗池
試試看

1. Sub 時間()
   
2.     '將B2:C101的值每秒一直重新複製到D2:E101
   
3.     With Sheets("rtd")
   
4.         .[D2:E101].Value = .[B2:C101].Value
   
5.     End With
   
6.     '從9:00執行到13:30分
   
7.     If Time > #1:30:00 PM# Then Exit Sub '時間大於>1:30 離開程式
   
8.     Application.OnTime Time + TimeValue("00:00：01"), "時間"
   
9. End Sub
   
10. Sub AUTO_OPEN() '一般模組 於檔案開啟時自動執行的程式
    
11.     If Time <= #9:00:00 AM# Then   '9:00 之前
    
12.         Application.OnTime TimeValue("09:00"), "時間"
    
13.     ElseIf Time >= #9:00:00 AM# And Time <= #1:30:00 PM# Then '9:00 ~13:30 間
    
14.         時間   '
    
15.     End If
    
16. End Sub

複製代碼

GBKEE

回復 13# 藍天麗池
你要的不是 B2:C101的值每秒一直重新複製到D2:E101

1. Sub RecordPrice()
   
2.     With Sheets("rtd")
   
3.         .[D2:E101].Value = .[B2:C101].Value
   
4.     End With
   
5. End Sub

複製代碼