- 帖子
- 319
- 主題
- 6
- 精華
- 0
- 積分
- 309
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2k
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-6-24
- 最後登錄
- 2024-4-27
|
13#
發表於 2016-3-22 09:32
| 只看該作者
改成這樣
Sub RecordPrice()
Dim WR As Long
Dim I As Byte
Dim DDE_總量 As Range
Set DDE_總量 = Range("D2")
If IsError(DDE_總量.Value) Then Exit Sub
If DDE_總量.Value <= 0 Then Exit Sub
WR = DDE_總量.CurrentRegion.Row + DDE_總量.CurrentRegion.Rows.Count
'ActiveWindow.ScrollRow = WR - 5 '只顯示最新幾筆資料
If (WR = 3) Or _
(Cells(WR - 1, DDE_總量.Column) <> DDE_總量.Value) Then '總量有異動時才記錄
Excel.Application.EnableEvents = 0
Cells(WR, DDE_總量.Column).Offset(, -1).Resize(, 3).Value = _
DDE_總量.Offset(, -1).Resize(, 3).Value
Excel.Application.EnableEvents = 1
End If
End Sub |
|
