DDE每分鐘記錄的資料排序問題 - Excel程式區

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

12^#

發表於 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
？

jaway

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 11
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 10
註冊時間: 2018-6-9
最後登錄: 2019-12-10

13^#

發表於 2018-6-18 09:25 | 只看該作者

回復 jaway
你的意思是指：
將 Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Va ...
c_c_lai 發表於 2018-6-18 08:34

先謝謝C大...就是您說的意思,我已解決這個問題,
目前是不知要如何再增加一個活頁簿,記錄夜盤,
不知可否請您指導...

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

14^#

發表於 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

複製代碼

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

15^#

發表於 2019-5-18 22:18 | 只看該作者

回復 2# c_c_lai

請問 c_c_lai 大大：

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

複製代碼

因為E8=D8+D9
插入後...E8會變成D8+D10、D8+D11.......
但是我希望插入後E8的公式，一值都是D8+D9
懇請大大指導！！謝謝您！！

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

16^#

發表於 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

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

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

17^#

發表於 2019-5-20 10:47 | 只看該作者

回復 16# c_c_lai

   c_c_lai大大您好：
我是想要寫成  I10=D10+E11  要固定不變

但每插入一行，E就會向下推一欄。
如附檔：第一次插入→I10的公式就會變成D10+E11
               第二次再插入→I10的公式就會變成D10+E12
               第三次再插入→I10的公式就會變成D10+E13........以此類推

懇請大大指導，謝謝您！！

插入問題.png (18.41 KB)

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

18^#

發表於 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

複製代碼

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

19^#

發表於 2019-5-22 11:46 | 只看該作者

回復 18# c_c_lai

  謝謝 c_c_lai 大大^^~
  現在公式不會一直往下移動一行了!!
  大大真的是太厲害了!!謝謝大大～～～

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

20^#

發表於 2019-5-22 11:51 | 只看該作者

回復 18# c_c_lai

   請教大大：
   這個檔案只能記錄一種時間的商品(8:45~13:45)
   若想同時記錄 3種不同時間的商品
   例如： (商品一) 7:45~14:15
               (商品二) 8:45~13:45
               (商品三) 9:15~12:00
   請問要如何修改呢?
   感謝大大指導！！