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

藍天麗池

中學生 Rank: 2

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

51^# 跳轉到 »

發表於 2016-4-9 09:15 | 只看該作者

本帖最後由藍天麗池於 2016-4-9 09:18 編輯

回復 49# GBKEE

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

TOP

藍天麗池

中學生 Rank: 2

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

52^#

發表於 2016-4-9 09:17 | 只看該作者

回復 50# c_c_lai

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

53^#

發表於 2016-4-9 09:18 | 只看該作者

回復 c_c_lai

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

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

TOP

藍天麗池

中學生 Rank: 2

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

54^#

發表於 2016-4-9 09:23 | 只看該作者

回復 53# c_c_lai

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

55^#

發表於 2016-4-9 09:31 | 只看該作者

回復 54# 藍天麗池
替換掉

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

複製代碼

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

TOP

藍天麗池

中學生 Rank: 2

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

56^#

發表於 2016-4-9 09:34 | 只看該作者

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

TOP

c_c_lai