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

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 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

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

3^#

發表於 2013-12-27 09:50 | 只看該作者

回復 saleen

時間或日期的格式前後要用 ##，不能用""，timevalue才要用到""，可是他長這樣：tim ...
owen06 發表於 2013-12-27 09:36

好的我試市看 ~ 感謝大大

小妹在此向各位大大求教了 Orz

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

4^#

發表於 2013-12-30 14:00 | 只看該作者

回復 saleen

時間或日期的格式前後要用 ##，不能用""，timevalue才要用到""，可是他長這樣：tim ...
owen06 發表於 2013-12-27 09:36

還是沒用...
一樣是系統時間到了後不會去更新 ><?...

小妹在此向各位大大求教了 Orz

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

5^#

發表於 2013-12-30 14:25 | 只看該作者

這邊發上我照 Mico 論壇上的相關問題之解答來輸入的格式

Sub recordData()

With 工作表2

Dim szTime As String

szTime = Time

' Setting For Time Constraints

If szTime > #2:25:00 PM# And szTime < #2:25:10 PM# Then

.[C2].Copy .[B5]

End If

End With
End Sub

照理說應該要在 2:25:00 到 2:25:10 中間
一直把 C2 複製到 B5 才對

不知道為什麼就是沒有作用 ><

就命 T__T

小妹在此向各位大大求教了 Orz

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 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移到模組裡，
  這樣他才會主動的去執行你要的動作。

Sub recordData()
t = Now + TimeSerial(0, 1, 0)
With 工作表2
If Time > #11:10:00 AM# And Time < #11:18:00 AM# Then
.[C2].Copy .[c5]
End If
End With
Application.OnTime t, "recordData"
End Sub

複製代碼

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

7^#

發表於 2013-12-31 12:10 | 只看該作者

回復 5# saleen

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

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

8^#

發表於 2013-12-31 12:16 | 只看該作者

回復 saleen

補充一下，
t = Now + TimeSerial(0, 1, 0)
application.ontime t , "re ...
owen06 發表於 2013-12-31 12:10

感謝 owen 大大 !
小妹已經成功讓它開始運作了
太感謝了 ><

小妹在此向各位大大求教了 Orz