12
返回列表 上一主題 發帖

[發問] 大家好 , 請教關於DDE自動換行與一些問題

saleen

帖子
53 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Windows 8 x64 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
Taipei 
註冊時間
2013-6-3 
最後登錄
2015-1-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-6-5 11:13 | 只看該作者

[發問] 大家好 , 請教關於DDE自動換行與一些問題

大家好 , 小妹因工作需要剛開始學習 Excel :P
參考了 這篇 後做出了大概想達成的需求 (調了好久 ><)
但又碰上一些問題
這邊附上圖懇請 c_c_lai 大幫忙 ><


另外還有幾個問題冒昧請教大大們 ~
台股的大盤不是有分電子、金融跟傳產嗎?
那我要把它們的成交比重抓到 Excel 應該怎麼抓 , 我老闆是用群益超級贏家這套
要抓出來像
電子 60%
金融 20%
傳產 10% 這樣 ><

然後就是如果說我想要抓 B,2 這欄的 "從開盤到目前的最高值與最低值"
應該要怎麼寫呢 ? ><

抱歉 ~ 問題有點多 >< 還請各位大大幫幫小妹了 :'(
收藏 分享
小妹在此向各位大大求教了 Orz

saleen

帖子
53 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Windows 8 x64 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
Taipei 
註冊時間
2013-6-3 
最後登錄
2015-1-28 
20#
發表於 2013-6-6 13:37 | 只看該作者
回復 19# c_c_lai


好滴
感謝 c_c_lai 大大啦 !
小妹以後一定還會有許多 Excel 跟 VB 的相關問題要請教大大 :D
小妹在此向各位大大求教了 Orz

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
19#
發表於 2013-6-6 13:01 | 只看該作者
回復  c_c_lai


完全成功耶 !
感謝 c_c_lai 大大 !
原來我是 a3 那邊沒改到..
^^
接下來要試著抓 ...
saleen 發表於 2013-6-6 12:56

有關電子金融傳產的成交比重方面，
妳可能就要去請教諸位版大與其他先進了!

TOP

saleen

帖子
53 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Windows 8 x64 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
Taipei 
註冊時間
2013-6-3 
最後登錄
2015-1-28 
18#
發表於 2013-6-6 12:56 | 只看該作者
回復 17# c_c_lai


