返回列表 上一主題 發帖

[發問] DDE 欄位是參照 , 要如何取出值而非整串參照

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2013-12-27 09:36 | 顯示全部帖子
本帖最後由 owen06 於 2013-12-27 09:38 編輯

回復 1# saleen


    時間或日期的格式前後要用 ##，不能用""，timevalue才要用到""，可是他長這樣：timevalue("08:04:00")
    你把他改成這樣就會有作用了：
    If Time > #8:04:00 AM# < #5:04:30 PM# Then

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2013-12-31 11:18 | 顯示全部帖子
回復 5# saleen


  因為你的巨集裡，並沒有告知系統要在何時去指行recordData這個巨集。
  也就是說recordData這個巨集是被動的，只有當你手動去執行他的時候，他才會有作用。
  你可以在workbook open裡加入 call recordData 的指令
    Private Sub Workbook_Open()
    timerEnabled = False
    Call timerStart            ' 程式一啟始，便去自動執行 timerStart
    Call recordData
    End Sub
  
  然後將recordData內容修改如下並將他從thiswoorkbook移到模組裡，
  這樣他才會主動的去執行你要的動作。
  1. Sub recordData()
  2. t = Now + TimeSerial(0, 1, 0)
  3. With 工作表2
  4. If Time > #11:10:00 AM# And Time < #11:18:00 AM# Then
  5. .[C2].Copy .[c5]
  6. End If
  7. End With
  8. Application.OnTime t, "recordData"
  9. End Sub
複製代碼

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
3#
發表於 2013-12-31 12:10 | 顯示全部帖子
回復 5# saleen


    補充一下，
    t = Now + TimeSerial(0, 1, 0)
    application.ontime t , "recordData"
   這是表示每隔一分鐘就會重複執行一次這個巨集的指令，
   如果你想要每秒鐘執行一次，就改成Timeserial(0,0,1),
   timeseril裡面的數字分別代表的是時、分、秒。

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題