帖子: 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)

樓主熱帖

ikboy

中學生 Rank: 2

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

2016猴年全勤獎章

7^#

發表於 2015-8-25 07:49 | 只看該作者

這是頁的觸發事件，放在當頁就是。

TOP

weans1975

小學生 Rank: 1

帖子: 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

Apple007

小學生 Rank: 1

帖子: 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

jackyq

中學生 Rank: 2

帖子: 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

小學生 Rank: 1

帖子: 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

中學生 Rank: 2

帖子: 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