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

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

91^# 跳轉到 »

發表於 2016-4-10 15:50 | 只看該作者

回復 84# c_c_lai

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

c_c_lai

博士班 Rank: 6 Rank: 6

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

92^#

發表於 2016-4-10 15:53 | 只看該作者

回復 91# 藍天麗池
"空白" 不懂你的意思？能否永圖表畫個漫畫？

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

93^#

發表於 2016-4-10 15:56 | 只看該作者

回復 84# c_c_lai

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

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

94^#

發表於 2016-4-10 15:57 | 只看該作者

回復 92# c_c_lai

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

c_c_lai

博士班 Rank: 6 Rank: 6

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

95^#

發表於 2016-4-10 15:57 | 只看該作者

本帖最後由 c_c_lai 於 2016-4-10 16:01 編輯

回復 91# 藍天麗池
你是指？

你不是要求資料寫入時不用寫入時間嗎？

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

96^#

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