t8899

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-29 09:38 | 只看該作者

[發問] dde 連結公式更改 ?

dde 連結 =XQKGIAP|Quote!'2317.TW-Name'
想把 2317 用A2的值取代 ,不知如何更改?

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2014-12-2 21:53 | 只看該作者

dde 連結 =XQKGIAP|Quote!'2317.TW-Name'
想把 2317 用A2的值取代 ,不知如何更改?
t8899 發表於 2014-11-29 09:38

[C3].Formula="=XQKGIAP|Quote!'" & [A2] & ".TW-Name'"

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-28

3^#

發表於 2014-12-3 07:36 | 只看該作者

本帖最後由 t8899 於 2014-12-3 07:37 編輯

[C3].Formula="=XQKGIAP|Quote!'" & [A2] & ".TW-Name'"
luhpro 發表於 2014-12-2 21:53

我是要直接在公式裡改(直接套用)，不是用VB去改公式

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

4^#

發表於 2014-12-9 17:19 | 只看該作者

參考, 看能不能自行套用：
https://tw.knowledge.yahoo.com/question/question?qid=1013050800336
https://tw.knowledge.yahoo.com/question/question?qid=1013032004425

固定長度文字，可使用〔取代〕方法～～
　

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^#

發表於 2014-12-10 00:16 | 只看該作者

本帖最後由 luhpro 於 2014-12-10 00:21 編輯

我是要直接在公式裡改(直接套用)，不是用VB去改公式
t8899 發表於 2014-12-3 07:36

就我所知 :

那當然是不行的啦.
你的需求是在儲存格公式內的 DDE連結可直接參照另一儲存格的內容做變化,
亦即此 DDE連結公式是動態的,
當所參照的儲存格內容有異動(非DDE連結的資料有異動)這個DDE連結會跟之前不同,
類似的參照物可變更功能應該是只有 INDIRECT 函數,
但它卻並不支援DDE公式.

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-28

6^#

發表於 2014-12-10 09:29 | 只看該作者

就我所知 :

那當然是不行的啦.
你的需求是在儲存格公式內的 DDE連結可直接參照另一儲存格的內容做變 ...
luhpro 發表於 2014-12-10 00:16

我的想法也是只能用 INDIRECT ，但失效 :-(
我改用vb 用replace 做，因為按照權值大小排序,一段時間，須排序一次
For Each rng In Range(Cells(i, "b"), Cells(i, "m"))
rng.Replace What:="!'????", Replacement:="!'" & Cells(i, 1), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next rng

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

7^#

發表於 2014-12-10 21:36 | 只看該作者

我的想法也是只能用 INDIRECT ，但失效 :-(
我改用vb 用replace 做，因為按照權值大小排序,一段時間， ...
t8899 發表於 2014-12-10 09:29

你可以考慮換個角度想:
1. 如果單純只是整個表格內容須依照某些欄內的值做排序,
那只要指定好要排序的範圍就可以了 (例如 : Range(Columns(1),Columns(9)).Sort ... 或 Range(Rows(1),Rows(9)).Sort ...) ,
DDE 公式完全不用變,
因為它會是整欄(或列)一起移動的,
原先是對應哪支股票排序後仍然還是會對應那支股票.

2. 若是 DDE 公式中所參照的儲存格內容可能會變動,
那可以考慮在 Worksheet_Change 對 Target 位於該欄(或該列)時,
執行類似上面 2# 所舉例的程式去異動其所對應儲存格的 DDE 公式即可.

好處是執行時間會縮短, 效果卻不變.

TOP

t8899