帖子: 9
主題: 4
精華: 0
積分: 17
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2010-5-4
最後登錄: 2011-5-11

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-7-19 23:16 | 只看該作者

[發問] 請問如何比對欄位資料並取得相對欄位值呢?[以解決]

本帖最後由悲歡雙心於 2010-7-21 01:26 編輯

請問各位先進
我想要在UserForm1裡面加程式
讓它去取得sheet5(歷史資料)裡面的"買賣訊號"欄位資料
於是寫了do loop 迴圈利用"圖表e1的欄位"去嘗試與"歷史資料的date欄位"比對
並且取得"買賣訊號"欄位的值
但是都會當機或者出現資料格式不正確
請問可以幫幫我嗎

DDE.rar (957.07 KB)

樓主熱帖

極目冷眼笑蒼雲，寂寞一生傲天穹

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

2^#

發表於 2010-7-20 09:15 | 只看該作者

沒看見裡面所提的 table.csv 這個檔案
另外,語法內的 Sheet1 請改為 Sheets(1)

TOP

悲歡雙心

小學生 Rank: 1

帖子: 9
主題: 4
精華: 0
積分: 17
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2010-5-4
最後登錄: 2011-5-11

3^#

發表於 2010-7-20 11:51 | 只看該作者

回復 2# jackdream
回大大
我只是想要在"UserForm1"裡面
用"Sheet3.[e1]"或"Label24"的資料
去搜尋"歷史資料表"的"Date"欄位找到一樣的
並取得同一列"買賣訊號"欄位的值
讓我好判斷現在是處於黃金交叉或死亡交叉等等..
而大大所提及的table.csv因為論壇有上傳容量的限制
所以可能被我刪減掉了.....
但我想應該不會影響到程式執行...

極目冷眼笑蒼雲，寂寞一生傲天穹

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

4^#

發表於 2010-7-20 22:08 | 只看該作者

回復 1# 悲歡雙心

沒有很詳細測試,而且資料不太齊整,只是看了一兩眼~

以下是值得留意的地方:

1. 這句比較在意,
On Error Resume Next '沒有加這一行會出錯
有沒有說是什麼地方出錯? 出錯的地方可能影響資源回收.

2. 在vba寫東西到sheet 前運這句
application.Calculation=xlCalculationManual
在vba寫東西到sheet 後運這句
application.Calculation=xlCalculationautomatic
那麼格子不用每寫小許就重算一次, 一次過計算.

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

shadowming

小學生 Rank: 1

帖子: 29
主題: 12
精華: 0
積分: 49
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2010-7-5
最後登錄: 2010-12-8

5^#

發表於 2010-7-20 22:51 | 只看該作者

回復 4# kimbal

On Error Resume Next '沒有加這一行會出錯
有沒有說是什麼地方出錯? 出錯的地方可能影響資源回收.

請問一下
這句程式是在寫什麼?
有什麼用處呢?

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

6^#

發表於 2010-7-20 23:29 | 只看該作者

回復 kimbal

On Error Resume Next '沒有加這一行會出錯
有沒有說是什麼地方出錯? 出錯的地方可能 ...
shadowming 發表於 2010-7-20 22:51

如果預計代碼會有錯,但又不影響整體運作, 用這一句,就可以不顯示錯誤或跳出錯誤,繼續運下一句.

當年vb6未有像vb.net,c++ 等等的 try...catch的語句,
on error goto .../ resume next 對vb來說可以說是try...catch的前身

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

7^#

發表於 2010-7-22 10:57 | 只看該作者

回復 jackdream
我只是想要在"UserForm1"裡面
用"Sheet3.[e1]"或"Label24"的資料

個人淺見,整理幾個問題點~
(1).在Private Sub Workbook_Open()
Sheet1.Select=> 改為 Sheets(1).Select

(2).在 GetShareHistData 模組
Sheet1.Range("a5:g65536").ClearContents
改為Sheets(1).Range("a5:g65536").ClearContents

TableUrl = Sheet1.Range("I1") 改為 TableUrl = Sheets(1).Range("I1")

(3).在 SortDate 模組裡
Header:=xlGuess 建議改為 Header:=xlYes

另外,沒看見 sheet3 的內容,幫不上忙嚕~

TOP