DDE每分鐘記錄的資料排序問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » DDE每分鐘記錄的資料排序問題

返回列表下一主題上一主題發帖

[發問] DDE每分鐘記錄的資料排序問題

博士班 Rank: 6 Rank: 6

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

1^# 跳轉到 »

發表於 2018-3-10 05:09 | 顯示全部帖子

回復 1# pcboy60

Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value

複製代碼

修改為

Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value

複製代碼

試試看。

博士班 Rank: 6 Rank: 6

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

2^#

發表於 2018-6-18 08:34 | 顯示全部帖子

回復 10# jaway
你的意思是指：
將 Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value 修改成
Sht1.Range("A" & xRow & ":O" & xRow).Value = Sht1.Range("A8:O8").Value
？

博士班 Rank: 6 Rank: 6

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

3^#

發表於 2018-6-20 09:52 | 顯示全部帖子

回復 13# jaway
試試看是否可行：

Sub 共用參照()
Set MyBook = ThisWorkbook
If Time > Sheets("Sheet1").Range("AV2").Value And Time <= Sheets("Sheet1").Range("AW2").Value Then
Set Sht1 = MyBook.Sheets("Sheet2") ' 夜盤 -----
StartTime = Sheets("Sheet1").[AW1] ' 開盤時間
EndTime = Sheets("Sheet1").[AW2] ' 收盤時間
End If
Set Sht1 = MyBook.Sheets("Sheet1") ' 日盤 -----
StartTime = Sheets("Sheet1").[AV1] ' 開盤時間
EndTime = Sheets("Sheet1").[AV2] ' 收盤時間
Else
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2019-5-20 10:13 | 顯示全部帖子

回復 c_c_lai

請問 c_c_lai 大大：因為E8=D8+D9
插入後...E8會變成D8+D10、D8+D11.......
...
cslu37 發表於 2019-5-18 22:18

不太明瞭，能舉實例說明嗎?

博士班 Rank: 6 Rank: 6

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

5^#

發表於 2019-5-22 09:01 | 顯示全部帖子

回復 17# cslu37
是這意思嗎?

Sht1.Range("E8").Value = "=D8+D9"
Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value

複製代碼

博士班 Rank: 6 Rank: 6

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

6^#

發表於 2019-5-24 08:34 | 顯示全部帖子

回復 20# cslu37
3種不同時間的商品 ?
每一商品間時間重疊部分如何區分?

博士班 Rank: 6 Rank: 6

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

7^#

發表於 2019-5-24 16:03 | 顯示全部帖子

回復 22# cslu37
這須看你程式之結構如何撰寫而定，
你可附上目前應用的程式，方便的話。

博士班 Rank: 6 Rank: 6

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

8^#

發表於 2019-5-30 15:04 | 顯示全部帖子

回復 24# cslu37
問題一：多商品，就出現錯誤訊息了...
錯誤訊息碼是甚麼 ?

博士班 Rank: 6 Rank: 6

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

9^#

發表於 2019-5-30 15:49 | 顯示全部帖子

回復 24# cslu37

靜思自在 : 真正的愛心，是照顧好自己的這顆心。

返回列表下一主題上一主題