藍天麗池

回復 84# c_c_lai

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

c_c_lai

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

藍天麗池

回復 84# c_c_lai

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

藍天麗池

回復 92# c_c_lai


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

c_c_lai

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

下載 (113.19 KB)

2016-4-10 15:59

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

藍天麗池

回復 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

藍天麗池

回復 95# c_c_lai

下載 (62.55 KB)

2016-4-10 16:00

    圖裡面的A欄不用寫入，我可能早上表達的不是很清楚，C大抱歉

藍天麗池

回復 95# c_c_lai


    不用寫入時間指的是A欄，其他的要，抱歉，果然是我表達的有問題SORRY

c_c_lai

回復 96# 藍天麗池
那你就將 "時間()" 刪除掉或不去執行它
不就得了。那是你原本的程式。我是不用它的。

藍天麗池

回復 99# c_c_lai


    那目前只往下寫B2-D2，如果要改成往下寫B2-E2要更改哪邊呢??