- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2010-10-19 21:45 編輯
回復 10# junsean
If Time <= TimeValue("08:59:00") Then
Range("A3:I50000") = "" '第一次條件成立時執行 如此
ElseIf Time >= TimeValue("09:00:00") And Time <= TimeValue("13:32:30") Then
ar = Array([A2], [B2], [C2], [D2], [E2], [F2], [G2], [H2], [I2]) '只有9個元素
[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
Application.OnTime Time + TimeSerial(0, 0, 10), "yy" '這裡就不執行了
End If- Sub yy()
- With Sheet1
- If Time <= TimeValue("08:59:00") Then
- .Range("A3:I50000") = ""
- Application.OnTime TimeSerial(9, 0, 0), "yy"
- End If
- If Time >= TimeValue("09:00:00") And Time <= TimeValue("13:32:30") Then
- ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2], .[H2], .[I2],.[J2])
- .[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
- Application.OnTime Time + TimeSerial(0, 0, 10), "yy"
- End If
- End With
- End Sub
- Sub xx()
- With Sheet2
- If Time <= TimeValue("08:44:00") Then
- .Range("A3:J50000") = ""
- Application.OnTime TimeSerial(9, 0, 0), "xx"
- End If
- If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
- ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2])
- .[A65536].End(xlUp).Offset(1, 0).Resize(, 7) = ar
- Application.OnTime Time + TimeSerial(0, 1, 0), "xx"
- End If
- End With
- End Sub
|
|
發表於 2010-10-19 21:40
| 
發表於 2010-10-19 22:20
| 
