大家好 , 請教關於DDE自動換行與一些問題 - Excel程式區

saleen

中學生 Rank: 2

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

11^# 跳轉到 »

發表於 2013-6-6 09:48 | 只看該作者

回復 6# GBKEE

哇 ~ 感謝 GBKK 超級版主 >~<
可以用了..超強的 ^"^
不過不知道為什麼這份 Excel 速度變得很慢(開啟關閉儲存都變很慢,新增一行時也變慢)
太厲害了! :D

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

12^#

發表於 2013-6-6 09:57 | 只看該作者

回復 10# saleen
其實 GBKEE 版大他已經給妳了正確的答案，唯一不同的處理
他是從資料錄最後往上遞增，但是妳要求資料須皆由 A2 行遞增
(插行)，所以我稍稍就地取材改了寫入點：

Sub updateFollow()
Dim Rng As Range
On Error Resume Next
If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
With 工作表1
.Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' 插入資料，原本資料列均下移一行。
' Set Rng = .[A2]
' Rng = Sheet1.[c2]
' Rng.Offset(, 1) = "=XQTISC|Quote!'FITX06.TF-Time'"
' Rng.Offset(, 2) = "=R2-Q2"
' Rng.Offset(, 3) = "=X2-W2"
' Rng.Offset(, 4) = "=T2-U2"
' Rng.Offset(, 5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
' Rng.Offset(, 6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
' Rng.Offset(, 7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
' Rng.Offset(, 8) = "=Y2"
' Rng.Offset(, 9) = "=Z2"
' Rng.Offset(, 10) = "=Z2-Q5"
' Rng.Offset(, 11) = "= AA2 - AB2"
' Rng.Offset(, 12) = "=AD2"
' 上面之敘述表達與下列的敘述結果是一樣的，差異只在於使用語法之巧妙不同。
Set Rng = .[A2].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],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)"
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

複製代碼

但是請自行取消 {A1:L1] 間的下拉篩選，否則將無法 "插入" 資料列。

TOP

saleen

中學生 Rank: 2

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

saleen

中學生 Rank: 2

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

c_c_lai

博士班 Rank: 6 Rank: 6

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

中學生 Rank: 2

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

博士班 Rank: 6 Rank: 6

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

17^#

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

回復 16# saleen
是這樣嗎？

Sub updateFollow()
Dim Rng As Range
On Error Resume Next
' If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
With 工作表1
.Range("A3:L3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' 插入資料，原本資料列均下移一行。
' Set Rng = .[A3]
' Rng.Offset(, 1) = "=XQTISC|Quote!'FITX06.TF-Time'"
' Rng.Offset(, 2) = "=R2-Q2"
' Rng.Offset(, 3) = "=X2-W2"
' Rng.Offset(, 4) = "=T2-U2"
' Rng.Offset(, 5) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
' Rng.Offset(, 6) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
' Rng.Offset(, 7) = "=IF(ISNUMBER(R[1]C[-3]),RC[-3]-R[1]C[-3],0)"
' Rng.Offset(, 8) = "=Y2"
' Rng.Offset(, 9) = "=Z2"
' Rng.Offset(, 10) = "=Z2-Q5"
' Rng.Offset(, 11) = "= AA2 - AB2"
' Rng.Offset(, 12) = "=AD2"
' 上面之敘述表達與下列的敘述結果是一樣的，差異只在於使用語法之巧妙不同。
Set Rng = .[A3].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],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)"
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