完全成功耶 !
感謝 c_c_lai 大大 !
原來我是 a3 那邊沒改到..
^^
接下來要試著抓電子金融傳產的成交比重
c_c_lai 大可否建議一個方向小妹該從何著手 ><
小妹在此向各位大大求教了 Orz

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
17#
發表於 2013-6-6 12:26 | 只看該作者
回復 16# saleen
是這樣嗎？
  1. Sub updateFollow()
  2.     Dim Rng As Range
  3.    
  4.     On Error Resume Next
  5.     ' If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

  7.     With 工作表1
  8.         .Range("A3:L3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove        '  插入資料，原本資料列均下移一行。
  9.         '  Set Rng = .[A3]
  10.         '  Rng.Offset(, 1) = "=XQTISC|Quote!'FITX06.TF-Time'"
  11.         '  Rng.Offset(, 2) = "=R2-Q2"
  12.         '  Rng.Offset(, 3) = "=X2-W2"
  13.         '  Rng.Offset(, 4) = "=T2-U2"
  14.         '  Rng.Offset(, 5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  15.         '  Rng.Offset(, 6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  16.         '  Rng.Offset(, 7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  17.         '  Rng.Offset(, 8) = "=Y2"
  18.         '  Rng.Offset(, 9) = "=Z2"
  19.         '  Rng.Offset(, 10) = "=Z2-Q5"
  20.         '  Rng.Offset(, 11) = "= AA2 - AB2"
  21.         '  Rng.Offset(, 12) = "=AD2"
  22.         '  上面之敘述表達與下列的敘述結果是一樣的，差異只在於使用語法之巧妙不同。
  23.         Set Rng = .[A3].Resize(1, 12)
  24.         Rng(1) = "=XQTISC|Quote!'FITX06.TF-Time'"
  25.         Rng(2) = "=R2-Q2"
  26.         Rng(3) = "=X2-W2"
  27.         Rng(4) = "=T2-U2"
  28.         Rng(5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  29.         Rng(6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  30.         Rng(7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  31.         Rng(8) = "=Y2"
  32.         Rng(9) = "=Z2"
  33.         Rng(10) = "=Z2-Q5"
  34.         Rng(11) = "= AA2 - AB2"
  35.         Rng(12) = "=AD2"
  36.         Rng.Value = Rng.Value              '  將公式以欄值取代
  37.         Rng(1).NumberFormat = "hh:mm:ss"
  38.     End With
  39.     If timerEnabled Then Call timerStart
  40. End Sub
複製代碼
第二行就隨妳自由擺佈了 (因為成為未使用的空行了)。

TOP

saleen

帖子
53 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Windows 8 x64 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
Taipei 
註冊時間
2013-6-3 
最後登錄
2015-1-28 
16#
發表於 2013-6-6 12:15 | 只看該作者
回復 15# c_c_lai


    哦哦 ! 原來如此 ! 是往前算三行的意思 !
請教 c_c_lai 大像這些程式碼要如何學習 ?
有專門整本都是程式碼的書推薦嗎 ?

另像是 .Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 這段
我想把它改寫成 即時資料在最上面一行
然後每五分鐘由第三行起算往下加一行
我寫成  .Range("A3:L3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
這樣對嗎 ?
因為現在這樣最新的即時資料會被擠到下面 ><
好像有點困難...
小妹在此向各位大大求教了 Orz

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
15#
發表於 2013-6-6 11:51 | 只看該作者
回復  c_c_lai


太強了 ! 感謝 c_c_lai 大大 >~~<
超級成功耶 !
雖然看不太懂      
Rng(5) = "=IF ...
saleen 發表於 2013-6-6 11:17

.Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
在 A2 到 L2 間插入一資料列 (只異動 A ~ L 欄之位置；M ~ 以後之內容均保持不變)，原本資料列均下移一行後，
Rng 設定於 A2 列  (Set Rng = .[A2].Resize(1, 12))， 所以此時：
E = 累委賣比五分變量   ("=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],"""")") (=IF(ISNUMBER(B3),B2-B3,"")) B2(當根)-B3(前跟)
F = 累賣成比五分變量   ("=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],"""")") (=IF(ISNUMBER(C3),C2-C3,"")) C2(當根)-C3(前跟)
G = 累委買口五分變量   ("=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],"""")") (=IF(ISNUMBER(D3),D2-D3,"")) D2(當根)-D3(前跟)
以 E 欄為例： 目前在第二行上 E2 欄位置； E 的往前三欄 (D、C、B) 位置即為 B2 欄，同理、B2 欄往下一行 [1] 不就是 B3 欄嗎？
再以 F 欄為例： 目前在第二行上 F2 欄位置； F 的往前三欄 (E、D、C) 位置即為 C2 欄，同理、C2 欄往下一行 [1] 不就是 C3 欄嗎？
以此類推。

TOP

saleen

帖子
53 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Windows 8 x64 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
Taipei 
註冊時間
2013-6-3 
最後登錄
2015-1-28 
14#
發表於 2013-6-6 11:17 | 只看該作者
回復 12# c_c_lai


太強了 ! 感謝 c_c_lai 大大 >~~<
超級成功耶 !
雖然看不太懂      
Rng(5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
Rng(6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
Rng(7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"

這三行究竟是什麼意思 D:
都沒參照 rng 2 3 4 怎麼算出來差值的  囧
小妹在此向各位大大求教了 Orz

TOP

saleen

帖子
53 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Windows 8 x64 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
Taipei 
註冊時間
2013-6-3 
最後登錄
2015-1-28 
13#
發表於 2013-6-6 10:12 | 只看該作者
回復 12# c_c_lai

^^~感謝 c_c_lai 大大 !
我現在馬上去試試看 ~~
不過不知道我只是要把表格上色為什麼就跑出下拉選單來了
只好想辦法把它拿掉 ><
小妹在此向各位大大求教了 Orz

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
12#
發表於 2013-6-6 09:57 | 只看該作者
回復 10# saleen
其實 GBKEE 版大他已經給妳了正確的答案，唯一不同的處理
他是從資料錄最後往上遞增，但是妳要求資料須皆由 A2 行遞增
(插行)， 所以我稍稍就地取材改了寫入點：
  1. Sub updateFollow()
  2.     Dim Rng As Range
  3.    
  4.     On Error Resume Next
  5.      If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

  7.     With 工作表1
  8.         .Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove        '  插入資料，原本資料列均下移一行。
  9.         '  Set Rng = .[A2]
  10.         '  Rng = Sheet1.[c2]
  11.         '  Rng.Offset(, 1) = "=XQTISC|Quote!'FITX06.TF-Time'"
  12.         '  Rng.Offset(, 2) = "=R2-Q2"
  13.         '  Rng.Offset(, 3) = "=X2-W2"
  14.         '  Rng.Offset(, 4) = "=T2-U2"
  15.         '  Rng.Offset(, 5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  16.         '  Rng.Offset(, 6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  17.         '  Rng.Offset(, 7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  18.         '  Rng.Offset(, 8) = "=Y2"
  19.         '  Rng.Offset(, 9) = "=Z2"
  20.         '  Rng.Offset(, 10) = "=Z2-Q5"
  21.         '  Rng.Offset(, 11) = "= AA2 - AB2"
  22.         '  Rng.Offset(, 12) = "=AD2"
  23.         '  上面之敘述表達與下列的敘述結果是一樣的，差異只在於使用語法之巧妙不同。
  24.         Set Rng = .[A2].Resize(1, 12)
  25.         Rng(1) = "=XQTISC|Quote!'FITX06.TF-Time'"
  26.         Rng(2) = "=R2-Q2"
  27.         Rng(3) = "=X2-W2"
  28.         Rng(4) = "=T2-U2"
  29.         Rng(5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  30.         Rng(6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  31.         Rng(7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
  32.         Rng(8) = "=Y2"
  33.         Rng(9) = "=Z2"
  34.         Rng(10) = "=Z2-Q5"
  35.         Rng(11) = "= AA2 - AB2"
  36.         Rng(12) = "=AD2"
  37.         Rng.Value = Rng.Value              '  將公式以欄值取代
  38.         Rng(1).NumberFormat = "hh:mm:ss"
  39.     End With
  40.     If timerEnabled Then Call timerStart
  41. End Sub
複製代碼
但是 請自行取消 {A1:L1] 間的下拉篩選，否則將無法  "插入" 資料列。

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
12
返回列表 上一主題