- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2012-2-16 07:56
| 只看該作者
回復 1# jerrystock
幫你多加二句 你是要如此嗎?- Private Sub Workbook_Open()
- If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
- Sheet2.[B7:G307] = ""
- change
- Else
- Application.OnTime "09:01:00", "ThisWorkbook.change"
- End If
- End Sub
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Private Sub change()
- Dim TimeRange As Range, Rng As Range, R As Range
- With Sheet2
- Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
- Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
- Set R = Application.Evaluate(Mid(.Range("A3").Formula, 2))
- 'R 是A3的公式 =Data!B2 所指的位置
- Rng.Value = R.Offset(, 1).Resize(, 6).Value ' ***這裡也要: R的數據 指定到 Rng
- With Sheet5 '電子期我加入的部分
- Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
- Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
- Set R = Application.Evaluate(Mid(.Range("A3").Formula, 3))
- 'R 是A3的公式 =Data!B2 所指的位置
- Rng.Value = R.Offset(, 1).Resize(, 6).Value ' ****Sheet6的 這裡也要: R的數據 指定到 Rng
- With Sheet6 '金融期我加入的部分
- Set TimeRange = .[A:A].Find(Format(TimeSerial(Hour(Time), Minute(Time), 0), "hh:mm"), LookIn:=xlValues)
- Set Rng = TimeRange.Offset(, 1).Resize(1, 6)
- Set R = Application.Evaluate(Mid(.Range("A3").Formula, 4))
- 'R 是A3的公式 =Data!B2 所指的位置
- Rng.Value = R.Offset(, 1).Resize(, 6).Value 'R的數據 指定到 Sheet6的 Rng
- End With
- End With
- End With
- If Time > TimeValue("13:45:00") Then Exit Sub
- Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.change"
- End Sub
|
|
發表於 2012-2-19 15:15
| 
