有請解答! 如何製作此一欄位??

cheng17875

下載 (37.46 KB)

2010-7-26 13:29

kimbal

用vlookup等可以從表回傳結果.

你的excel表布局是如何?

cheng17875

用vlookup等可以從表回傳結果.

你的excel表布局是如何?
kimbal 發表於 2010-7-26 13:47

    不好意思!  沒說明一時手快
這是由股票軟體直接DDE連結的
你所看到的是 DDE連結的"內碼"
我想在第一欄可以輸入任意股票代碼
能夠取代該列每一欄內的DDE內碼
不知這樣說明看得懂嗎?

下載 (46.04 KB)

2010-7-26 14:03

jackdream

回復 3# cheng17875

如果用 Worksheet_Change 去觸發更新程序呢?

cheng17875

回復 4# jackdream


    不好意思!  不知道怎樣弄啦!
可否給小學生我多一點簡單白話的指示
因為我還不大會其中一些程式

jackdream

回復  jackdream
    不好意思!  不知道怎樣弄啦!
可否給小學生我多一點簡單白話的指示
cheng17875 發表於 2010-7-26 14:29

請將以下內容放在 sheet 裡面(不是放在模組裡面)

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Not Intersect(Target, Range("A2")) Is Nothing Then '若有更改 A2 內容
   
3.         If Not Cells(Target.Row, Target.Column) = Empty Then
   
4.             Call xxx '觸發程序 (xxx 代表指進行股票更新的模組)
   
5.         End If
   
6.     End If
   
7. End Sub

複製代碼

cheng17875

回復 6# jackdream


    我好像搞不起來~~~sorry!我太笨了

真不好意思...
說明如下"
1.我是先開啟券商的免費股市報價軟體
2.然後將個股DDE直接拉到EXCEL儲存格中
3.想要在空白儲存格建立"輸入股票代號"  即可改變該列其他欄位的報價
大大所說的 我有寫到儲存格中  但好像不能執行
PS:我的是2000

jackdream

回復  jackdream
我有寫到儲存格中  但好像不能執行
cheng17875 發表於 2010-7-27 11:09

您好! 上述語法並不是寫在儲存格內,而是 sheet 的vba程式編輯畫面.
建議可以上傳檔案,看看格式內容是否一定要動用 vba程式.

cheng17875

回復 8# jackdream


Book.zip (5.6 KB)

下載次數: 4

2010-7-27 12:49

可以了   請幫忙!  謝謝

由於有連結DDE的內碼
若是使用者沒有股票報價軟體可能無法連結

jackdream

回復 9# cheng17875

附件內並無程式碼,資料來源是 eMidst|SW
因此要看原始檔案的內容格式,再用 vlookup 之類的函數去找出對應值.