123
返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
18# 跳轉到 »
發表於 2019-5-22 09:01 | 只看該作者
回復 17# cslu37
是這意思嗎?
  1. Sht1.Range("E8").Value = "=D8+D9"
  2. Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  3. Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value
複製代碼

TOP

cslu37

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

插入問題.png

TOP

c_c_lai

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

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

TOP

cslu37

帖子
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 大大：
  1. Sht1.Range("A9:N9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  2.     Sht1.Range("A9:N9").Value = Sht1.Range("A8:N8").Value
複製代碼
因為E8=D8+D9
    插入後...E8會變成D8+D10、D8+D11.......
    但是我希望插入後E8的公式，一值都是D8+D9
    懇請大大指導！！謝謝您！！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
14#
發表於 2018-6-20 09:52 | 只看該作者
回復 13# jaway
試試看是否可行：
  1. Sub 共用參照()
  2.     Set MyBook = ThisWorkbook
  3.    
  4.     If Time > Sheets("Sheet1").Range("AV2").Value And Time <= Sheets("Sheet1").Range("AW2").Value Then
  5.         Set Sht1 = MyBook.Sheets("Sheet2")  ' 夜盤 -----
  6.         StartTime = Sheets("Sheet1").[AW1]  '   開盤時間
  7.         EndTime = Sheets("Sheet1").[AW2]    '   收盤時間
  8.     End If
  9.         Set Sht1 = MyBook.Sheets("Sheet1")  ' 日盤 -----
  10.         StartTime = Sheets("Sheet1").[AV1]  '   開盤時間
  11.         EndTime = Sheets("Sheet1").[AV2]    '   收盤時間
  12.     Else
  13. End Sub
複製代碼

TOP

jaway

帖子
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大...就是您說的意思,我已解決這個問題,
目前是不知要如何再增加一個活頁簿,記錄夜盤,
不知可否請您指導...

TOP

c_c_lai

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

TOP

jaway

帖子
10 
主題
2 
精華
0 
積分
11 
點名
0  
作業系統
WIN7 
軟體版本
WIN7 
閱讀權限
10 
註冊時間
2018-6-9 
最後登錄
2019-12-10 
11#
發表於 2018-6-17 14:01 | 只看該作者
回復  f3202


謝謝指導...

可否再冒昧請問網上高手...
Sht1.Range("A" & xRow & ":N" & xRow).Val ...
jaway 發表於 2018-6-17 13:55



已自行發現問題...謝謝各位高手!

TOP

jaway

帖子
10 
主題
2 
精華
0 
積分
11 
點名
0  
作業系統
WIN7 
軟體版本
WIN7 
閱讀權限
10 
註冊時間
2018-6-9 
最後登錄
2019-12-10 
10#
發表於 2018-6-17 13:55 | 只看該作者
回復 9# f3202


謝謝指導...

可否再冒昧請問網上高手...
Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value

程式中的欄位是到N8,若我想再多加一個欄位,是將N改O嗎,可是
執行狀態的字樣都一直在O8的位置?

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-11-27 
9#
發表於 2018-6-17 10:33 | 只看該作者
回復 8# jaway


    If Second(Now) = 0 Or Second(Now) = 30 Then

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
123
返回列表 上一主題