價格紀錄的語法有寫錯嗎??

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

41^# 跳轉到 »

發表於 2016-4-10 11:45 | 顯示全部帖子

回復 82# c_c_lai

C大不急，你先忙

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

42^#

發表於 2016-4-10 15:50 | 顯示全部帖子

回復 84# c_c_lai

C大我不太懂你的意思，為什麼位是空白??你往下寫不是就有數字了嗎??

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

43^#

發表於 2016-4-10 15:56 | 顯示全部帖子

回復 84# c_c_lai

時間內容為什麼不能寫入??我後面的計算都要靠時間內容才有辦法運作，可以請C大幫我解惑一下嗎??
我的想法是如果量變動就寫入B2-E2，這樣不行嗎??我們設定量變動才寫入其他有沒有變動應該不影響寫入吧！

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

44^#

發表於 2016-4-10 15:57 | 顯示全部帖子

回復 92# c_c_lai

我不懂的是為什麼時間無法寫入

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

45^#

發表於 2016-4-10 16:00 | 顯示全部帖子

回復 92# c_c_lai

Sub 時間()
Sheets("RTD").Cells(2, 1) = WorksheetFunction.Text(Now(), "hh:mm:ss")-------------這個地方時間不用寫入
Application.OnTime Now() + TimeValue("00:00：01"), "時間"
End Sub

---------------------------------------------------------------------------------------------------------------------------
Sub RecordPrice(TG As Range)
Dim WR As Long, cts As Long

With Sheets("RTD")
      If .Range("A1") < 1 Then Exit Sub

      cts = TG.Column

      WR = .Cells(Rows.Count, cts).End(xlUp).Row + 1       '  求取該異動欄位的最後一筆紀錄列位置

      If WR = 3 Or .Cells(WR - 1, cts) <> .Cells(2, cts) Then
         .Cells(WR, cts).Offset(, -3).NumberFormatLocal = "hh:mm:ss" '  設定儲存格格式 (時間)----------------這個地方的功能是??有時間的部分可以都拿掉嗎??

         .Cells(WR, cts).Offset(, -2).Resize(, 3) = .Range(TG.Address).Offset(, -2).Resize(, 3).Value
      End If
End With
End Sub

TOP

藍天麗池