返回列表 上一主題 發帖

[發問] 請問DDE代號要如何建立

Apple007

帖子
21 
主題
6 
精華
0 
積分
26 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
來自
屏東 
註冊時間
2014-12-21 
最後登錄
2019-1-4 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-7-11 23:13 | 只看該作者

[發問] 請問DDE代號要如何建立

請問各位前輩,A1儲存格是股票代號,B1儲存格是DDE連結(公式),我要如何在A2儲存格貼上2317後,讓B2儲存格變成=CATDDE|'STOCK<Q>2317  '!ExecutionVol,A3儲存格貼上3069後,B3對應變成=CATDDE|'STOCK<Q>3069  '!ExecutionVol,依此類推!請教各位前輩大大,謝.

3481   =CATDDE|'STOCK<Q>3481  '!ExecutionVol
2317
3069
4958
2330
1101
2409
6121
1477
8076
Book1.rar (1.41 KB)
收藏 分享

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
2#
發表於 2015-7-11 23:51 | 只看該作者
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Target.Offset(, 1) = "=CATDDE|'STOCK<Q>" + Target.Text + Space(6 - Len(Target.Text)) + "'!ExecutionVol"
End If
End Sub

TOP

Apple007

帖子
21 
主題
6 
精華
0 
積分
26 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
來自
屏東 
註冊時間
2014-12-21 
最後登錄
2019-1-4 

論壇贊助勳章
3#
發表於 2015-7-12 12:11 | 只看該作者
本帖最後由 Apple007 於 2015-7-12 12:12 編輯

回復 2# jackyq

謝謝jackyq 大協助,在A欄輸入股票代號後可在B欄產生對應,不過要一筆一筆輸入,我如果一次要在A欄貼上600多筆代號,在B欄同時產生對應代碼,可否達成或要如何修改.
BOOK1.rar (4.39 KB)

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
4#
發表於 2015-7-12 13:27 | 只看該作者
Private Sub Worksheet_Change(ByVal Target As Range)
Excel.Application.EnableEvents = False
For Each Rng In Target
If Rng.Column = 1 Then
    Rng.Offset(, 1) = "=CATDDE|'STOCK<Q>" + Rng.Text + Space(6 - Len(Rng.Text)) + "'!ExecutionVol"
End If
Next
Excel.Application.EnableEvents = True
End Sub

TOP

Apple007

帖子
21 
主題
6 
精華
0 
積分
26 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
來自
屏東 
註冊時間
2014-12-21 
最後登錄
2019-1-4 

論壇贊助勳章
5#
發表於 2015-7-12 18:20 | 只看該作者
回復 4# jackyq

測試OK了!用VBA執行DDE代號建立省去了用人工輸入的很多時間,感謝jackyq 的程式協助!

TOP

weans1975

帖子
1 
主題
0 
精華
0 
積分
2 
點名
0  
作業系統
XP 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2012-1-30 
最後登錄
2017-6-26 
6#
發表於 2015-8-25 03:32 | 只看該作者
Jackyq大，請問這一段code，要貼在excel何處。操作步驟是如何？
如果我的例子是
1101 =YES|DQ!'1101.Open' =YES|DQ!'1101.High' =YES|DQ!'1101.Low' =YES|DQ!'1101.Price'
1102
1103
可以怎麼處理呢？謝謝!!

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
16  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-10-26 

2016猴年全勤獎章
7#
發表於 2015-8-25 07:49 | 只看該作者
這是頁的觸發事件，放在當頁就是。

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題