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

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2013-6-5 12:55 | 只看該作者

回復 1# saleen
妳把 Excel 壓縮成 .WAR 檔之後上傳 (如迴紋針的附件)，
實際看了妳的文件後再評斷。

TOP

saleen

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

3^#

發表於 2013-6-5 13:15 | 只看該作者

c_c_lai 大請查收 :)

範例加目前結果.rar (186.47 KB)
感謝 :'(

小妹在此向各位大大求教了 Orz

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2013-6-5 13:52 | 只看該作者

本帖最後由 c_c_lai 於 2013-6-5 13:56 編輯

回復 3# saleen
妳紀錄每筆資料的時段是多久？每一秒、每二十秒、或是每一分鐘？
每次資料寫入時，均顯示在第一筆資料列上，亦即之前的資料錄均往下移一行？
麻煩妳將需求說明清楚，同時每欄要對應的資料來源也請描述一下。
P.S. 請回覆時，務必點選 "回覆" 鈕，否則如沒仔細瀏覽是不知道有 "信件消息" 的。

TOP

saleen

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

5^#

發表於 2013-6-5 15:22 | 只看該作者

回復 4# c_c_lai

c_c_lai 大抱歉 >"<
以後會記得用回覆按鈕的
我記錄的時間一樣是五分鐘一次呀
第二行~是的就是前一筆資料下移
關於需求就是 :
以 E4 為例
E4 = B4 - B3
F4 = C4 - C3
G4 = D4 - D3
E5 = B5 - B4

但因為以原換行程式來跑它是把 A2~J2
每隔5分往下一行記錄
問題是在一開始時 E2 F2 跟 G2 是沒辦法有資料的 (因為 B C D 的第二行沒辦法減第一行 , 第一行是中文 , 而 E F G 的第三行因為一開始第二行沒資料也沒辦法去減它)
所以 E F G 往下就會一直是空白

不知道這樣解釋夠不夠清楚 ><
感謝 :Q

小妹在此向各位大大求教了 Orz

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-6-5 16:12 | 只看該作者

回復 5# saleen
期指_001.xlsm

Sub updateFollow()
Dim Rng As Range
If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
With 工作表1
Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1).Resize(1, 12)
Rng(1) = "=XQTISC|Quote!'FITX06.TF-Time'"
Rng(2) = "=R2-Q2"
Rng(3) = "=X2-W2"
Rng(4) = "=T2-U2"
Rng(5) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
Rng(6) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
Rng(7) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
Rng(8) = "=Y2"
Rng(9) = "=Z2"
Rng(10) = "=Z2-Q5"
Rng(11) = "= AA2 - AB2"
Rng(12) = "=AD2"
Rng.Value = Rng.Value
Rng(1).NumberFormat = "hh:mm:ss"
End With
If timerEnabled Then Call timerStart
End Sub