藍天麗池

回復 49# GBKEE

我測試的方式是直接手動輸入量，還是說手動輸入的方式會不準確??

藍天麗池

回復 50# c_c_lai


    C大，你先忙，我的不急，你肯幫我就感謝不及了，所以你忙完你的事再幫我也不遲，謝謝

c_c_lai

回復  c_c_lai


    修改之後，第一次變動會全部往下寫，為什麼會這樣??
藍天麗池 發表於 2016-4-9 09:04

你不是第一次 (WR = 3) 就要全部寫入？

藍天麗池

回復 53# c_c_lai

沒有，全部都是有變動才寫入，那個是之前別人幫我寫的，可以拿掉，直接刪除就好嗎??

c_c_lai

回復 54# 藍天麗池
替換掉

1.     '  If WR = 3 Then  '  總量有異動時才記錄
   
2.     '      Cells(WR, 1).Resize(, 400) = [A2:OJ2].Value
   
3.     '  Else
   
4.        Range(Left(TG, Len(TG) - 1) & WR) = Range(TG)                            '  可處裡到 AA 以後的欄位
   
5.        '  Range(Left(TG, 3) & WR) = Range(TG)                                   '  只能處裡到 A ~ Z
   
6.        Range(Left(TG, Len(TG) - 1) & WR).Offset(, -1) = Range(TG).Offset(, -1)  '  可處裡到 AA 以後的欄位
   
7.       '  Range(Left(TG, 3) & WR).Offset(, -1) = Range(TG).Offset(, -1)          '  只能處裡到 A ~ Z
   
8.     '   End If

複製代碼

可處裡到 AA 以後的欄位，這是已開始動工的前置準備。

藍天麗池

回復 55# c_c_lai

所以替換後變成下面這樣??

    Sub RecordPrice(TG As String)
    Dim WR As Long

    If Range("A1") < 1 Then Exit Sub
    '  WR = Range("A1").End(xlDown).Row + 1
    WR = Range(TG).End(xlDown).Row + 1           '  修改成以觸發之欄位為判斷基點

    '  ActiveWindow.ScrollRow = WR - 5           '  只顯示最新幾筆資料

    Cells(WR, 1).NumberFormatLocal = "hh:mm:ss"
   
    Range(Left(TG, Len(TG) - 1) & WR) = Range(TG)
    Range(Left(TG, Len(TG) - 1) & WR).Offset(, -1) = Range(TG).Offset(, -1)
    End If
End Sub

c_c_lai

倒數第五列加上
Cells(WR, 1) = [A2]
可能在測試時不小心刪掉了。

藍天麗池

回復 57# c_c_lai

C大，那個是我故意刪掉的，因為時間會覆蓋，所以我在#37裡面有用其他方式取代了，這樣應該可以吧??

c_c_lai

回復 56# 藍天麗池
養成寫程式隨手加上註解說明，人不是神仙
過陣子你就會看不懂你自已以往寫的程式了，
如果都無註釋的話，絕不要偷懶自我要求。

藍天麗池

回復 59# c_c_lai

好，C大我了解，謝謝
#37再麻煩你多份心了