- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
22#
發表於 2016-4-8 10:42
| 只看該作者
回復 20# 藍天麗池
shtRTD(RTD) 工作表單內容：- Private Sub Worksheet_Change(ByVal Target As Range)
- ' 當 D2 欄位有異動時， 則去呼叫 RecordPrice 的方法 (Method)。
- If Target.Address = "$C$2" Or Target.Address = "$E$2" Or Target.Address = "$G$2" Or Target.Address = "$I$2" Or _
- Target.Address = "$K$2" Or Target.Address = "$M$2" Or Target.Address = "$O$2" Or _
- Target.Address = "$Q$2" Or Target.Address = "$S$2" Or Target.Address = "$U$2" Then
- Call RecordPrice(Target.Address)
- End If
- End Sub
- Option Explicit
- 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"
-
- If WR = 3 Then ' 總量有異動時才記錄
- Cells(WR, 1).Resize(, 21) = [A2:U2].Value
- Else
- Cells(WR, 1) = [A2]
- Range(Left(TG, 3) & WR) = Range(TG)
- Range(Left(TG, 3) & WR).Offset(, -1) = Range(TG).Offset(, -1)
- End If
- End Sub
|
|
