DDE記錄資料求助 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » DDE記錄資料求助

1 234 下一頁

返回列表下一主題上一主題發帖

[發問] DDE記錄資料求助

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

16^# 跳轉到 »

發表於 2013-4-22 21:40 | 只看該作者

回復 13# c_c_lai
"ThisWorkbook.updateFollow"
這一句

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

15^#

發表於 2013-4-22 21:31 | 只看該作者

回復 13# c_c_lai
c_c_大你好，今天使用的結果:
"無法開啟巨集Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow" "
這個出現

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

14^#

發表於 2013-4-22 01:09 | 只看該作者

回復 13# c_c_lai
c_c_大，謝謝您，明天開盤來測試看看

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

13^#

發表於 2013-4-21 09:52 | 只看該作者

本帖最後由 c_c_lai 於 2013-4-21 10:03 編輯

各位大大，當開盤後，excel沒有任何動作，進入巨集內按執行，跳出"此專案的巨集已被暫止"的框框，這是出現了 ...
n8975067 發表於 2013-4-19 12:27

Sub updateFollow()
Dim Rng As Range
With Sheet2
Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
Rng = Sheet1.[c2]
Rng.Offset(, 1) = Sheet1.[d2]
Rng.Offset(, 2) = Sheet1.[e2]
Rng.Offset(, 3) = Sheet1.[f2]
Rng.Offset(, 4) = Sheet1.[g2]
Rng.Offset(, 5) = Sheet1.[h2]
Rng.Offset(, 6) = Sheet1.[i2]
Rng.Offset(, 7) = Sheet1.[j2]
Rng.Offset(, 8) = Sheet1.[k2]
Rng.Offset(, 9) = Sheet1.[l2]
End With
Application.OnTime Now + 300 / 86400#, "[color=Red]ThisWorkbook.[/color]updateFollow" ' 每五分鐘呼叫一次
' Application.OnTime Now + 60 / 86400#, "[color=Red]ThisWorkbook.[/color]updateFollow" ' 每一分鐘呼叫一次
End Sub

複製代碼

Application.OnTime Now + 300 / 86400#, "UpdateFollow" 程式碼在執行時，無法自動找到 updateFollow，
所以請在它的前面明確指定此涵式模組是放置在何方？
譬如： Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow" ，抑或是
Application.OnTime Now + 300 / 86400#, "Module1.updateFollow"

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2013-4-19 14:29 | 只看該作者

回復 1# n8975067
如圖修改後,須關閉excel重新開檔

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

11^#

發表於 2013-4-19 11:04 | 只看該作者

回復 6# barrykuo
大大你好，這個程式碼我套用進去後，在開盤時間開啟，沒有任何動作，告訴我此專案巨集已被暫止，這是什麼意思?

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

10^#

發表於 2013-4-15 11:33 | 只看該作者

中文也要打進去嗎?
今天試了上面的語法，結果沒辦法

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

9^#

發表於 2013-4-14 11:25 | 只看該作者

本帖最後由 n8975067 於 2013-4-14 11:27 編輯

Sheet1.Range("a" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[a2]
有顏色的部分是會包誇整個a的資料嗎，還是說要設程"a2"這樣，我只想要會跳動的數字部分

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2013-4-13 16:53 | 只看該作者

回復 5# n8975067
這裡先把玩一下

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 39
主題: 4
精華: 0
積分: 48
點名: 0
作業系統: windows 7
軟體版本: sp1
閱讀權限: 10
性別: 男
註冊時間: 2013-2-2
最後登錄: 2014-8-26

7^#

發表於 2013-4-13 12:26 | 只看該作者

回復 5# n8975067

按Ibt大大的方法可以寫成一個巨集，不需要兩個吧！我也不懂是不是這樣寫可以。

Sub updateFollow()
Sheet1.Range("a" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[a2]
Sheet1.Range("b" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[b2]
Sheet1.Range("c" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[c2]
'每五分呼叫一次
Application.OnTime Now + 300 / 86400#, "UpdateFollow"
End Sub

複製代碼

人生只有三天，只有活在今天最踏實

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

1 234 下一頁

返回列表下一主題上一主題